Código:
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