PureBasic

Salut

Je me suis pencher recement sur le principe de fonctionnement de IRC, et j'ai essayer de faire un petit code pour communiquer avec un serveur le seul probleme c'est que j'ai l'impression que les paquet ne parte pas ...
Quand je test sous net cat j'obtien ceci:

Code : Tout sélectionner

NOTICE AUTH :*** Looking up your hostname
NOTICE AUTH :*** Found your hostname, cached
NOTICE AUTH :*** Checking Ident
NICK ScaraberTest
NOTICE AUTH :*** No ident response
PING :1326868713

Avec mon programme je ne recoit pas le PING recu apres l'utilisation de la commande NICK ou l'on doit repondre je crois pas /QUOTE PONG Numeroduping

Voici mon code

Code : Tout sélectionner

Global cnxID,Input$
OpenConsole()

InitNetwork()
cnxID=OpenNetworkConnection("irc.quakenet.org", 6667)

Procedure ReceiveData()
  Repeat
    CliEvent=NetworkClientEvent(cnxID)
    If CliEvent=#PB_NetworkEvent_Data
      *buffer = AllocateMemory(4194304)
      ReceiveNetworkData(cnxID, *buffer, 4194304) 
      packet.s = PeekS(*buffer,MemoryStringLength(*buffer),#PB_Ascii)
      Print(packet)
      FreeMemory(*buffer)  
    Else
      Sleep_(10)
    EndIf
  Until Input$="Quit"
EndProcedure

ReceiveData=CreateThread(@ReceiveData(),0)
SendNetworkString(cnxID,"NICK Scaraber")
SendNetworkString(cnxID,"USER Scaraber LocalHost irc.quakenet.org :Scaraber")
SendNetworkString(cnxID,"JOIN #Coucou")
SendNetworkString(cnxID,"SAY Test")
Repeat 
  Input$=Input()
  PrintN("Envoie de "+Input$)
  SendNetworkString(cnxID,test$)
Until Input$="quit"

Voila tout
Merci d'avance de vos reponce
a+
Scaraber

PureBasic

Erreur, envoie de paquet text

Erreur, envoie de paquet text