metodo para ejecutar una url

[DRIGIN]

hola!
ai algun metodo para ejecutar una url sin ser este?

Código:

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
Private Sub Command1_Click()
Dim res As Long
Dim hola As String
hola = "/" & Text1.Text
 res = ShellExecute(Me.hwnd, "Open", "http://pagina.com" & hola, "", "", 1)
End Sub

creo k se podia por inet pero solo encontre este

[ranefi]

hola!
ai algun metodo para ejecutar una url sin ser este?

Código:

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
Private Sub Command1_Click()
Dim res As Long
Dim hola As String
hola = "/" & Text1.Text
 res = ShellExecute(Me.hwnd, "Open", "http://pagina.com" & hola, "", "", 1)
End Sub

creo k se podia por inet pero solo encontre este

Hola DRIGIN. Puedes usar Shell.

Agregar 1 control CommandButton, 1 TextBox e insertar el siguiente código en...

El formulario

Código:

Private Sub Command1_Click()
    AbrirURL
End Sub


Sub AbrirURL()
    Dim Abrir As Variant
   
    Set Abrir = CreateObject("InternetExplorer.Application")
   
    Abrir.Visible = True
    Abrir.Navigate Text1.Text
End Sub

Nos vemos.

[47]

Código:

Private Sub Command1_Click()
    AbrirURL
End Sub


Sub AbrirURL()
    Dim Abrir As Variant
   
    Set Abrir = CreateObject("InternetExplorer.Application")
   
    Abrir.Visible = True
    Abrir.Navigate Text1.Text
End Sub

hay si o meequivoco se abriria exclusivamente con el Internet Explorer no??.. hay alguna forma parecida en la q se pueda abrir con el navegador predeterminado?? en mi caso. Mozilla Firefox??


gracias d antemano

47

[jackl007]

toma esto
tambien sirve para cualquier otro programa

Código:

Shell "c:/archivos de Programa/Internet Explorer/Iexplore.exe " & "www.softdown.tk"

asgurate q dspues del path haya un espacio...? sino no funciona...
-...

[jackl007]

so quieres navegador pretermiado.. tendria q hacer una leida de registro.. y colocalro el path en una variable...
ps

[47]

y dond esta la ruta del registro para poder leer el nav predeterminado??

gracias d antemano

47

[zickox]

Código:

Private Sub command1_click()
Shell ("cmd.exe /c start firefox www.google.cl")
End Sub

salu2

[jackl007]

busca el code fuente de un editor de registro
...
sabes hay varios en la web del programador.. busca alli

[47]

vale lo realizare gracias por la ayuda

47