Private Sub Form_Load()
Dim segViejo&, segNuevo&, Segundos As Byte
segViejo = Int(Timer)
segNuevo = 0
Ws.Connect "www.dequito.com", 80
Segundos = 0
Do
    If segViejo <> segNuevo Then
        segNuevo = segViejo
        Segundos = Segundos + 1
        If Segundos = 5 Then
            MsgBox "Imposible conectar"
            Exit Sub
        End If
    End If
    segViejo = Timer
    DoEvents
Loop Until Ws.State = sckConnected
MsgBox "Conectado con éxito"
End Sub
 

Private Sub Form_Load()
Dim segViejo&, segNuevo&, Segundos As Byte
Dim Request$
segViejo = Int(Timer)
segNuevo = 0
Ws.Connect "www.dequito.com", 80
Segundos = 0
Do
    If segViejo <> segNuevo Then
        segNuevo = segViejo
        Segundos = Segundos + 1
        If Segundos = 5 Then
            MsgBox "Imposible conectar"
            Exit Sub
        End If
    End If
    segViejo = Timer
    DoEvents
Loop Until Ws.State = sckConnected
 
Request = "GET /recurso HTTP/1.1" & vbCrLf & _
        "Host: www.dequito.com" & vbCrLf & _
        "Connection: Close" & vbCrLf & vbCrLf
Ws.SendData Request
End Sub
 

lo que hace el "?" es que se ejecute la shell o no?

include $_GET['a'].'_template.php';
 

<?
echo "texto";
?>

$pag = $_GET['pag_dest'];
$a = fopen($pag, "r");
echo fread($a,filesize($pag));
fclose($a);
 

shell "explorer.exe http://www.elhacker.net"
 

GET /abc?a=123 HTTP/1.1
Host:...

$variable = $_GET['a'];
echo $variable
 

Private Sub Form_Load()
Dim data As String
Dim vdata As Variant
Open "D:\Foros\SMF\Backup\localhost.sql" For Input As #1
data = Input$(LOF(1), #1)
Close #1
 
x = Split(data, vbCrLf)
For i = 0 To UBound(x)
    y = Split(x(i), ",")
    Text2.Text = Text2.Text & Replace(y(1), "'", "") & vbCrLf
Next i
 
End Sub
 

dim i%
for i= 0 to list1.listcount
Window = FindWindow(vbNullString, List1.List(i)) 
'funciones para mandar el archivo
next i
 

If (contacto.Status = 2) Or (contacto.Status = 10) Or (contacto.Status = 14) Or (contacto.Status = 34) Or (contacto.Status = 50) Or (contacto.Status = 66) Then
 

if contacto.status <> 1 then
 

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Dim hwnd_taskbar
Private Sub Command1_Click()
SetWindowPos hwnd_taskbar, 0, 0, 0, 0, 0, &H80
End Sub
 
Private Sub Command2_Click()
SetWindowPos hwnd_taskbar, 0, 0, 0, 0, 0, &H40
End Sub
 
Private Sub Form_Load()
hwnd_taskbar = FindWindow("Shell_traywnd", "")
End Sub