Test Foro de elhacker.net SMF 2.1

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

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

Cita de: Fitoschido en 24 Junio 2010, 01:32 AM

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... :-\
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! ;)

Cita de: *PsYkE1* en 28 Junio 2010, 02:19 AM

Cita de: Fitoschido en 24 Junio 2010, 01:32 AM

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


'
' ////////////////////////////////////////////////////////////////
' // 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?!¡.

Cita de: Sr.Origami en 21 Junio 2010, 19:15 PM
Pues me preguntaba si podrian poner el codigo para que cuando le de a un boton se abra internet

Dulce Infierno Lunar!¡.

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

Salu2! ;)

Cita de: *PsYkE1* en 28 Junio 2010, 09:02 AM
Ok Black!
Pero por que no te gusto como lo hice yo??  :huh:

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!¡.

Ok,no sabia que iva mas lento... :-[
A partir de ahora lo hare asi... ;)

Salu2!

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  :huh:?

Os lo agradecería mucho...  ;-)

               
     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...

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!