:irc.tuttoweb.net NOTICE AUTH :*** Looking up your hostname...

:irc.tuttoweb.net NOTICE AUTH :*** Checking ident...
:irc.tuttoweb.net NOTICE AUTH :*** Checking for open socks server...

:irc.tuttoweb.net NOTICE AUTH :*** Found your hostname

ERROR :Closing Link: [192.168.0.2] (Ping timeout)

Il codice è
codice:
Private Sub Form_Load()
    wnsirc.LocalPort = Val(6667)
    wnsirc.Connect "192.168.0.1", Val(6667)
End Sub

Private Sub wnsirc_DataArrival(ByVal bytesTotal As Long)
    Dim data As String
    wnsirc.GetData data
    Text1.Text = Text1.Text & vbCrLf & data
End Sub
Ke manca? Perché non mi arriva il ping?

Sto facendo dei test su un progetto a parte.