Imprimir Página - Buscador simple en vb6

Título: Buscador simple en vb6
Publicado por: rapbyone en 29 Agosto 2014, 15:44 pm

amigos, se me ocurrió poder realizar algo para optimizar un programa que tengo, la idea es la siguiente, crear una especie de buscador en una pagina determinada.

Por ejemplo con el buscador de esta pagina, se me ocurrió hacer algo como esto usando la función ShellExecute para abrir paginas-

Código:

Private Sub Command1_Click()
res = ShellExecute(Me.hwnd, "Open", "http://wiki.elhacker.net/system/app/pages/customSearch?scope=cse-goog_1258298707613&q=; text1.Text;&search=", "", "", 1)
End Sub

http://wiki.elhacker.net/system/app/pages/customSearch?scope=cse-goog_1258298707613&q=auditorias+wifi&search=

Pero en la dirección no toma los valores del text1, si no que busca "; text1.Text;"

No logro hacerlo funcionar, se puede hacer de esta forma, o hay una manera mejor de hacerlo

Gracias amigos

Título: Re: Buscador simple en vb6
Publicado por: MCKSys Argentina en 29 Agosto 2014, 18:53 pm

Hola!

Prueba con este codigo:

Código

Private Sub Command1_Click()
res = ShellExecute(Me.hwnd, "Open", "http://wiki.elhacker.net/system/app/pages/customSearch?scope=cse-goog_1258298707613&q=; " + text1.Text + ";&search=", "", "", 1)
End Sub

Saludos!

Título: Re: Buscador simple en vb6
Publicado por: rapbyone en 29 Agosto 2014, 19:26 pm

Cita de: MCKSys Argentina en 29 Agosto 2014, 18:53 pm

Hola!

Prueba con este codigo:

Código

Private Sub Command1_Click()
res = ShellExecute(Me.hwnd, "Open", "http://wiki.elhacker.net/system/app/pages/customSearch?scope=cse-goog_1258298707613&q=; " + text1.Text + ";&search=", "", "", 1)
End Sub

Saludos!

Funciono mas que perfecto, no pensé que se podía
Muchas gracias

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: rapbyone en 29 Agosto 2014, 15:44 pm