Visual Basic - Ayuda con buscador en VB para google

Life is soft - evento anual de software empresarial
 
Vista:

Ayuda con buscador en VB para google

Publicado por Fabian Aguirre (1 intervención) el 18/12/2006 06:19:07
Hola a todos los programadores de este foro.

He buscado en internet un codigo que me sirva para abrir una url en el navegador predeterminado del cliente, y encontre este.

___________________________________________________________________

CODIGO:

Dim FileName As String, Dummy As String
Dim BrowserExec As String * 255
Dim RetVal As Long
Dim FileNumber As Integer
Const SW_SHOWNORMAL = 1 ' Restaurar la ventana si está minimizada

Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
ByVal lpParameters As String, ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long

Declare Function FindExecutable Lib "shell32.dll" Alias "FindExecutableA" _
(ByVal lpFile As String, ByVal lpDirectory As String, ByVal lpResult As _
String) As Long
' ---------

BrowserExec = Space(255)
FileName = "C:\temphtm.HTM"

FileNumber = FreeFile() ' Coger un nº de fichero no utilizado

Open FileName For Output As #FileNumber ' Crear un fichero HTML temporal
Write #FileNumber, " <\HTML>" ' Escribir
Close #FileNumber ' Cerrar el fichero

' Buscar la aplicación asociada a la extensión html
RetVal = FindExecutable(FileName, Dummy, BrowserExec)
BrowserExec = Trim$(BrowserExec)
' Si se encontró la aplicación, lanzarla
If RetVal <= 32 Or IsEmpty(BrowserExec) Then ' Error
Msgbox "No puedo encontrar el navegador"
Else
RetVal = ShellExecute(frmMain.hwnd, "open", BrowserExec, _
"www.myurl.com", Dummy, SW_SHOWNORMAL)
If RetVal <= 32 Then ' Error
Msgbox "Página Web no abierta"
End If
End If

Kill FileName ' borrar el fichero HTML temporal

___________________________________________________________________

pero quiero modificarlo para hacer lo siguiente:
Primero que se ejecute al hacer click en un commandbutton, y que la url que abra conste de tres partes:

"http://www.google.cl/search?hl=es&q=" + el contenido de un textbox + "+site%3Awww.chilewarez.org&meta="

y que se abra en una ventana nueva, sin cerrar las existentes.

esto es porque este foro (WWW.CHILE...ORG") tiene deshabilitado el buscador y la unica manera de buscar es usando google con la palabra clave SITE:, pero es engorroso hacerlo muchas veces y el foro es extenso.

Disculpen si los abrumo con informacion, sin embargo recien estoy aprendiendo a usar VB& y esta utilidad que quiero hacer me ayudaria mucho en mis busquedas, como en la de todos los usuarios del foro que participo.

DE ANTEMANO MUCHAS GRACIAS
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder