Notifications
Clear all

VBA Telegram

2 Posts
1 Usuários
0 Reactions
3,011 Visualizações
(@andersonjs)
Posts: 13
Active Member
Topic starter
 

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

 
Postado : 13/03/2018 12:42 pm
(@andersonjs)
Posts: 13
Active Member
Topic starter
 

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>

 
Postado : 16/03/2018 8:55 am