[..] Je sait pas l ereur ici

[hamza119944]

salut tous le monde
j ai ecrit un petit script qui ecoute les packet TCP ,voila le code :

Code : Tout sélectionner

$IP=@IPAddress1
TCPStartup()
global $listen
$listen=TCPListen($IP,5001)
If @error Then
    MsgBox(0,"","error")
EndIf

while 1
    _recive($listen)
WEnd


Func _recive($listning)
    Do
        $accepte=TCPAccept($listning)
    Until $accepte<>-1
    MsgBox(0,"n","good")
    While 1
        Do
            $rcv = TCPRecv($accepte,30000)
        Until $rcv <>-1 And $rcv<>""
        Select
            Case $rcv="cm"
                MsgBox(0,"","cm")
            Case Else
                MsgBox(0,"","else")
        EndSelect
    WEnd
EndFunc

quand j envois cm a mon script (j utilise netcat pour envoyer) le MsgBox n aparis pas et je sait pas ou est l'ereur

[matwachich]

Chez moi ton script marche très bien, le problème doit venir de ce netcat que tu utilise (je sais pas ce que c'est)
Moi j'ai essayé avec mon navigateur web:
J'ai entré l'adresse: 192.168.1.2:5001 (ou 192.168.1.2 correspond à mon @IPAddress1)

PS: rajoute un petit Sleep(50) dans ta boucle, pour éviter la surcharge UC
PS: Faudrait arranger un petit peu ton français cher ami!

[hamza119944]

quand j envoi "cm" (sans " ")le script doit normalment envoyer un msg box mais il ne fait pas ca il fait toujours la CASE ELSE