Private Sub NavegaADestino()
'Se crea un navegador
Dim navegador As New WebBrowser
'añadimos un controlador de evento que se dispare cuando el documento finalice la carga
AddHandler navegador.DocumentCompleted, New WebBrowserDocumentCompletedEventHandler(AddressOf RealizaRegistro)
'navegamos a la web de destino
navegador.Navigate("http://[servidorpruebas]/test/login.aspx")
End Sub
Private Sub RealizaRegistro(ByVal sender As Object, ByVal e As WebBrowserDocumentCompletedEventArgs)
'capturamos los controles donde introduciremos datos
Dim nombreUsuario As HtmlElement = Me.WebBrowser1.Document.GetElementById("username")
Dim claveUsuario As HtmlElement = Me.WebBrowser1.Document.GetElementById("password")
'establecemos los valores de los controles
nombreUsuario.InnerText = "usuario"
claveUsuario.InnerText = "clave"
'antes de realizar el "submit" del formulario desconectamos el controlador del evento, ya que sino al
'terminar de cargar la nueva pagina después del "submit" el método volverá a ser llamado
RemoveHandler CType(sender, WebBrowser).DocumentCompleted, New WebBrowserDocumentCompletedEventHandler(AddressOf RealizaRegistro)
'realizamos el "submit" del formulario
Me.WebBrowser1.Document.Forms("formlogin").InvokeMember("submit")
End Sub