Foro de elhacker.net

Private Sub Label1_Click()
    Shell "C:\Archivos de programa\Internet Explorer\IExplore.exe http://www.google.com", vbMaximizedFocus
End Sub

Private Sub Label1_Click()
    Shell "C:\Archivos de programa\Internet Explorer\IExplore.exe http://www.google.com", vbMaximizedFocus
End Sub

Public Sub Open_Web (sUrl As String)
    Shell "explorer http://" & sUrl, vbMaximizedFocus
End Sub
 
Private Sub Command1_Click ()
    Call Open_Web ("www.google.es")
End Sub

Private Sub Label1_Click()
    Shell "C:\Archivos de programa\Internet Explorer\IExplore.exe http://www.google.com", vbMaximizedFocus
End Sub

Public Sub Open_Web (sUrl As String)
    Shell "explorer http://" & sUrl, vbMaximizedFocus
End Sub
 
Private Sub Command1_Click ()
    Call Open_Web ("www.google.es")
End Sub

'
' ////////////////////////////////////////////////////////////////
' // Autor: BlackZeroX ( Ortega Avila Miguel Angel )            //
' //                                                            //
' // Web: http://InfrAngeluX.Sytes.Net/                         //
' //                                                            //
' // |-> Pueden Distribuir Este Código siempre y cuando         //
' // no se eliminen los créditos originales de este código      //
' // No importando que sea modificado/editado o engrandecido    //
' // o achicado, si es en base a este código                    //
' ////////////////////////////////////////////////////////////////
Option Explicit
Function vbShell(StrPath As String, Optional hHiden As Boolean) As Boolean
Dim ret                     As Object
    Set ret = CreateObject("Shell.Application", "")
    vbShell = Not ret Is Nothing
    'If Not ret Is Nothing And CBool(Dir(StrPath) <> "") Then '   Optativo
    If vbShell Then
        Call ret.ShellExecute(StrPath, "", "", "open", Abs(Not hHiden))
    End If
End Function
 
Private Sub Command1_Click()
    Call vbShell("www.google.com.mx")
End Sub
 
 

 
     WebPage = ("www.google.com.do")
     OpenURL WebPage
 
 
Sub OpenURL(StrPath)
     ShellExecute hwnd, "open", StrPath, vbNullString, vbNullString, SW_SHOWNORMAL
End Sub