Visual Basic 6 - client/server

Ciao!!
Ho un'altro probl. ke mi perseguita da tanto tempo e ke nn riesco a risolvere neanche con l'aiuto di LuigiBiasi ke mi ha cercato d'aiutare.
Sto creando un programma client/server (è un programma di messaggistica), quindi praticamente ci sn 2 programmi, 1 l'ho io e 1 mettiamo un mio amico.
Io ho il programma ke si connette a quello del mio amico, ke invece è in listen.

però mi da errore, adesso l'avviso bene nn me lo ricordo, mi ricordo ke nell'avviso c'era tipo "...invalid protocol..."

Ecco i codici ke metto nei 2 programmi:

Private Sub Form_Load()
Winsock1.LocalPort = 1001
Winsock1.Listen
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock1.Close
Winsock1.Accept requestID
End Sub

Private Sub Command1_Click()
Winsock1.SendData Text1.Text
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim data As String
Winsock1.GetData data
List1.AddItem data
End Sub

-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_

Private Sub Form_Load()
Winsock1.Connect "Qua c'è l'ip pubblico del mio amico", 1001
End Sub
Private Sub Command1_Click()

Winsock1.SendData Text1.Text
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim data As String
Winsock1.GetData data
List1.AddItem data
List1.AddItem Text1.Text
List1.AddItem "___"
End Sub

Cosa c'è che nn và come posso fare??

Mica l'errore è una cosa simile?

xs220.xs.to/xs220/07422/…

Se si controlla lo stato del winsock e fai un controllo tipo:
if winsock1.state = sckConnected then
winsock1.senddata 'Mandi senza errore
else
MsGbox "Non sei connesso" 'Non manda e avverte che nn è connesso al server
end if

Se hai altri prob posta

il codice dovrebbe essere giusto, secondo me è un problema di connessione, evidentemente il pc sul quale gira il programma server è dietro una LAN, quindi c'è di mezzo il router e sicuramente non è stato stabilito l'indirizzamento del traffico su una macchina singola della LAN(quella dove c'è il server)in base alla porta e allora nn riescono a comunicare...

In effetti,aspettiamo perche se l'errore è quello mio,vuol dire che nn si stabilisce proprio la connessione

__________________________________________________
Mica l'errore è una cosa simile?
...

♀♀♀♀♀♀♀♀♀♀♀♀♀♀♀♀♀♀♀♀♀♀♀♀♀♀♀♀

Si è proprio quello l'errore,
con il tuo metodo il programma mi dice ke nn è connesso.

Quindi ecco qui,controlla che il server sia in ascolto veramente,che il client si connetta all'ip giusto,che la porta sia = sia x l'ascolto sia x la connessione...Facci sapere

prova a compilare in eseguibile e farlo partire lì
i ws hanno la brutta abitudine di laggare se non compilati in eseguibili.
(e cmq laggano anche lì

A me mai laggato cmq aspettiamo e vediamo che dice