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

Robo para postar no Twitter

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.
felipevital
Acabou de chegar
Acabou de chegar
Mensagens: 2
Registrado em: Dom Fev 18, 2018 3:21 pm

Robo para postar no Twitter

Mensagem por felipevital »

Amigos, Boa Tarde.
Sou novo nesta área de automatização entre excel/access com a web.
Estou montando um robo para postar no Twitter as músicas que está em execução na minha radio virtual.
Chegou neste ponto eu travei.

Segue o código que estou fazendo.

Código: Selecionar todos

Private Sub Comando0_Click()
    Dim IE                As InternetExplorer
    Dim lPost             As String
    Dim email             As String
    Dim password          As String
    Dim postagem          As String
    
    'Cria um objeto Internet Explorer
    Set IE = New InternetExplorer
        
    'Torna o objeto visível
    IE.Visible = True

 
        'Navega ao site dos correios
        IE.navigate "https://twitter.com/login"
        
        'Identifica se a página já foi totalmente carregada
        While IE.ReadyState <> READYSTATE_COMPLETE
        Wend
        
        ' se logar
        MsgBox "Favor se logar no Twitter", vbInformation, "Twitter"
        
        'Como a página possui JavaScript que cria os objetos que são preenchidos após a carga completa, é necessário
        'aguardar um tempo, coloquei 3 segundos, alterar conforme a necessidade.
        'Caso não tenha javascript na criação dos objetos da página comentar esta parte do código, pois será bem
        'mais rápida a execução.
        sng = Timer
        Do While sng + 3 > Timer
        Loop
        
        'Carrega os dados de cidade e UF que serão preenchidos na página
        lPost = "teste1"
        
        'Carrega os dados de cidade e UF na página e submente os dados do formulário
        IE.Document.all("global-new-tweet-button").Click
        
        IE.Document.all("principal").contentWindow.Document.all("tweet").innerText = lPost
        IE.Document.getElementsByName("tweet").innerHTML = lPost
        IE.Document.getElementsByName("tweet").innerText = lPost
        
        
        IE.Document.all("tweet-box-home-timeline").innerText = lPost
        IE.Document.all("button").Click
       
        
    
    MsgBox "Concluído!"
End Sub
Espero ajuda de vocês.
Desde já agradeço.

Abraços


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: Robo para postar no Twitter

Mensagem por webmaster »

Felipe,

1 - Já pensou em usar a API to Twitter on invés de fazer web scrapping?
2 - Por curiosidade, vai coletar os dados da música em execução também pelo VBA?
3 - De qual rádio virtual estamos falando? Se for uma das grandes, as próprias têm integração com o Twitter.

At


felipevital
Acabou de chegar
Acabou de chegar
Mensagens: 2
Registrado em: Dom Fev 18, 2018 3:21 pm

Re: Robo para postar no Twitter

Mensagem por felipevital »

Tomas, obrigado pela resposta.
Sobre a radio online, eu tenho uma rádio online que estou montando.

Sobre API, como posso usar ele em vba.

Obrigado


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

Re: Robo para postar no Twitter

Mensagem por webmaster »

Felipe,

Mas se a radio eh sua, o mais simples seria integrar a propria com a API do twitter on inves de passar essa obrigacao para o VBA, nao?


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