Buscar en el Blog

domingo, 9 de febrero de 2014

Vb.Net - Envio automatizado de datos a un formulario de una Pagina web( BOT)

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