[aporte] Abrir Pagina Web Desde Vb
 

' Written exclusively for VB Center by Marco Cordero.

#If Win32 Then

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

#Else

Private Declare Function ShellExecute Lib _
"shell.dll" _
(ByVal hwnd As Integer, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Integer) As Integer

#End If

Private Const SW_SHOWNORMAL = 1
Private Sub Picture1_Click()

Dim iret As Long

' open URL into the default internet browser

iret = ShellExecute(Me.hwnd, _
vbNullString, _
"http://www.LA_PAGINA_KE_TENGAS_GANAS.com", _
vbNullString, _
"c:\", _
SW_SHOWNORMAL)

End Sub

Private Sub Form_Load()

End Sub

Private Sub URL_Click()

Dim iret As Long

' open URL into the default internet browser

iret = ShellExecute(Me.hwnd, _
vbNullString, _
"http://www.LA_PAGINA_KE_TENGAS_GANAS.com", _
vbNullString, _
"c:\", _
SW_SHOWNORMAL)

End Sub

woooooow se ve que la complicaste 1 poquito... :S

yo solo uso este codigo


shell "explorer.exe" & " www.google.com.ar",vbnormalfocus

y listo :D jejej todos contentos

FUERA DE JODA KE LE METI CODIGO PARA HACERSOPA AJAJAJAJ , LAVERDAD KE VOY A USAR EL TUYO :p GRACIAS

lo prove y no me anda, me dice "archivo o nombre incorrecto" aca te dejo micodigo
1er pruba
Shell "C:\Archivos de programa\Internet Explorer\iexplore.exe" & "WWW.GOOGLE.COM", vbNormalFocus
2da pruba:
shell "explorer.exe" & " www.google.com.ar",vbnormalfocus3er prueba (es la ke me sirve para la ayuda delsistema) ayudame en esta plss
shell "explorer.exe" & " c:\ayuda.html",vbnormalfocus