Visual Basic.NET - Rellenar formulario web automaticamente

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

Dim explorador As SHDocVw.InternetExplorer

'creamos un nuevo internet explorer

explorador = New SHDocVw.InternetExplorer

explorador.Visible = True

explorador.Navigate(""http://[servidorpruebas]/test/login.aspx"")

'loop para esperar la carga del documento

Do

	'esperamos que el documento este cargado: explorador.ReadyState = SHDocVw.tagREADYSTATE.READYSTATE_COMPLETE

	'y que se haya terminado de ejecutar todo el javascript: explorador.Busy

Loop While explorador.ReadyState <> SHDocVw.tagREADYSTATE.READYSTATE_COMPLETE And explorador.Busy = True

Dim nombreUsuario As HtmlElement = explorador.Document.GetElementById("username")

'...

explorador.Quit()

Dim ventanasExplorador As SHDocVw.ShellWindows

Dim explorador As SHDocVw.InternetExplorer

ventanasExplorador = New SHDocVw.ShellWindows

For ventanas As Integer = 0 To ventanasExplorador.Count - 1

	If ventanasExplorador(ventanas).LocationURL = "http://[servidorpruebas]/test/login.aspx" Then

		explorador = ventanasExplorador(ventanas)

		Exit For

	End If

Next

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    WebBrowser1.Navigate("http://www.sunat.gob.pe/cl-ti-itmrconsruc/FrameCriterioBusquedaCelular.jsp")

End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

    WebBrowser1.Document.GetElementById("search1").InnerText = (TextBox1.Text)

    WebBrowser1.Document.GetElementById("codigo").InnerText = (TextBox2.Text)

    Me.WebBrowser1.Document.Forms("mainForm").InvokeMember("submit")

End Sub

For Each elemento As HtmlElement In elementos

If elemento.GetAttribute("value") = " Buscar " Then

     elemento.InvokeMember("onclick")

End If

Next