Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Interação com web.whatsapp.com

A Web está aí, não há como negar. Ela é onipresente em praticamente toda operação eletrônica realizada nos dias de hoje. Como não podia ser diferente, o Excel, ferramenta máxima para analistas e profissionais das mais diversas áreas do mercado precisa estar alinhado com esta necesssidade. E ele está! Neste forum, o debate é focado em expor dúvidas, sugestões, modelos de código e exemplos de uso do Excel na Integração com tecnologias Web.
Wagner.cwb
Manda bem
Manda bem
Mensagens: 168
Registrado em: Sáb Set 24, 2016 4:48 pm

Interação com web.whatsapp.com

Mensagem 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.


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
webmaster
Administrador
Mensagens: 3114
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

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

Mensagem 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...


Wagner.cwb
Manda bem
Manda bem
Mensagens: 168
Registrado em: Sáb Set 24, 2016 4:48 pm

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

Mensagem 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.


Avatar do usuário
webmaster
Administrador
Mensagens: 3114
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

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

Mensagem 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


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Wagner.cwb
Manda bem
Manda bem
Mensagens: 168
Registrado em: Sáb Set 24, 2016 4:48 pm

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

Mensagem 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


Wagner.cwb
Manda bem
Manda bem
Mensagens: 168
Registrado em: Sáb Set 24, 2016 4:48 pm

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

Mensagem 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


Avatar do usuário
PRMPOKER
Consultor
Consultor
Mensagens: 206
Registrado em: Ter Dez 04, 2012 8:57 am

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

Mensagem 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.


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder