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
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


0