Autor
|
Tema: Internet en VB??? (Leído 2,760 veces)
|
Sr.Origami
Desconectado
Mensajes: 24
|
Pues me preguntaba si podrian poner el codigo para que cuando le de a un boton se abra internet
|
|
|
En línea
|
|
|
|
Fitoschido
|
Private Sub Label1_Click() Shell "C:\Archivos de programa\Internet Explorer\IExplore.exe http://www.google.com", vbMaximizedFocus End Sub
|
|
|
En línea
|
El que sabe hace, el que no enseñaMiembro oficial del proyecto Ubuntu, traductor de LibreOffice/Ubuntu/Xfce/Gnome.
|
|
|
Psyke1
Wiki
Desconectado
Mensajes: 1.089
|
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!
|
|
« Última modificación: 28 Junio 2010, 02:27 am por *PsYkE1* »
|
En línea
|
|
|
|
BlackZeroX
Wiki
Desconectado
Mensajes: 3.158
I'Love...!¡.
|
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! 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?!¡. Pues me preguntaba si podrian poner el codigo para que cuando le de a un boton se abra internet
Dulce Infierno Lunar!¡.
|
|
« Última modificación: 28 Junio 2010, 08:28 am por BlackZeroX▓▓▒▒░░ »
|
En línea
|
The Dark Shadow is my passion.
|
|
|
Psyke1
Wiki
Desconectado
Mensajes: 1.089
|
Ok Black! Pero por que no te gusto como lo hice yo?? Salu2!
|
|
|
En línea
|
|
|
|
BlackZeroX
Wiki
Desconectado
Mensajes: 3.158
I'Love...!¡.
|
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!¡.
|
|
« Última modificación: 28 Junio 2010, 09:12 am por BlackZeroX▓▓▒▒░░ »
|
En línea
|
The Dark Shadow is my passion.
|
|
|
Psyke1
Wiki
Desconectado
Mensajes: 1.089
|
Ok,no sabia que iva mas lento... A partir de ahora lo hare asi... Salu2!
|
|
|
En línea
|
|
|
|
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...
|
|
|
En línea
|
|
|
|
Angeldj27
Desconectado
Mensajes: 199
Ahorra Agua... Beba Cerveza
|
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...
|
|
|
En línea
|
"Que vamos a hacer Mañana?..... Lo mismo que hacemos todos los dias Pinky tratar de Conquistar el Mundoooo!!!!!
|
|
|
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!
|
|
|
En línea
|
|
|
|
|
|