VBA Telegram

Visual Basic for Aplication e macros no Excel.
Regras do fórum
Sua dúvida foi respondida? Marque como RESOLVIDO em seus tópicos, usando o botão com marca verde. Imagem

VBA Telegram

Mensagempor Andersonjs » Ter Mar 13, 2018 3:42 pm

Boa Tarde, pessoal.

Estou criando uma macro que envia msg via Web Telegram.
Eu consigo abrir o web telegram, colocar a mensagem a ser enviada, porém não encontrei uma forma de fazer o vba clicar no botão enviar.
Alguém poderia me ajudar?
Abaixo segue o código e anexo segue a macro

Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Public Sub envia()
Call Telegram("teste")
End Sub
Public Sub Telegram(ByVal mensagem As String)
Dim IE_Telegram As InternetExplorer
Set IE_Telegram = New InternetExplorer
With IE_Telegram
IE_Telegram.Navigate "https://web.telegram.org/#/im?p=g309849502" 'Alterar aqui o link do grupo
IE_Telegram.Visible = True
While .Busy Or .ReadyState <> READYSTATE_COMPLETE
DoEvents
Wend
IE_Telegram.Document.getElementsByClassName("composer_rich_textarea").Item(0).innerText = mensagem
Sleep (500)
' Tentando clicar no botão enviar
IE_Telegram.Document.getElementsByClassName("btn btn-md im_submit im_submit_send").Item(0).Click
Call SendKeys("~", True)
For Each botao In IE_Telegram.Document.getElementsByTagName("span")
If Trim(botao.className) = "im_submit_send_label nocopy" Then
botao.Click
End If
Next

End With
End Sub
Você não está autorizado a ver ou baixar esse anexo.
Andersonjs
Membro
Membro
 
Mensagens: 13
Registrado em: Seg Mai 05, 2014 1:01 pm
Has thanked: 1 time
Have thanks: 1 time

{ SO_SELECT }

Re: VBA Telegram

Mensagempor Andersonjs » Sex Mar 16, 2018 11:55 am

Alguém para ajudar??
o Código do botão é esse abaixo:

O comando do clique executa sem erro, porém não acontece nada....

<button class="btn btn-md im_submit im_submit_send" type="submit" ng-class="draftMessage.type == 'edit' ? 'im_submit_edit' : 'im_submit_send'">

<span class="im_submit_send_label nocopy" my-i18n="im_submit_message" data-content="Enviar"></span>

<span class="im_submit_edit_label nocopy" my-i18n="im_submit_edit_message" data-content="Salvar"></span>

</button>
Andersonjs
Membro
Membro
 
Mensagens: 13
Registrado em: Seg Mai 05, 2014 1:01 pm
Has thanked: 1 time
Have thanks: 1 time


Voltar para VBA & Macros

Quem está online

Usuários navegando neste fórum: Nenhum usuário registrado e 3 visitantes