Webbrowser

[extreme69]

Hola de nuevo, estoy haciendo un bot para registrar multiples usuarios en un sitio rápidamente.

Encontré este código googleando para saber cuando terminó de cargar el sitio en el webbrowser.

Código [Seleccionar] Expandir

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
   If (pDisp Is WebBrowser1.Object) Then
      MsgBox "Listo!"
   End If
End Sub

El problema es que apenas abro el programa el webbrowser me carga una página de inicio de icq y por ende me pone "Listo!" pero no debería tomarse en cuenta este código hasta presionar un botón. Intenté modificar el IE para q abra en blank page y pasa lo mismo.

¿Alguna idea de como hacer? no sé si es que ya tengo mucho sueño, pero no logro hacerlo funcionar, me voy a dormir a ver si mañana más fresco logro solucionarlo.

[79137913]

HOLA!!!

Me extraña andas hace tiempo por estos lares XD...

Tenes que agregar una comprobacion de que url es la activa.

GRACIAS POR LEER!!!

[$Edu$]

Exacto, ya una vez te habia dicho creo xD

Código (csharp) [Seleccionar] Expandir


private void web_DocumentCompleted(object sender, WebBrowserDocumentCompletedEventArgs e)
        {

            if ((e.Url.ToString() == "http://www.pagina.com/register")
            { }
        }


[extreme69]

Jaja, tienen mucha razón, estaba muerto de sueño luego de una larga jornada laboral.

Antes de irme a dormir de manera provisoria moví todo para Form2 y en Form1 puse un botón para iniciar el Form2 y al menos quedó funcionando, pero obviamente con la comprobación es mucho mejor.

Muchas gracias!

[extreme69]

Quedó funcionando hermoso, gracias a esto voy a conseguir miles de visitas por día en uno de mis sitios haciendo uso de la publicidad de adwords que hace el sitio en el que voy a usar el bot (hasta un poco de lástima me dá, deben pagar varios cientos de dólares por día en publicidad).

Ahora me falta hacer un mailer q apenas entren los mails busque la url en el body y la abra en un webbrowser y después un auto-poster

Muchas gracias.

[$Edu$]

Pero por cada ip solamente cuentan nomas creo, es decir por algo la botnet que haras, pero que.. conseguiras 300 pcs? xD

[extreme69]

No, no es una botnet, ya hice una hace un mes y poco y quedó super inestable.

Esto es para crear cuentas automaticamente + postear en un sitio de ventas que no permite en los terms and conditions que pongan links directos a tu sitio, PERO sin embargo linkean las url's y el control demora en aparecer, mientras aparece el control con cada cuenta saco muchos posts y miles de visitas dado que pagan muchisimo de adwords y están recibiendo una cantidad de visitas increíble. Es algo así como un mercadolibre.

[extreme69]

By the way... no usé tu código xq no me funcionó, usé este otro por si alguien busca algo similar:

Código [Seleccionar] Expandir

Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)

Text1.Text = (WebBrowser1.LocationURL)

Form1.Caption = (WebBrowser1.LocationName)

End Sub

Y después con un if sé si estoy en la página adecuada para empezar las funciones.

Saludos.