Esqueceu sua senha? Você pode usar o mecanismo de lembrete neste link: Recuperar senha

Você receberá um link de reativação no email cadastrado.

Não recebeu o email? Lembre-se checar o Lixo Eletrônico.

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 » Seg Mai 08, 2017 9:58 pm

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: 2643
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

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

Mensagem por webmaster » Ter Mai 09, 2017 5:58 pm

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


Tomás
https://www.tomasvasquez.com.br/blog
https://www.tomasvasquez.com.br/cursocsharp
https://twitter.com/tomamais
Se sua dúvida foi solucionada, acrescente [RESOLVIDO] ao título.

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 » Ter Mai 09, 2017 8:32 pm

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: 2643
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

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

Mensagem por webmaster » Ter Mai 09, 2017 10:09 pm

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


Tomás
https://www.tomasvasquez.com.br/blog
https://www.tomasvasquez.com.br/cursocsharp
https://twitter.com/tomamais
Se sua dúvida foi solucionada, acrescente [RESOLVIDO] ao título.

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 » Sex Jul 14, 2017 11:09 pm

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 » Qui Mai 30, 2019 10:06 pm

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
Manda bem
Manda bem
Mensagens: 197
Registrado em: Ter Dez 04, 2012 8:57 am

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

Mensagem por PRMPOKER » Sex Mai 31, 2019 10:36 am

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.



Paulinho Monteiro
VBA - Front/BackEnd Developer

Email: falecom@paulinhomonteiro.com
falecompaulinhomonteiro@gmail.com
Whatsapp (54) 9925 340 85
www.paulinhomonteiro.com

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