Domanda [HELP]Inviare un pacchetto TCP al server

[Dalek]

Ciao a tutti,
sono sicuro che tutti voi siete a conoscenza di MKLOL e che con la sua funziona puo' spammare messaggi in chat senza limitazioni.Ecco io vorrei sapere(avendo l'ip della chat) come inviare un mex tcp, ma invece di farlo per spammare lo vorrei fare per chiamare la lane prima che la selezione dei campioni si carichi(per chi che ha problemi di caricamento...come 2 sec dopo che sono entrati i altri).Mi e' venuta questa idea perche' a volte si puo' inviare un mex in chat prima del caricamento
Es.
Tizio: top
Tizio e' entrato nella chat
ecc.

In autoit ho provato(copia incolla!!:lal:

#include <GUIConstantsEx.au3>#include <MsgBoxConstants.au3>
Func MyTCP_Client($sIPAddress, $iPort)
    ; Assign a Local variable the socket and connect to a listening socket with the IP Address and Port specified.
    Local $iSocket = TCPConnect($sIPAddress, $iPort)
    Local $iError = 0


    ; If an error occurred display the error code and return False.
    If [MENTION=11728]error[/MENTION] Then
        ; The server is probably offline/port is not opened on the server.
        $iError = [MENTION=11728]error[/MENTION]
        MsgBox(BitOR($MB_SYSTEMMODAL, $MB_ICONHAND), "", "Client:" & @CRLF & "Could not connect, Error code: " & $iError)
        Return False
    EndIf


    ; Send the string "tata" to the server.
    TCPSend($iSocket, "........|..9.......o.:....4..d.+9.....J...l....m..*.Y.Y..Dp=.j.....ndV..2.K.R..u..#.I.V......1.B....H.......6t> ...0.4-..Q..xw.......n...0......T.m..!...+..P.9.....n.......v..5...i......`.4..dKZ........4J.{)..(=...q..|.. ..A..") ;il mex criptato(tanto devo scrivere le  lane non serve che le modifico


    ; If an error occurred display the error code and return False.
    If [MENTION=11728]error[/MENTION] Then
        $iError = [MENTION=11728]error[/MENTION]
        MsgBox(BitOR($MB_SYSTEMMODAL, $MB_ICONHAND), "", "Client:" & @CRLF & "Could not send the data, Error code: " & $iError)
        Return False
    EndIf


    ; Close the socket.
    TCPCloseSocket($iSocket)
EndFunc   ;==>MyTCP_Client

Local $sIPAddress = "*.*.*.*" ; This IP Address only works for testing on your own computer.
Local $iPort = * ; Port used for the connection.
mytcp_client($sIPAddress, $iPort)
TCPShutdown()