Aggiornamento: Sono riuscito a far si che il server si metta in ascolto sulla porta 165, ho ritoccato un pò il codice, io in questo topic ti ho postato 2 codici diversi del server, forse tu hai usato quello corretto, comunque ecco quello che funziona:
Dim host As IPAddress = IPAddress.Parse("192.168.1.188")
Dim mySock As Socket
Dim ip As IPHostEntry
Dim ep As IPEndPoint
Dim listener As TcpListener
ep = New IPEndPoint(host, 165)
mySock = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
listener = New TcpListener(ep)
listener.Start()
While True
mySock = listener.AcceptSocket()
End While
e questo è quello che non funzionava:
Dim host As IPAddress
Dim mySock As Socket
Dim ip As IPHostEntry
Dim ep As IPEndPoint
Dim listener As TcpListener
ip = Dns.GetHostEntry(Dns.GetHostName())
host = IPAddress.Parse(ip.AddressList(0).ToString())
ep = New IPEndPoint(host, 165)
mySock = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
listener = New TcpListener(ep)
listener.Start()
While True
mySock = listener.AcceptSocket()
msg(mySock)
End While
Se lo analizzi, noti una piccola differenza...
Sta di fatto che ora con quel comando DOS appare che la porta 165 è in listening.
Quindi il problema mio sta nel pezzetto di codice
ip = Dns.GetHostEntry(Dns.GetHostName())
host = IPAddress.Parse(ip.AddressList(0).ToString())
usando infatti questo codice per ricavare l' IP locale, non so perchè ma viene un IP diverso da quello che dovrebbe essere...
E chi userà il programma riterrà scorretto dover inserire ogni volta manualmente il proprio IP locale... c'è un altro modo per ricavarlo?
Altra cosa purtroppo:
Ora si, è in listening sulla porta 165, ma dal client stesso errore:
Impossibile stabilire la connessione. Risposta non corretta della parte connessa dopo l'intervallo di tempo oppure mancata risposta dall'host collegato 79.19.211.40:165
Però è anche vero che se al server gli dico di connettersi all' IP locale del mio PC piuttosto che a "79.19.211.40", che è quello del mio router, il programma funziona perfettamente...
MA PERCHE' SEMPRE A ME TUTTI QUESTI PROBLEMI DA X-FILES!? xD