Originariamente inviato da nandoar
nessun errore semplicemente txtLog.AppendText("Tentativo di connessione fallito..." & vbCrLf)
Si, ma se il tentativo di connessione fallisce ci sarà un motivo. Dovresti fare in modo di visualizzare l'eccezione ricavata.

Inoltre ho visto questo:
For Porta = "1830" To "1840" Step "1"
Se da una parte funzionalmente è corretto, formalmente è un errore in quanto la variabile Porta è di tipo Integer e il range che hai fornito è di tipo String. Inoltre lo Step di default è 1, quindi è ininfluente inserirlo.
Così è formalmente più corretto:
codice:
for Porta = 1830  to  1840
Se il problema persiste, potresti resettare Winsock su WinXp ma prima vorrei conoscere il problema riscontrato..


Ciao