En esta ocasion veremos como usar Visual Basic para enviar datos a un formalario de una pagina web, a esta aplicacion se le podria considerar un "bot".
Esta aplicacion cuenta para su correcto funcionamiento el uso de un Webbrowser.
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
wbr.ScriptErrorsSuppressed = True'para que no se muestre la ventana de errores
End Sub
Private Sub btnEnviar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEnviar.Click
Dim i As Integer
i = 1
Do While wbr.ReadyState <> WebBrowserReadyState.Complete
Application.DoEvents()
Loop
Do While i <= nudNumero.Value
If wbr.ReadyState = WebBrowserReadyState.Complete And wbr.Url.ToString = txtUrl.Text Then
wbr.Document.GetElementById("nombre").InnerText = txtNombre.Text
wbr.Document.GetElementById("email").InnerText = (txtemail.Text)
wbr.Document.GetElementById("mensaje").InnerText = (txtMensaje.Text)
wbr.Navigate("javascript:EnviarMsj()")
'wbr.Document.GetElementById("enviar").InvokeMember("click")
lblNumero.Text = "Nro de Mensjes Enviados: " + i.ToString
wbr.Navigate(txtUrl.Text)
i = i + 1
End If
Application.DoEvents()
loop
End Sub
En conclusion, lo que hace esta aplicacion es obtener una referencia a traves de los "ids" de los elementos Html y asigarles valores y luego enviar el mensaje correspondiente para procesar el envio. Este proceso se realiza "N" veces, segun el numero indicando en el formulario.
Pueden adaptarlo para sus necesidades y bajo su responsabilidad.
jh
No hay comentarios:
Publicar un comentario
Nota: solo los miembros de este blog pueden publicar comentarios.