Skip to main content
removeu 2 caracteres do conteúdo
Fonte Link
gmsantos
  • 17,6mil
  • 7
  • 51
  • 91

Entao pessoal to querendo colocar um valor numa pagina web, mas antes disso eu faço login nela e sou direcionado a outra pagina, lá eu navego até uma pagina diferente, e eu dei uma olhada no codigo da pagina e no local onde quero colocar a informação tem a parte nome, a principio seria igual a fazer o login na pagina, mas por algum motivo nao estou conseguindo colocar o valor nessa pagina.

`PrivatePrivate Sub UserForm_Activate()
Dim senha, usuario

sURL = "http://tx3.travian.com.br/" ' Navego até o site
Set oBrowser = New InternetExplorer
oBrowser.Silent = True
oBrowser.navigate sURL
oBrowser.Visible = True

Do
' Espera a página carregar
Loop Until oBrowser.readyState = READYSTATE_COMPLETE

Set HtmlDoc = oBrowser.document

HtmlDoc.all.Name.Value = "" ' aqui coloco meu login
HtmlDoc.all.Password.Value = "" ' aqui coloco minha senha
HtmlDoc.all.lowRes.Click   ' clico em um botao
HtmlDoc.all.s1.Click      'click no botao de login

Do While oBrowser.Busy
DoEvents
Loop
oBrowser.navigate (sURL & ("build.php?tt=2&id=39"))    ' navego até a pagina que quero ir
Do While oBrowser.Busy
DoEvents
Loop
HtmlDoc.all.s4.Value = "4"      'É aqui o problema, quero colocar uma informacao aqui, é igual ao local onde boto minha senha e conta, mas por algum motivo dá erro. 
End Sub`Sub

O que poderia fazer aqui

Entao pessoal to querendo colocar um valor numa pagina web, mas antes disso eu faço login nela e sou direcionado a outra pagina, lá eu navego até uma pagina diferente, e eu dei uma olhada no codigo da pagina e no local onde quero colocar a informação tem a parte nome, a principio seria igual a fazer o login na pagina, mas por algum motivo nao estou conseguindo colocar o valor nessa pagina.

`Private Sub UserForm_Activate()
Dim senha, usuario

sURL = "http://tx3.travian.com.br/" ' Navego até o site
Set oBrowser = New InternetExplorer
oBrowser.Silent = True
oBrowser.navigate sURL
oBrowser.Visible = True

Do
' Espera a página carregar
Loop Until oBrowser.readyState = READYSTATE_COMPLETE

Set HtmlDoc = oBrowser.document

HtmlDoc.all.Name.Value = "" ' aqui coloco meu login
HtmlDoc.all.Password.Value = "" ' aqui coloco minha senha
HtmlDoc.all.lowRes.Click   ' clico em um botao
HtmlDoc.all.s1.Click      'click no botao de login

Do While oBrowser.Busy
DoEvents
Loop
oBrowser.navigate (sURL & ("build.php?tt=2&id=39"))    ' navego até a pagina que quero ir
Do While oBrowser.Busy
DoEvents
Loop
HtmlDoc.all.s4.Value = "4"      'É aqui o problema, quero colocar uma informacao aqui, é igual ao local onde boto minha senha e conta, mas por algum motivo dá erro. 
End Sub`

O que poderia fazer aqui

Entao pessoal to querendo colocar um valor numa pagina web, mas antes disso eu faço login nela e sou direcionado a outra pagina, lá eu navego até uma pagina diferente, e eu dei uma olhada no codigo da pagina e no local onde quero colocar a informação tem a parte nome, a principio seria igual a fazer o login na pagina, mas por algum motivo nao estou conseguindo colocar o valor nessa pagina.

Private Sub UserForm_Activate()
Dim senha, usuario

sURL = "http://tx3.travian.com.br/" ' Navego até o site
Set oBrowser = New InternetExplorer
oBrowser.Silent = True
oBrowser.navigate sURL
oBrowser.Visible = True

Do
' Espera a página carregar
Loop Until oBrowser.readyState = READYSTATE_COMPLETE

Set HtmlDoc = oBrowser.document

HtmlDoc.all.Name.Value = "" ' aqui coloco meu login
HtmlDoc.all.Password.Value = "" ' aqui coloco minha senha
HtmlDoc.all.lowRes.Click   ' clico em um botao
HtmlDoc.all.s1.Click      'click no botao de login

Do While oBrowser.Busy
DoEvents
Loop
oBrowser.navigate (sURL & ("build.php?tt=2&id=39"))    ' navego até a pagina que quero ir
Do While oBrowser.Busy
DoEvents
Loop
HtmlDoc.all.s4.Value = "4"      'É aqui o problema, quero colocar uma informacao aqui, é igual ao local onde boto minha senha e conta, mas por algum motivo dá erro. 
End Sub

O que poderia fazer aqui

Fonte Link

Preencher valor em pagina na Internet

Entao pessoal to querendo colocar um valor numa pagina web, mas antes disso eu faço login nela e sou direcionado a outra pagina, lá eu navego até uma pagina diferente, e eu dei uma olhada no codigo da pagina e no local onde quero colocar a informação tem a parte nome, a principio seria igual a fazer o login na pagina, mas por algum motivo nao estou conseguindo colocar o valor nessa pagina.

`Private Sub UserForm_Activate()
Dim senha, usuario

sURL = "http://tx3.travian.com.br/" ' Navego até o site
Set oBrowser = New InternetExplorer
oBrowser.Silent = True
oBrowser.navigate sURL
oBrowser.Visible = True

Do
' Espera a página carregar
Loop Until oBrowser.readyState = READYSTATE_COMPLETE

Set HtmlDoc = oBrowser.document

HtmlDoc.all.Name.Value = "" ' aqui coloco meu login
HtmlDoc.all.Password.Value = "" ' aqui coloco minha senha
HtmlDoc.all.lowRes.Click   ' clico em um botao
HtmlDoc.all.s1.Click      'click no botao de login

Do While oBrowser.Busy
DoEvents
Loop
oBrowser.navigate (sURL & ("build.php?tt=2&id=39"))    ' navego até a pagina que quero ir
Do While oBrowser.Busy
DoEvents
Loop
HtmlDoc.all.s4.Value = "4"      'É aqui o problema, quero colocar uma informacao aqui, é igual ao local onde boto minha senha e conta, mas por algum motivo dá erro. 
End Sub`

O que poderia fazer aqui