webbrowser ayuda

[asdexiva]

Código [Seleccionar] Expandir

Dim uName, uPass As String

Private Sub Form_Load()
WebBrowser1.Resizable = True
WebBrowser1.Navigate ("http://www.argentinawarez.com/login.php?do=login")


End Sub



Private Sub Command1_Click()

On Error Resume Next
uName = Text1.Text
uPass = Text2.Text

Set HTML = WebBrowser1.Document

    For Each HTMLI In HTML.getElementsByTagName("input")


        If HTMLI.Name = "vb_login_username" Then

        HTMLI.Value = uName

        End If


        If HTMLI.Name = "vb_login_password" Then
        HTMLI.Value = uPass
        End If
       
        If HTMLI.Type = "submit" Then
        HTMLI.Click
        End If

    Next

End Sub



lo que hace esto es autologiarse en una pagina pero quiero que despues de logiarge vaya asia aqui

WebBrowser1.Navigate ("http://www.argentinawarez.com/programas-gratis/")

y despues de 45 segundos

vaya asia aqui

WebBrowser1.Navigate ("http://www.argentinawarez.com/t.php?do=nuevo&f=2")

si me pudieran ayudar muchas gracias
   

[Stakewinner00]

Colocando un timer no te sirve?

[asdexiva]

Colocando un timer no te sirve?

podrias darme una idea please como acomodar el timer por que hace rato lo ise pero el webbrowser nunca cambiaba usaba dentro del timer WebBrowser1.Navigate no se si se tenga que usar otra cosa

y otra cosa como modifico un textbox :S