Buscador simple en vb6

[rapbyone]

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 [Seleccionar] Expandir


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

[MCKSys Argentina]

Hola!

Prueba con este codigo:

Código (vb) [Seleccionar] Expandir


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!

[rapbyone]

Hola!

Prueba con este codigo:

Código (vb) [Seleccionar] Expandir


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