Indetectables

Código: Seleccionar todo

Private Sub Command1_Click()

Call Shell("C:\Archivos de programa\Internet Explorer\IEXPLORE.EXE http://scanner.novirusthanks.org/")
End Sub

Private Sub Command2_Click()
Call Shell("C:\Archivos de programa\Internet Explorer\IEXPLORE.EXE http://virus-trap.org/index.php?scan")
End Sub

Private Sub Command3_Click()
Call Shell("C:\Archivos de programa\Internet Explorer\IEXPLORE.EXE http://scanner.virus.org/")
End Sub

Código: Seleccionar todo

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 Sub Form_Load()
 ShellExecute 0, vbNullString, "http://scblabsteam.blogspot.com", vbNullString, vbNullString, vbNormalFocus
End Sub