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
Desde já agradeço.
Abraços