Perdona, entendí mal, pensaba que querías hacer el cuadro tu mismo
Lo que tu quieres lo suelen llamar 'loguear una web'. Consiste en automatizar una serie de acciones como rellenar cuadros de contraseñas y hacer clics en botones y checkboxs.
Debes obtener el código de la página para obtener el ID del control de la páginas que quieres "atacar". Puedes hacerlo mediante código, en plan complicado o simplemente entras con tu navegador habitual y pulsas con le botón derecho del ratón en cualquier lugar y cuando salga el menú emergente selecciona "Ver código fuente". Luego buscas el ID o el Valor del control con el que quieras interactuar con el.
Del link que has facilitado he sacado esto que hace referencia a los botones de aquí se saca la información para poder hacer referencia a los botones y otros controles desde nuestro programa.
<!-- BEGIN SUBMIT FORM -->
<input id="submit_preview" class="btn btn-primary visualize" name="validate" type="submit" value="Vista previa"> <input id="submit_create_now" class="btn btn-primary publish_now" name="create" type="submit" value="Publicar ahora"> <!-- END SUBMIT FORM -->
Ahora, una vez encontrada la información en VB.NET mete el siguiente código (el de arriba no, el de abajo), que como verás para hacer referencia al botón 'Publicar ahora' he usado el valor '"Publicar ahora':
Crea dos botones y un control Webbrowser
Public Class Form1
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
WebBrowser1.Navigate("http://www2.yapo.cl/ai/form/7?ca=15_s")
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'Marca el checkbox "[x]Estoy de acuerdo con los Términos y Condiciones"
Dim theElementCollection As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("Input")
'<input class="ipt_checkbox" id="accept_conditions" name="ai_accept_conditions" type="checkbox">
theElementCollection = WebBrowser1.Document.GetElementsByTagName("Input")
For Each curElement As HtmlElement In theElementCollection
Dim controlName As String = curElement.GetAttribute("id").ToString
If controlName = "accept_conditions" Then
curElement.SetAttribute("checked", "1")
End If
Next
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim theElementCollection As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("Input")
' Simula el clic en el botón
'<input id="submit_create_now" class="btn btn-primary publish_now" name="create" type="submit" value="Publicar ahora">
theElementCollection = WebBrowser1.Document.GetElementsByTagName("Input")
For Each curElement As HtmlElement In theElementCollection
If curElement.GetAttribute("value").Equals("Publicar ahora") Then
curElement.InvokeMember("click")
'javascript has a click method for we need to invoke on the current submit button element.
End If
Next
End Sub
End Class
- La línea de código html de la página que hace referencia al checkbox de aceptar las condiciones es:
<input class="ipt_checkbox" id="accept_conditions" name="ai_accept_conditions" type="checkbox">
Para activarlo he necesitado el ID = accept_conditions
Y se activa al pulsar el button1.
La línea de código html de la página que hace referencia al botón "Publicar Ahora" es:
'
<input id="submit_create_now" class="btn btn-primary publish_now" name="create" type="submit" value="Publicar ahora">
He necesitado el valor "Publicar ahora" para accionarlo como puedes comprobar en el código para el Button2. Al pulsar Button2 se accionará el botón de la página.
Si quieres que de forma automática al entrar se active el checkbox y se pulse el botón, metes el código en el evento WebBrowser1_DocumentCompleted
Public Class Form1
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
WebBrowser1.Navigate("http://www2.yapo.cl/ai/form/7?ca=15_s")
End Sub
Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
Dim theElementCollection As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("Input")
'Marca el checkbox "[x]Estoy de acuerdo con los Términos y Condiciones"
'<input class="ipt_checkbox" id="accept_conditions" name="ai_accept_conditions" type="checkbox">
theElementCollection = WebBrowser1.Document.GetElementsByTagName("Input")
For Each curElement As HtmlElement In theElementCollection
Dim controlName As String = curElement.GetAttribute("id").ToString
If controlName = "accept_conditions" Then
curElement.SetAttribute("checked", "1")
End If
Next
' Simula el clic en el botón
'<input id="submit_create_now" class="btn btn-primary publish_now" name="create" type="submit" value="Publicar ahora">
theElementCollection = WebBrowser1.Document.GetElementsByTagName("Input")
For Each curElement As HtmlElement In theElementCollection
If curElement.GetAttribute("value").Equals("Publicar ahora") Then
curElement.InvokeMember("click")
'javascript has a click method for we need to invoke on the current submit button element.
End If
Next
End Sub
End Class
Con los demás controles de la página pues lo mismo. Para cuadros de texto:
theElementCollection = WebBrowser1.Document.GetElementsByTagName("Input")
For Each curElement As HtmlElement In theElementCollection
Dim controlName As String = curElement.GetAttribute("id").ToString
If controlName = [ID_OBJETO] Then
curElement.SetAttribute("Value", [TEXTO])
End If
Next
Sl2
Autor
En línea
