Visual Basic - Ayuda webbrowser

Life is soft - evento anual de software empresarial
   
Vista:

Ayuda webbrowser

Publicado por anonimo (1 intervención) el 04/12/2007 14:02:39
Hola, estoy haciendo un programa que firmas fotologs de www.fotolog.com automaticamente, el programa anda de 10 , pero el problema surge cuando lo automatizo.
Es como que sucede muy rapido y no llega a cargar la pagina aunque le ponga esto:

Do While WebBrowser1.Busy = True
DoEvents
Loop
___________________________________________________________________________

Private Sub Form_Load()
On Error Resume Next
Form1.Show
Open "D:Nueva carpetaMati.txt" For Input As #1
WebBrowser1.Navigate "http://account.fotolog.com/login"
Do While WebBrowser1.Busy = True
DoEvents
Loop
Form1.Caption = Form1.Caption & "1"
WebBrowser1.Document.Forms(1).u_name.Value = "matiasberetta"
WebBrowser1.Document.Forms(1).p_word.Value = "21may92"
WebBrowser1.Document.Forms(1).submit.Click
Do While WebBrowser1.Busy = True
DoEvents
Loop
Form1.Caption = Form1.Caption & "2"
Do While EOF(1) = False
Line Input #1, A
WebBrowser1.Navigate "http://www.fotolog.com/" & A
Do While WebBrowser1.Busy = True
DoEvents
Loop
Form1.Caption = Form1.Caption & "3"
WebBrowser1.Document.Forms(1).message.Value = "Matías Beretta"
WebBrowser1.Document.Forms(1).submit.Click
Do While WebBrowser1.Busy = True
DoEvents
Loop
Form1.Caption = Form1.Caption & "4"
Loop
WebBrowser1.Navigate "http://account.fotolog.com/logout"
Do While WebBrowser1.Busy = True
DoEvents
Loop
Form1.Caption = Form1.Caption & "5"
Close #1
End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Ayuda webbrowser

Publicado por Sandro (136 intervenciones) el 02/01/2008 16:26:57
Proba remplazar la iteración "Do While WebBrowser1.Busy = True" por el evento
"WebBrowser1_DocumentComplete" que se invoca cuando "WebBrowser1.Navigate" finaliza de cargar
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar