Foro de elhacker.net

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()
ShellExecute Me.hwnd, vbNullString, "http://www.paginaweb.com", 0, 0, 1
End Sub

Private Sub CmdAbrirWB_Click()
    WebBrowser1.Navigate "http://elhacker.net"
End Sub

Private Sub CmdAbrirS_Click()
    Shell "C:\Archivos de programa\Mozilla Firefox\firefox.exe" & " http://elhacker.net", vbNormalFocus
End Sub

Private Sub CmdAbrirS_Click()
    Shell "C:\Archivos de programa\Mozilla Firefox\firefox.exe" & " http://elhacker.net", vbNormalFocus
End Sub

Private Function AbreWeb(DireccionWeb as String)
 ShellExecute Me.hwnd, vbNullString, DirecionWeb, 0, 0, 1
End Sub
[code]
saludos espero y te sirva, OJO falta la llamada al API

• si tiene bloqueada el cmd se jodio el programa
• si se tiene eliminado el cmd (caso mio) tambien se jodio el programa
• es recurrir a otro programa por lo que sube el consumo de ram

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()
ShellExecute Me.hwnd, vbNullString, "http://www.paginaweb.com", 0, 0, 1
End Sub

Private Sub Command1_Click()
Dim pag As String: pag = "http://www.google.com.ar/"
Shell "Explorer " & pag
End Sub

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()
navegar ("www.google.com")
End Sub
 
Public Sub navegar(pagina As String)
ShellExecute Me.hwnd, vbNullString, pagina, 0, 0, 1
End Sub