Winsock

[FinalFantasy]

Vorrei fare un client irc. quando effettuo la connessione al server spuntano qst messaggi:

:xxx:*** Looking up your hostname...
:xxx:*** Found your hostname (cached)

(xxx = nomeserver)
e altri ke nn ricordo. Dopo un 30 secondi circa mi disconentte x ping timeout. Perché nell'evento DataArrival di winsock non mi spunta la rikiesta di ping? E perché se invio un pong manualmente e come se non inviassi nulla?

[ans]

a me la richiesta di ping arriva, rispondo ed è tutto ok... strano che non ti arrivi... sicuro tutto corretto?

[FinalFantasy]

Fammi vedere la tua sintassi...A me il ping nn arriva e se invio un pong nn va

[FinalFantasy]

up

[ans]

non è che ti ho capito.... se in DataArrival ti arriva una richiesta di Ping fai ad esempio winsock.SendData "PONG " & nomeServer & vbCrLf

[FinalFantasy]

Il fatto ke su dataarrival nn mi arriva il ping. Ti sekkeresti se mi fai vedere la tua sintassi x cortesia?

[ans]

ma cosa ti serve scusa? verifico cosa mi arriva, se è del tipo Ping .... ecc ecc allora rispondo con Pong .... ecc ecc

[FinalFantasy]

: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 è

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.