Página 1 de 1

Interação com web.whatsapp.com

Enviado: Seg Mai 08, 2017 9:58 pm
por Wagner.cwb
Caros Colegas!

vocês já tiveram a experiência ou pretendem utilizar a interação do excel com web.whatsapp.com?
Eu gostaria de entender como funciona. Por ser duas ferramentas tão conhecidas, de repente alguém já
se aventurou em criar algo que envolva ambas.

Re: Interação com web.whatsapp.com

Enviado: Ter Mai 09, 2017 5:58 pm
por webmaster
a pergunta eh, qual o objetivo? Ja que voce so pode acessar dados da sua conta, nao vejo o porque faze-lo. Se for por backup, o proprio whatsapp ja tem.

A nao ser que voce queira usar ele para manter mensagens em massa para todos os contatos, mas aih eh outra historia...

Re: Interação com web.whatsapp.com

Enviado: Ter Mai 09, 2017 8:32 pm
por Wagner.cwb
Aqui no meu trabalho precisamos enviar relatórios sobre as operações a cada 3 horas para os gerentes via whats... seria extremamente útil esta automação.

Re: Interação com web.whatsapp.com

Enviado: Ter Mai 09, 2017 10:09 pm
por webmaster
Entendi,

Dei uma pesquisa e há algumas opções em Python. Procure por "whatsapp web scraper".

Tome muito cuidado com extensões e plugins. Você precisa dar todo o acesso de leitura da conta para fazer funcionar.

Já em Excel, teria que ser do zero mesmo. Tente gravar alguma coisa com o Selenium IDE pra ver no que dá.

Att

Re: Interação com web.whatsapp.com

Enviado: Sex Jul 14, 2017 11:09 pm
por Wagner.cwb
Pessoal,

durante as minhas pesquisas encontrei uma solução bem útil.
Os créditos para o colega Suebersson Montalvão.

https://www.youtube.com/watch?v=kqlvXpJ0mBQ

Código: Selecionar todos

Sub Enviar()

'não pode fazer clicks ou mudar o foco do mouse nem pressionar teclas
Dim text As String
Dim Contato As String

text = Sheets(1).TextBox1

If text = "" Then
MsgBox "Digite a Mensagem a ser envida!", 64, "ERRO DE PROCEDIMENTO"
Exit Sub
End If

'ActiveWorkbook.FollowHyperlink Address:=" https://web.whatsapp.com/"
Shell "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe" & " https://web.whatsapp.com/"

Fazer (15000)
 
linha = 2
Do Until Sheets(1).Cells(linha, 1) = ""

Fazer (2000)
Contato = Cells(linha, 1)

If Contato = "" Then
MsgBox "Preencha os endereços de contatos!", 64, "Insira pelo menos um Contato"
Exit Sub
End If

Fazer (3000)
 Call SendKeys("{TAB}", True)
 Call SendKeys(Contato, True)
Call SendKeys("~", True)

Fazer (8000)
Call SendKeys(text, True)
'SendKeys "{ENTER}", True
Call SendKeys("~", True)

linha = linha + 1

Loop

'ActiveWorkbook.FollowHyperlink Address:=" https://web.whatsapp.com/"
'Shell "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe" & " https://web.whatsapp.com/"
' 'Application.Wait TimeSerial(0, 0, 1)
' Fazer (7000)
' SendKeys "{TAB}", True
'' SendKeys "camilly", True
' Call SendKeys(text, True)
'SendKeys "{ENTER}", True
'
'Fazer (2000)
'Call SendKeys(text, True)
'SendKeys "{ENTER}", True
'Call SendKeys("~", True)


End Sub

Function Fazer(ByVal Acao As Double)

Application.Wait (Now() + Acao / 24 / 60 / 60 / 1000)

'milliSeconds
End Function


Sub teste()

Fazer (5000)
MsgBox "suel"

End Sub

Abs

Re: Interação com web.whatsapp.com

Enviado: Qui Mai 30, 2019 10:06 pm
por Wagner.cwb
Olá pessoal,

a solução anterior foi útil, porém não está sendo muito prática...
pois depende de posicionamento de tela e sincronia de comando (SendKeys)...
Alguém tem conhecimento de como fazer o código navegar "internamente" pelo html?
Ou algo que faça o código sincronizar as telas com mais precisão?

obrigado

Re: Interação com web.whatsapp.com

Enviado: Sex Mai 31, 2019 10:36 am
por PRMPOKER
Prezados, bom dia!

Sob fria análise, sim, é possível fazer com IEControls.

Desenvolvi uma rotina muito parecida que identifica a janela específica pelo conteúdo do título do website. Seria possível selecionar a janela do whatsapp desta forma e então, com comandos JavaScript, fazer toda a manipulação.

Assim que der uma folga nos projetos eu posso tentar fazer algo.

Atenciosamente.