Internet en VB???

[Sr.Origami]

Pues me preguntaba si podrian poner el codigo para que cuando le de a un boton se abra internet

[Fitoschido]

Código (vb) [Seleccionar] Expandir

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

[Psyke1]

Código (vb) [Seleccionar] Expandir

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

o.O
NO hace falta poner la ruta entera...

Código (vb) [Seleccionar] Expandir

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

Salu2!

[BlackZeroX]

Código (vb) [Seleccionar] Expandir

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

o.O
NO hace falta poner la ruta entera...

Código (vb) [Seleccionar] Expandir

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

Salu2!

Error:

Aunque sirve, pero el nombre del ejecutable de Internet Explorer es iexplore.exe

Código (vb) [Seleccionar] Expandir


'
' ////////////////////////////////////////////////////////////////
' // 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



P.D.: me pregunto... desde cuando se hacen trabajos a petición?!¡.

Pues me preguntaba si podrian poner el codigo para que cuando le de a un boton se abra internet

Dulce Infierno Lunar!¡.

[Psyke1]

Ok Black!
Pero por que no te gusto como lo hice yo?? 

Salu2!

[BlackZeroX]

Ok Black!
Pero por que no te gusto como lo hice yo??  

Salu2!

lo ejecute y se tardo mas (ejecute como explorer que es el explorador de windows) ahora si sustituyo por iexplore corrio al instante, por eso!¡ (Edito: tengo sueño y escribí mal).

Ojo lo hice en elEjecutar de Menu Inicio con shell de vb6.0 causa error si pones iexplore

Dulce Lunas!¡.

[Psyke1]

Ok,no sabia que iva mas lento...
A partir de ahora lo hare asi...

Salu2!

[randomcito]

Deacuerdo, eso es para IE.

¿Pero cómo se hace para que se abra el navegador predeterminado?

Pon que se lo pases a cientos de personas y unas tengan firefox, otras google chrome, otras flock, otras safari, otros detesten IE...

¿Cómo se haría eso  ?

Os lo agradecería mucho... 

[Angeldj27]

Código (vb) [Seleccionar] Expandir

               
     WebPage = ("www.google.com.do")
     OpenURL WebPage


Sub OpenURL(StrPath)
     ShellExecute hwnd, "open", StrPath, vbNullString, vbNullString, SW_SHOWNORMAL
End Sub


Aunque con el de Black te debe funcionar bien eso creo...

[randomcito]

Gracias, el de Black sí que funciona para lo que pedí antes (no me había fijado), uso Google Chrome como predeterminado y abre ese...

Me lo guardo, dejaré los créditos si hago algo con él... 

Saludos!