que le pasa a mi bicho???????

[Psyke1]

Hola amigos!! les cuento mi problema:
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 [Seleccionar] Expandir


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


[Nanoc]

Aparentemente no veo donde falla el codigo al conectar, poniendo 127.0.0.1 en la ip no conecta?

[Psyke1]

q va arranco el server y el client en mi pc pongo ip 127.0.0.1 y no m funciona, en vez del winsck utilizo el cSocketMaster...
q puede pasar??
si kieres te envio el codigo x correo aer si encuentras tu el fallo...

gracias

[Nanoc]

Has posteado los codigos completos? no veo donde declaras el objeto WS y.. si eso esta bien... prueba a colocar un msgbox en el WS_ConnectionRequest y si te salta el cuadro es que la conexion si se establece, por lo tanto el error esta en otra parte

[Psyke1]

si he posteado todo - el cSocketMaster, voy ha hacer lo del msgbox aer si funciona...
pero me extraña...

gracias

[Nanoc]

A mi me suena que si usas Csocketmaster antes tienes que declarar algo asi en el form_load()

Código [Seleccionar] Expandir


Dim WithEvents ws As CSocketMaster
Set ws = New CSocketMaster


[LeandroA]

Viagra?  a no es otro bicho , si la Csocketmaster tiene ese problema con la ip suponiendo que estas haciendo todo bien, proba con 127.0.0.3 o con tu ip de red local

saludos.

saludos.

[Nanoc]

127.0.0.3 es lo mismo que 127.0.0.1 y la ip de la red local tambien, si no funciona con localhost no va a funcionar por mas ip que pongas, el error tiene que estar en el codigo

[seba123neo]

en estos casos es mejor postear el proyecto entero, porque nadie se va a poner a armar el ejemplo.

[Psyke1]

ya esta, era lo de declarar el csocketmaster, pero tengo otro problema:

lo pruebo con mi ip local en un ordenador sin conexion a internet y funciona, lo pruebo en el ordenador q tengo internet y no funciona...
sera x el firewall o el antivirus???

gracias por vuestra ayuda