buenas queria saber como es el codigo para abrir una pagina web desde visual basic6 solo al dar click en el boton
saludos.
Código: Seleccionar todo
Private Sub Command1_Click()
Dim pagina As String
pagina = "http://www.indetectables.net"
Shell "Explorer " & pagina
End SubUn saludo
Sí, con eso te servirá, ese pequeño código lo uso para alguna aplicación propia. Lo malo es que necesito tener el navegador abierto o no funciona correctamente xD
Puedes usar este otro, funciona perféctamente:
Lo modificas como quieras, textbox, cmdbutton..
Lo encontré en [Enlace externo eliminado para invitados]
Puedes usar este otro, funciona perféctamente:
Código: Seleccionar todo
' ---------- MODULO
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
Public Const conSwNormal = 1
' ---------- FORMULARIO
ShellExecute hwnd, "open", "http://www.tutores.org", vbNullString, vbNullString, conSwNormalLo encontré en [Enlace externo eliminado para invitados]
UDTools.net
GitHub: https://github.com/MetalUDT
GitHub: https://github.com/MetalUDT
Código: Seleccionar todo
Option Explicit
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
Private Const SW_SHOWNORMAL = 1
Private Sub Command1_Click()
Call ShellExecute(Me.hwnd, vbNullString, "http://indetectables.net", vbNullString, vbNullString, SW_SHOWNORMAL)
End SubRoke, que casualidad encontrarte...
Mira...
1º Añade un webbrowser
2º Vete al source del webbrowser
3º Pon esto:
ahi editas la web que sea...
Saludos
Mira...
1º Añade un webbrowser
2º Vete al source del webbrowser
3º Pon esto:
Código: Seleccionar todo
webbrowser1.navigate = "google.es"ahi editas la web que sea...
Saludos
Esperando a la liberacion del source de Delphi...
