| Usuario |
Controlar NETSCAPE con VISUAL BASI... |
Desconocido
|
| Enviado - 19/11/2004 |
| |
Hola a tod@s!!!
Necesito controlar el browser NETSCAPE con un programa en VISUAL, basicamente tendria que abrir este explorador, introducir una URL y ejecutar la busqueda.
¿Sabeis que comandos (si existen) puedo utilizar?
He intentado con el INTERNET EXPLORER pero no me vale.
MUCHAS GRACIAS.
!!SALUDOS!!! |
| |
|
El Paisano
5 Mensaje(s) |
| Enviado - 19/11/2004 |
| |
El siguiente codigo te puede servir
public sub Algo()
Dim iret As Long
' open URL into the default internet browser
iret = ShellExecute(Me.hwnd, _
vbNullString, _
"www.fing.edu.uy", _
vbNullString, _
"c:\", _
SW_SHOWNORMAL)
end sub
Primero tenes que declarar
Private 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
|
| |
|
nostromo
503 Mensaje(s)
|
| Enviado - 22/11/2004 |
| |
Hola;
Es raro que no puedas, ya debes colocar un webbrowser en el form, un text y listo, obviamente con el commandbutton de "Ir a....".
Private Sub cmdIrUrl_Click()
Dim url As String
url = txtURL.Text
If url <> "" Then
webbrowser1.navigate (url)
End If
End Sub
En barra de herramientas debes colocar el Microsoft Internet Control
Nos vemos. |
| |
|
|
|
