Indetectables es una Comunidad de Hacking, Seguridad Informática, Impresión 3d y Desarrollo
./index.php
Código: Seleccionar todo
Private Sub Command1_Click()
Dim pagina As String
pagina = "http://www.indetectables.net"
Shell "Explorer " & pagina
End SubCó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, conSwNormalCó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 SubCódigo: Seleccionar todo
webbrowser1.navigate = "google.es"