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.