Foro de elhacker.net

Programación => .NET (C#, VB.NET, ASP) => Mensaje iniciado por: jdc en 15 Septiembre 2010, 08:24 am



Título: Google & Google Lucky Instant en vb.NET
Publicado por: jdc en 15 Septiembre 2010, 08:24 am
Estaba aburrido molestando a nakp y se me ocurrio hacer esto xDDDDDD


Les dejo el ejecutable, si les interesa les dejo el codigo aunque es una mierrrrrrr jajajajaja y los 3l33t lo optimizaran un minuto y medio despues de que lo publique xDDDDDDD

les dejo el ejecutable aqui a ver si les gusta...

Descargar (http://skydrive.cl/url/index.php?page=skydrive.cl/luckyInstant.exe&h=2) <== Libre de virus bajo mi palabra.

Esta en vb.NET 2010 asi que les dejo un video por si no tienen el .NET FrameWork 4400 xDDD

FAeCaFdJ5jw

Me parecio divertido


Título: Re: Google & Google Lucky Instant en vb.NET
Publicado por: [D4N93R] en 15 Septiembre 2010, 15:19 pm
Muy bueno, haha, lo mejor es la música de fondo.. :)


Título: Re: Google & Google Lucky Instant en vb.NET
Publicado por: Braayhaan en 15 Septiembre 2010, 15:35 pm
Todos amamos a google y todos amamos la 5ta de Beethoven xDD

Muy bueno eso del Instant Search, por alguna razón el Google Chrome no lo tiene y el Firefox si...

En fin muy bueno xd


Título: Re: Google & Google Lucky Instant en vb.NET
Publicado por: raul338 en 15 Septiembre 2010, 16:19 pm
Jajaja, es un adelanto que seria para todos los paises antes de que salga oficialmente (?) :xD


Título: Re: Google & Google Lucky Instant en vb.NET
Publicado por: jdc en 25 Septiembre 2010, 08:01 am
En el evento keyup del cuadro de busqueda realizamos todo...
Cada vez que se presiona una tecla se agrega a la direccion y se muestra el resultado en el webBrowser
Si esta marcado el check se le asigna a la url al final "&btnI=Voy%20a%20tener%20suerte" que es equivalente a dar click en el boton "voy a tener suerte" si se borra todo y el text queda vacio se abre el forillo xD


Código
  1. Public Class Form1
  2.  
  3.  
  4.    Private Sub txtSearch_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtSearch.KeyUp
  5.        Dim q As String
  6.        Dim l As String
  7.  
  8.        If chkLucky.Checked = True Then
  9.            l = "&btnI=Voy%20a%20tener%20suerte"
  10.        Else
  11.            l = ""
  12.        End If
  13.  
  14.        q = txtSearch.Text
  15.        q = Replace(q, " ", "+")
  16.  
  17.        If (q = "") Then
  18.            wbLucky.Navigate("http://foro.elhacker.net")
  19.        Else
  20.            wbLucky.Navigate("http://www.google.cl/search?q=" & q & l)
  21.        End If
  22.  
  23.    End Sub
  24. End Class

:¬¬ un pequeño problema, como todos los idiotas usan el webBrowser para hacer bots y haces una peticion por pulsacion google te puede reconocer como bot asi que no abusen ni se confien es solo para joder un rato y nada mas, no lo usen para cosas serias xD

Quizas se podria usar un timmer para no abusar de ls peticiones, algo que retrasase la peticion un par de milisegundos ;)