Beiträge von KriZza

  • "Oder" - Abfrage wird als "Und" gewertet?

    Heute hab ich´s auch. Bei mir wird die Abfrage in Zeile 18 als "and" gewertet. Es müsste ja nur eins der beiden geprüft werden beim "or"....


    Kann das jemand nachvollziehen?

  • Variablenname in for-Schleife hochzählen

    Das wird bei dem Skript leider sehr umständlich die Variablen neu anzupassen, da ich diesen Vorgang wohl für 30-40 Funktionen durchführen werde.

    Wie würde denn ein Beispiel für Assign / Eval aussehen? Hätte da jemand einen Tipp für mich anhand des Beispiels von meinem 1. Post?

    Also so in etwa stelle ich mir das vor... Klappt aber nicht:

  • Variablenname in for-Schleife hochzählen

    Moin zusammen,

    kurze Frage, und ich habe kein passendes Beispiel gefunden, bzw. ich habe ein Brett vorm Kopf ;)

    Wie zähle ich in einer for schleife den Variablennamen hoch?

    Hochgezählt werden soll:
    $STATION1[5], $STATION2[5], $STATION3[5], $STATION4[5], $STATION5[5], $STATION6[5], $STATION7[5], $STATION8[5], $STATION9[5]
    $flabelnote1, $flabelnote2, $flabelnote3, $flabelnote4, $flabelnote5, $flabelnote16, $flabelnote7, $flabelnote8, $flabelnote9

  • Dynamische Varibale -- aus Funktion

    Danke :)

    hier meine Lösung:

  • Dynamische Varibale -- aus Funktion

    ja, noch wird nichts wichtiges "returned", das kommt aber noch. das mit dem Handle ist eine gute idee.

    Aber wie weise ich die wieder eindeutig der Funktion zu? Also eine Funktion und momentan zwei Stationen die erstellt werden. Ich hab gerade einfach ein Knoten im Kopf :(

  • Dynamische Varibale -- aus Funktion

    Moin zusammen,

    ich hoffe ihr könnt mir helfen. Wie ist es möglich aus einer Funktion eine dynamische Variable zu bekommen. Im folgenden Beispiel möchte ich gerne die Inhalte der Inputboxen ausgeben lassen?

  • AutoIt und .csv excel

    Das Problem liegt an deiner Datei... Dein Trenner ist ein Semikolen und im Inhalt (HTML) kommen syntaxbedingt auch die Trenner vor. Ich schau mal

    Mich wurdert sowieso warum die Datei sich so im Original öffnen lässt :D

    //EDIT
    Also: Einzige Chance die ich sehe ist die Standardtrennzeichen beim erstellen deiner CSV zu ändern. Du hast viele Infos wie z.B. ü usw drin die könntest du theoretisch auch mit StringReplace($newstring2,"ü","ü") ändern.
    Jedoch hast du auch Befehle drin wie z.B: border-bottom: 1px solid; --- HINTEN DAS SEMIKOLEN für deine neue Reihe.

    Wenns möglich ist, erstell die CSV mit einem anderen Trennzeichen, ich glaub das geht in der Systemsteuerung von Windows, lass das Script von Oben durchlaufen und dann sollte es gehen.

  • AutoIt und .csv excel

  • Excel Zellen auslesen und Dateien öffnen

    Ja der Quellpfad zu deinen Bilddateien. Denk auch dran die Endung jeweils in .BMT wieder umzubenennen.

    Und natürlich die excelzellen Zeile 18-19 anzupassen. Momentan wird nur A1 bis B1 ausgelesen. Ich weil nicht wie deine Quelldatei aussieht.

    Um einen Fehler auszuschließen nimmst du statt "run" >>> "shellexecute" das zeigt den Dateinamen an falls diese nicht gefunden werden

  • Excel Zellen auslesen und Dateien öffnen

    Hier bitte :P :

    Du musst halt nur über dein "anderes" programm die zeilen 18 und 19 dynamisch anpassen lassen.

    - Die Datei (Zeile 8 muss angepasst werden)
    - Aus BMP (hab ich zum testen genutzt) kannste wieder dein Format benutzen. (Zeile 29-33)

    Edit: Hab noch einen kleinen Fehler in der "For" -Schleife angepasst.

  • Setup/Update-Routine komplett in AutoIT

    Moin zusammen,

    ich möchte nun auch mal gerne ein Script von mir vorstellen. Naja die Basis dafür und einige Funktionen habe ich mir hier aus dem Forum "genommen" (Als Basis "DeepRed92's Install Creator (in Arbeit)" @DeepRed92) und ("ZIP - Packen / Entpacken mit Windows eigener Funktion" @BugFix) Vielen Dank dafür. Aber in der Kombi sind die Schnippsel noch nicht verwendet worden.

    Um was geht es? Eine Setup-Routine / Installations-Routine oder auch Update-Routine für euer Programm.

    Features:
    - Pfad auslesen um ein Update direkt zu erkennen
    - Eine Routine zum Registrieren mit Upload auf einen FTP Server
    - Erstellen eines Backups falls ihr ein Update macht
    - Installation euer hinterlegten Programmdaten
    - Erstellung von Shortcuts im Startmenü, Desktop und Taskbar.

    How-To:
    Ihr passt das Script nach euren Bedürfnissen an. D.h.:
    - Ihr tragt optional die Verbindunsdaten zu eurem FTP-Server ein
    - Ihr tragt eure Programme in der Funktion "_installroutine" (Zeile 424 ff.) und beim ProcessClose (Zeile 350 ff.) ein.
    - Ihr erstellt eine Grafik (164x314 px) und ein Icon und hinterlegt diese beim Script in den Unterordner "Ressourcen"
    - Ihr kompiliert das Script mit dem Autoit3Wrapper und fügt vorher auf dem Register "Resource Update" im Feld "Extra resource Fields" die kompletten Pfade zu eueren Dateien ein. Denkt auch an die Grafik und das Icon.

    Über Anregungen, Kritik und Fragen freue ich mich natürlich.

    Viele Grüße,
    KriZza

  • DeskStream 2 Release Candidate 1.8

    Ja werde ich machen. Das dauert allerdings noch etwas ;) Kann immer nur nebenbei daran arbeiten und da fehlen noch ein paar wichtige Funktionen.

    @Andy du Hast geschrieben, dass du noch irgendwo eine Version hast, in der Tastaturanschläge übermittelt werden? Hast du die noch zufällig parat? Das wäre die Mega-Funktion überhaupt. :)

  • DeskStream 2 Release Candidate 1.8

    So habe mich einmal ein bisschen probiert und ein ziemlich lauffähiges Multi-TCP-Thumbnail-Server-Client System aufgesetzt. :D ... danke für das TCP Script an Protex (TCP Chat) Das als Basis gedient hat.

    Eine GUI gibt es nicht. Ich nutze die Bilder als Basis um die in einer GUI weiter zu verarbeiten.

    Server:

    [autoit]


    #include <Array.au3>
    #include <EditConstants.au3>
    #include <WindowsConstants.au3>
    #Include <GuiEdit.au3>
    #include <TCP_own2.au3>
    #include <File.au3>
    #include <GUIConstantsEx.au3>
    Global $userArray[1], $DataString
    $hConsole = GUICreate("Server",200,200,1,1)
    $hConsoleList = GUICtrlCreateEdit("",10,10,180,180,$ES_READONLY)
    _consoleWrite('Server gestartet!')
    _consoleWrite('Server IP : ' &@IPAddress1)
    GUISetState()
    $hServer = _TCP_Server_Create(88)
    _TCP_RegisterEvent($hServer, $TCP_NEWCLIENT, "NewClient")
    _TCP_RegisterEvent($hServer, $TCP_DISCONNECT, "Disconnect")
    _TCP_RegisterEvent($hServer, $TCP_RECEIVE, "_Received")
    While 1
    $msg = GUIGetMsg()
    if $msg = $GUI_EVENT_CLOSE Then Exit
    WEnd
    Func _consoleWrite($String)
    $DataString = $DataString&@CRLF&$String
    GUICtrlSetData($hConsoleList,$DataString)
    _GUICtrlEdit_LineScroll($hConsoleList, 0, _GUICtrlEdit_GetLineCount($hConsoleList))
    EndFunc
    Func _FormatRecieved($String)
    $aArray = StringSplit($String,'~',2)
    Return $aArray
    EndFunc
    Func _Received($hSocket, $sReceived, $iError)
    $sReceived = _FormatRecieved($sReceived)
    If $sReceived[0] = 'clientAdd' Then
    _UserArraydel($sReceived[1],$hSocket, $iError)
    _UserArrayAdd($sReceived[1],$hSocket, $iError)
    ElseIf $sReceived[0] = 'clientdel' Then
    _UserArraydel($sReceived[1],$hSocket, $iError)
    Else
    $nickworkname = IniRead(@ScriptDir & "\CODE\thumbnailadd.cw1",@IPAddress1,"Workname","notfound")
    $FILEREC = @ScriptDir & "\DATA\"&$nickworkname&".jpg"
    ;~ MsgBox(0,"",$sReceived[0])
    $openfile = FileOpen($FILEREC,26)
    $openfile2 = BinaryToString($sReceived[0])
    $openfile2 = StringTrimLeft($openfile2,11)
    $NEWDATA = StringToBinary($openfile2)
    FileWrite($openfile,$NEWDATA)
    FileClose($openfile)
    ENdif
    EndFunc
    Func NewClient($hSocket, $iError)
    _TCP_Send($hSocket, 'Connected')
    EndFunc
    Func Disconnect($hSocket, $iError)
    _consoleWrite("Client verlassen."&@CRLF&"(Socket: "&$hSocket&')')
    EndFunc
    Func _UserArrayAdd($Nick,$hSocket, $iError)
    IniWrite(@ScriptDir & "\CODE\thumbnailadd.cw1",@IPAddress1,"Workname",$Nick)
    _consoleWrite("Client verbunden!"&@CRLF&"(Nickname: "&$Nick& " Socket: "&$hSocket&')')
    _ArrayAdd($userArray,$Nick)
    _sendUserArray($hSocket,$iError)
    EndFunc
    Func _UserArraydel($Nick,$hSocket, $iError)
    $index = _ArraySearch($userArray,$Nick,1,UBound($userArray)-1)
    If $index > 0 Then
    _ArrayDelete($userArray,$index)
    _sendUserArray($hSocket, $iError)
    EndIf
    EndFunc
    Func _sendUserArray($hSocket, $iError)
    $userString = _ArrayToString($userArray)
    _TCP_Server_Broadcast('userArray~'&$userString)
    EndFunc

    [/autoit]

    Client:

    [autoit]


    #include <Date.au3>
    #include <EditConstants.au3>
    #include <File.au3>
    #include <GDIPlus.au3>
    #include <GUIConstantsEx.au3>
    #include <IE.au3>
    #include <WinAPI.au3>
    #include <WindowsConstants.au3>
    #include <TCP_own2.au3>
    #include <Array.au3>
    #include <ScreenCapture.au3>
    #include <GDIPlus.au3>
    #include-once
    Global $GUITitle="Multi-TCP-Screenshot-Transfer"
    Global $BackColor = 0xFFFFFF
    Global $ServerPort = 88
    Global $NickName = @IPAddress1
    Global $ServerIP = @IPAddress1
    Global $constatus = 'Disconnected'
    Global $hSocket, $iError, $hClient
    Global $connected = False
    Global $LastSendString
    Global $FILE = @ScriptDir & "\CODE\thumbnail.jpg"
    _Try2Connect()
    While 1
    _ScreenCapture_Capture($FILE, 0, 0, -1, -1, True)
    _GDIPlus_Startup()
    $h_img = _ImageResize($FILE, 70, 44,$FILE)
    _GDIPlus_Shutdown ()
    Sleep(2000)
    If $constatus = 'Connected' Then _Try2Send()
    If $constatus = 'Disconnected' and $connected = False Then _Try2Connect()
    WEnd
    Func _Try2Connect()
    If $connected = False Then
    $hClient = _TCP_Client_Create($ServerIP, 88)
    _TCP_RegisterEvent($hClient, $TCP_CONNECT, "_Connected")
    _TCP_RegisterEvent($hClient, $TCP_RECEIVE, "_Received")
    _TCP_RegisterEvent($hClient, $TCP_DISCONNECT, "_Disconnected")
    Else
    _Disconnected($hClient, $iError)
    EndIf
    EndFunc
    Func _Connected()
    _TCP_Send($hClient,'clientAdd~'&$NickName)
    $constatus = 'Connected'
    Global $connected = True
    EndFunc
    Func _FormatRecieved($String)
    $aArray = StringSplit($String,'~',2)
    Return $aArray
    EndFunc
    Func _Received($hClient, $sReceived, $iError)
    $sReceived = _FormatRecieved($sReceived)
    If $sReceived[0] = 'Connected' Then
    _Connected()
    EndIf
    EndFunc
    Func _Disconnected($hClient, $iError)
    $connected = False
    $constatus = 'Disconnected'
    _TCP_Send($hClient,'clientdel~'&$NickName)
    _TCP_Client_Stop($hClient)
    EndFunc
    Func _Try2Send()
    $fileopen = FileOpen($FILE)
    $Readfile = FileRead($fileopen)
    _TCP_Send($hClient, 'picdesktop~'&$Readfile)
    FileClose($fileopen)
    EndFunc
    Func _exit()
    TCPShutdown()
    Exit
    EndFunc
    Func _ImageResize($sInImage, $newW, $newH, $sOutImage = "")
    Local $oldImage, $GC, $newBmp, $newGC
    If $sOutImage = "" Then _GDIPlus_Startup()
    ; Load Image
    $oldImage = _GDIPlus_ImageLoadFromFile($sInImage)
    ;Create New image
    $GC = _GDIPlus_ImageGetGraphicsContext($oldImage)
    $newBmp = _GDIPlus_BitmapCreateFromGraphics($newW, $newH, $GC)
    $newGC = _GDIPlus_ImageGetGraphicsContext($newBmp)
    ;Draw
    _GDIPlus_GraphicsDrawImageRect($newGC, $oldImage, 0, 0, $newW, $newH)
    ;Clenaup
    _GDIPlus_GraphicsDispose($GC)
    _GDIPlus_GraphicsDispose($newGC)
    _GDIPlus_ImageDispose($oldImage)
    If $sOutImage = "" Then
    Return $newBmp ;
    Else
    _GDIPlus_ImageSaveToFile($newBmp, $sOutImage)
    _GDIPlus_BitmapDispose($newBmp)
    _GDIPlus_Shutdown()
    Return 1
    EndIf
    EndFunc ;==>_ImageResize

    [/autoit]

    Include TCP_own2.au3

    [autoit]


    #cs ----------------------------------------------------------------------------
    AutoIt Version: 3.3.0.0
    Author: Kip
    Script Function:
    TCP UDF v3
    #ce ----------------------------------------------------------------------------
    ; Script Start - Add your code below here
    #cs
    Functions:
    _TCP_Server_Create($iPort, $sIP="0.0.0.0")
    _TCP_Server_Broadcast($sData)
    _TCP_Server_ClientList()
    _TCP_Server_ClientIP($hSocket)
    _TCP_Server_DisconnectClient($hSocket)
    _TCP_Server_Stop()
    _TCP_Client_Create($sIP , $iPort)
    _TCP_Client_Stop($hSocket)
    _TCP_Send($hSocket, $sText)
    _TCP_RegisterEvent($hSocket, $iEvent, $sFunction)
    Register event values:
    $TCP_SEND ; Function ($hSocket, $iError)
    $TCP_RECEIVE ; Function ($hSocket, $sReceived, $iError)
    $TCP_CONNECT ; Function ($hSocket, $iError) => Client only
    $TCP_DISCONNECT ; Function ($hSocket, $iError)
    $TCP_NEWCLIENT ; Function ($hSocket, $iError) => Server only
    #ce
    Global Const $FD_READ = 1
    Global Const $FD_WRITE = 2
    Global Const $FD_OOB = 4
    Global Const $FD_ACCEPT = 8
    Global Const $FD_CONNECT = 16
    Global Const $FD_CLOSE = 32
    Global $hWs2_32 = -1
    Global Const $TCP_SEND = 1
    Global Const $TCP_RECEIVE = 2
    Global Const $TCP_CONNECT = 4
    Global Const $TCP_DISCONNECT = 8
    Global Const $TCP_NEWCLIENT = 16
    TCPStartup()
    Global Const $__TCP_WINDOW = GUICreate("Async Sockets UDF")
    Global $__TCP_SOCKETS[1][7]
    ; #FUNCTION# ;===============================================================================
    ;
    ; Name...........: _TCP_Server_Create
    ; Description ...: Initializes the server.
    ; Syntax.........: _TCP_Server_Create($iPort, $sIP="0.0.0.0")
    ; Parameters ....: $iPort - The port number the server should listen to.
    ; $sIP - IP address. (Default = "0.0.0.0")
    ; Return values .: The socket handle.
    ; Author ........: Kip
    ; Modified.......:
    ; Remarks .......: Only 1 server can be created per script.
    ; Related .......:
    ; Link ..........;
    ; Example .......;
    ;
    ; ;==========================================================================================
    Func _TCP_Server_Create($iPort, $sIP="0.0.0.0")
    Local $hListenSocket = ___ASocket()
    ___ASockSelect( $hListenSocket, $__TCP_WINDOW, 0x0400, $FD_ACCEPT)
    GUIRegisterMsg( 0x0400, "___TCP_OnAccept" )
    ___ASockListen( $hListenSocket, $sIP, $iPort )
    $__TCP_SOCKETS[0][0] = $hListenSocket
    $__TCP_SOCKETS[0][1] = 0x0400
    Return $hListenSocket
    EndFunc
    Func ___TCP_OnAccept($hWnd, $iMsgID, $WParam, $LParam)
    Local $hSocket = $WParam
    Local $iError = ___HiWord( $LParam )
    Local $iEvent = ___LoWord( $LParam )
    Local $hClient, $uBound
    Abs($hWnd) ; Stupid AU3Check...
    If $iMsgID = $__TCP_SOCKETS[0][1] Then
    If $iEvent = $FD_ACCEPT Then
    If Not $iError Then
    ReDim $__TCP_SOCKETS[UBound($__TCP_SOCKETS)+1][7]
    $uBound = UBound($__TCP_SOCKETS)
    $hClient = TCPAccept($hSocket)
    ___ASockSelect($hClient, $__TCP_WINDOW, 0x0400 + $uBound - 1, BitOR($FD_READ, $FD_WRITE, $FD_CLOSE))
    GUIRegisterMsg(0x0400 + $uBound - 1, "___TCP_Server_OnSocketEvent" )
    $__TCP_SOCKETS[UBound($__TCP_SOCKETS)-1][0] = $hClient
    $__TCP_SOCKETS[UBound($__TCP_SOCKETS)-1][1] = 0x0400 + $uBound - 1
    Call($__TCP_SOCKETS[0][6], $hClient, $iError)
    Else
    Call($__TCP_SOCKETS[0][6], 0, $iError)
    EndIf
    ElseIf $iEvent = $FD_CONNECT Then
    Call($__TCP_SOCKETS[0][4], $hSocket, $iError)
    EndIf
    EndIf
    EndFunc
    ; #FUNCTION# ;===============================================================================
    ;
    ; Name...........: _TCP_Client_Stop
    ; Description ...: Stops the client.
    ; Syntax.........: _TCP_Client_Stop($hSocket)
    ; Parameters ....: $hSocket - Client socket.
    ; Return values .: Success - True
    ; Failure - False
    ; Author ........: Kip
    ; Modified.......:
    ; Remarks .......: The client socket is the return value of _TCP_Client_Create().
    ; Related .......:
    ; Link ..........;
    ; Example .......;
    ;
    ; ;==========================================================================================
    Func _TCP_Client_Stop($hSocket)
    Local $iElement, $i
    $iElement = 0
    For $i = 1 to UBound($__TCP_SOCKETS)-1
    If $__TCP_SOCKETS[$i][0] = $hSocket Then
    $iElement = $i
    ExitLoop
    EndIf
    Next
    If $iElement Then
    ___ASockShutdown($__TCP_SOCKETS[$iElement][0])
    TCPCloseSocket($__TCP_SOCKETS[$iElement][0])
    ___ArrayDelete($__TCP_SOCKETS, $iElement)
    Return True
    EndIf
    Return False
    EndFunc
    ; #FUNCTION# ;===============================================================================
    ;
    ; Name...........: _TCP_Server_Stop
    ; Description ...: Stops the server, and closes all client connections.
    ; Syntax.........: _TCP_Server_Stop()
    ; Parameters ....:
    ; Return values .: True
    ; Author ........: Kip
    ; Modified.......:
    ; Remarks .......:
    ; Related .......:
    ; Link ..........;
    ; Example .......;
    ;
    ; ;==========================================================================================
    Func _TCP_Server_Stop()
    Local $i
    ___ASockShutdown($__TCP_SOCKETS[0][0])
    TCPCloseSocket($__TCP_SOCKETS[0][0])
    $__TCP_SOCKETS[0][0] = ""
    $__TCP_SOCKETS[0][1] = ""
    $__TCP_SOCKETS[0][2] = ""
    $__TCP_SOCKETS[0][3] = ""
    $__TCP_SOCKETS[0][4] = ""
    $__TCP_SOCKETS[0][5] = ""
    $__TCP_SOCKETS[0][6] = ""
    For $i = UBound($__TCP_SOCKETS)-1 to 1 Step -1
    ___ArrayDelete($__TCP_SOCKETS, $i)
    Next
    Return True
    EndFunc
    Func ___TCP_Server_OnSocketEvent( $hWnd, $iMsgID, $WParam, $LParam )
    Local $hSocket = $WParam
    Local $iError = ___HiWord( $LParam )
    Local $iEvent = ___LoWord( $LParam )
    Local $sDataBuff, $iElement, $i
    Abs($hWnd)
    $hSocket = 0
    $iElement = 0
    For $i = 1 to UBound($__TCP_SOCKETS)-1
    If $__TCP_SOCKETS[$i][1] = $iMsgID Then
    $hSocket = $__TCP_SOCKETS[$i][0]
    $iElement = $i
    ExitLoop
    EndIf
    Next
    If $hSocket Then
    Switch $iEvent
    Case $FD_READ
    $sDataBuff = TCPRecv($hSocket, 8192)
    Call($__TCP_SOCKETS[0][2], $hSocket, $sDataBuff, $iError)
    Case $FD_WRITE
    Call($__TCP_SOCKETS[0][3], $hSocket, $iError)
    Case $FD_CLOSE
    ___ASockShutdown($hSocket)
    TCPCloseSocket($hSocket)
    Call($__TCP_SOCKETS[0][5], $hSocket, $iError)
    ___ArrayDelete($__TCP_SOCKETS, $iElement)
    EndSwitch
    EndIf
    EndFunc
    ; #FUNCTION# ;===============================================================================
    ;
    ; Name...........: _TCP_Server_DisconnectClient
    ; Description ...: Disconnects a client of the server.
    ; Syntax.........: _TCP_Server_DisconnectClient($hSocket)
    ; Parameters ....: $hSocket - Client socket.
    ; Return values .: Success - True
    ; Failure - False
    ; Author ........: Kip
    ; Modified.......:
    ; Remarks .......: The client socket is the $hSocket parameter of a _TCP_RegisterEvent callback function.
    ; Related .......:
    ; Link ..........;
    ; Example .......;
    ;
    ; ;==========================================================================================
    Func _TCP_Server_DisconnectClient($hSocket)
    Local $iElement, $i
    $iElement = 0
    For $i = 1 to UBound($__TCP_SOCKETS)-1
    If $__TCP_SOCKETS[$i][0] = $hSocket Then
    $iElement = $i
    ExitLoop
    EndIf
    Next
    If $iElement Then
    ___ASockShutdown($hSocket)
    TCPCloseSocket($hSocket)
    ___ArrayDelete($__TCP_SOCKETS, $iElement)
    Return True
    EndIf
    Return False
    EndFunc
    ; #FUNCTION# ;===============================================================================
    ;
    ; Name...........: _TCP_Server_ClientList
    ; Description ...: Returns the sockets of all connected clients.
    ; Syntax.........: _TCP_Server_ClientList()
    ; Parameters ....:
    ; Return values .: An 1 dimensional array of all connected clients.
    ; Author ........: Kip
    ; Modified.......:
    ; Remarks .......:
    ; Related .......:
    ; Link ..........;
    ; Example .......;
    ;
    ; ;==========================================================================================
    Func _TCP_Server_ClientList()
    Local $aReturn[1], $i
    For $i = 1 to UBound($__TCP_SOCKETS)-1
    If $__TCP_SOCKETS[$i][0] Then
    ReDim $aReturn[UBound($aReturn)+1]
    $aReturn[UBound($aReturn)-1] = $__TCP_SOCKETS[$i][0]
    EndIf
    Next
    $aReturn[0] = UBound($aReturn)-1
    Return $aReturn
    EndFunc
    ; #FUNCTION# ;===============================================================================
    ;
    ; Name...........: _TCP_Server_Broadcast
    ; Description ...: Sends data to all connected clients.
    ; Syntax.........: _TCP_Server_Broadcast($sData)
    ; Parameters ....: $sData - The data to send.
    ; Return values .: True
    ; Author ........: Kip
    ; Modified.......:
    ; Remarks .......:
    ; Related .......:
    ; Link ..........;
    ; Example .......;
    ;
    ; ;==========================================================================================
    Func _TCP_Server_Broadcast($sData)
    Local $i
    For $i = 1 to UBound($__TCP_SOCKETS)-1
    If $__TCP_SOCKETS[$i][0] Then TCPSend($__TCP_SOCKETS[$i][0], $sData)
    Next
    Return True
    EndFunc
    ; #FUNCTION# ;===============================================================================
    ;
    ; Name...........: _TCP_Client_Create
    ; Description ...: Creates a new client.
    ; Syntax.........: _TCP_Client_Create($sIP , $iPort)
    ; Parameters ....: $sIP - The IP address to connect to.
    ; $iPort - Port on which the created socket will be connected.
    ; Return values .: Client socket handle.
    ; Author ........: Kip
    ; Modified.......:
    ; Remarks .......:
    ; Related .......:
    ; Link ..........;
    ; Example .......;
    ;
    ; ;==========================================================================================
    Func _TCP_Client_Create($sIP , $iPort)
    ReDim $__TCP_SOCKETS[UBound($__TCP_SOCKETS)+1][7]
    local $hSocket = ___ASocket()
    $__TCP_SOCKETS[UBound($__TCP_SOCKETS)-1][0] = $hSocket
    $__TCP_SOCKETS[UBound($__TCP_SOCKETS)-1][1] = 0x0400 + (UBound($__TCP_SOCKETS)-1)
    ___ASockSelect( $hSocket, $__TCP_WINDOW, 0x0400 + (UBound($__TCP_SOCKETS)-1), BitOR( $FD_READ, $FD_WRITE, $FD_CONNECT, $FD_CLOSE ) )
    GUIRegisterMsg( 0x0400 + (UBound($__TCP_SOCKETS)-1), "___TCP_Client_OnSocketEvent" )
    ___ASockConnect( $hSocket, $sIP, $iPort )
    Return $hSocket
    EndFunc
    ; #FUNCTION# ;===============================================================================
    ;
    ; Name...........: _TCP_RegisterEvent
    ; Description ...: Registers an event.
    ; Syntax.........: _TCP_RegisterEvent($hSocket, $iEvent, $sFunction)
    ; Parameters ....: $hSocket - Socket of the server or a client.
    ; $iEvent - Event number. It can be any these values:
    ; * $TCP_SEND
    ; * $TCP_RECEIVE
    ; * $TCP_CONNECT => Client only
    ; * $TCP_DISCONNECT
    ; * $TCP_NEWCLIENT => Server only
    ; Return values .: Success - True
    ; Failure - False
    ; Author ........: Kip
    ; Modified.......:
    ; Remarks .......:
    ; Related .......:
    ; Link ..........;
    ; Example .......;
    ;
    ; ;==========================================================================================
    Func _TCP_RegisterEvent($hSocket, $iEvent, $sFunction)
    Local $iSelected = 0
    Local $i
    If $__TCP_SOCKETS[0][0] Then
    $iSelected = 0
    Else
    For $i = 0 to UBound($__TCP_SOCKETS)-1
    If $__TCP_SOCKETS[$i][0] = $hSocket Then
    $iSelected = $i
    ExitLoop
    EndIf
    Next
    If Not $iSelected Then Return 0
    EndIf
    Switch $iEvent
    Case $TCP_SEND
    $__TCP_SOCKETS[$iSelected][3] = $sFunction
    Case $TCP_RECEIVE
    $__TCP_SOCKETS[$iSelected][2] = $sFunction
    Case $TCP_CONNECT
    $__TCP_SOCKETS[$iSelected][4] = $sFunction
    Case $TCP_DISCONNECT
    $__TCP_SOCKETS[$iSelected][5] = $sFunction
    Case $TCP_NEWCLIENT
    $__TCP_SOCKETS[$iSelected][6] = $sFunction
    Case Else
    Return False
    EndSwitch
    Return True
    EndFunc
    ; #FUNCTION# ;===============================================================================
    ;
    ; Name...........: _TCP_Server_ClientIP
    ; Description ...: Converts a client socket handle to IP address.
    ; Syntax.........: _TCP_Server_ClientIP($hSocket)
    ; Parameters ....: $hSocket - Client socket handle.
    ; Return values .: A string with the IP address.
    ; Author ........: Unknown
    ; Modified.......: Kip
    ; Remarks .......:
    ; Related .......:
    ; Link ..........;
    ; Example .......;
    ;
    ; ;==========================================================================================
    Func _TCP_Server_ClientIP($hSocket)
    Local $pSocketAddress, $aReturn
    $pSocketAddress = DllStructCreate("short;ushort;uint;char[8]")
    $aReturn = DllCall("Ws2_32.dll", "int", "getpeername", "int", $hSocket, "ptr", DllStructGetPtr($pSocketAddress), "int*", DllStructGetSize($pSocketAddress))
    If @error Or $aReturn[0] <> 0 Then Return 0
    $aReturn = DllCall("Ws2_32.dll", "str", "inet_ntoa", "int", DllStructGetData($pSocketAddress, 3))
    If @error Then Return 0
    $pSocketAddress = 0
    Return $aReturn[0]
    EndFunc
    ; #FUNCTION# ;===============================================================================
    ;
    ; Name...........: _TCP_Send
    ; Description ...: Sends data to a server or client.
    ; Syntax.........: _TCP_Send($hSocket, $sText)
    ; Parameters ....: $hSocket - Client or server socket handle.
    ; $sText - Data to send.
    ; Return values .:
    ; Author ........: Kip
    ; Modified.......:
    ; Remarks .......:
    ; Related .......:
    ; Link ..........;
    ; Example .......;
    ;
    ; ;==========================================================================================
    Func _TCP_Send($hSocket, $sText)
    Return TCPSend($hSocket, $sText)
    EndFunc
    Func ___TCP_Client_OnSocketEvent( $hWnd, $iMsgID, $WParam, $LParam )
    Local $iError = ___HiWord( $LParam )
    Local $iEvent = ___LoWord( $LParam )
    Local $hSocket, $iElement, $i, $sDataBuff
    Abs($hWnd)
    Abs($WParam)
    $hSocket = 0
    $iElement = 0
    For $i = 1 to UBound($__TCP_SOCKETS)-1
    If $__TCP_SOCKETS[$i][1] = $iMsgID Then
    $hSocket = $__TCP_SOCKETS[$i][0]
    $iElement = $i
    ExitLoop
    EndIf
    Next
    If $hSocket Then
    Switch $iEvent
    Case $FD_READ; Data has arrived!
    $sDataBuff = TCPRecv( $hSocket, 8192)
    Call($__TCP_SOCKETS[$i][2], $hSocket, $sDataBuff, $iError)
    $sDataBuff = ""
    Case $FD_WRITE
    Call($__TCP_SOCKETS[$i][3], $hSocket, $iError)
    Case $FD_CONNECT
    Call($__TCP_SOCKETS[$i][4], $hSocket, $iError)
    Case $FD_CLOSE
    ___ASockShutdown( $hSocket )
    TCPCloseSocket( $hSocket )
    Call($__TCP_SOCKETS[$i][5], $hSocket, $iError)
    ___ArrayDelete($__TCP_SOCKETS, $iElement)
    EndSwitch
    EndIf
    EndFunc
    ;==================================================================================================================
    ;
    ; Zatorg's Asynchronous Sockets UDF Starts from here.
    ;
    ;==================================================================================================================
    Func ___ASocket($iAddressFamily = 2, $iType = 1, $iProtocol = 6)
    If $hWs2_32 = -1 Then $hWs2_32 = DllOpen( "Ws2_32.dll" )
    Local $hSocket = DllCall($hWs2_32, "uint", "socket", "int", $iAddressFamily, "int", $iType, "int", $iProtocol)
    If @error Then
    SetError(1, @error)
    Return -1
    EndIf
    If $hSocket[ 0 ] = -1 Then
    SetError(2, ___WSAGetLastError())
    Return -1
    EndIf
    Return $hSocket[ 0 ]
    EndFunc ;==>_ASocket
    Func ___ASockShutdown($hSocket)
    If $hWs2_32 = -1 Then $hWs2_32 = DllOpen( "Ws2_32.dll" )
    Local $iRet = DllCall($hWs2_32, "int", "shutdown", "uint", $hSocket, "int", 2)
    If @error Then
    SetError(1, @error)
    Return False
    EndIf
    If $iRet[ 0 ] <> 0 Then
    SetError(2, ___WSAGetLastError())
    Return False
    EndIf
    Return True
    EndFunc ;==>_ASockShutdown
    Func ___ASockClose($hSocket)
    If $hWs2_32 = -1 Then $hWs2_32 = DllOpen( "Ws2_32.dll" )
    Local $iRet = DllCall($hWs2_32, "int", "closesocket", "uint", $hSocket)
    If @error Then
    SetError(1, @error)
    Return False
    EndIf
    If $iRet[ 0 ] <> 0 Then
    SetError(2, ___WSAGetLastError())
    Return False
    EndIf
    Return True
    EndFunc ;==>_ASockClose
    Func ___ASockSelect($hSocket, $hWnd, $uiMsg, $iEvent)
    If $hWs2_32 = -1 Then $hWs2_32 = DllOpen( "Ws2_32.dll" )
    Local $iRet = DllCall( _
    $hWs2_32, _
    "int", "WSAAsyncSelect", _
    "uint", $hSocket, _
    "hwnd", $hWnd, _
    "uint", $uiMsg, _
    "int", $iEvent _
    )
    If @error Then
    SetError(1, @error)
    Return False
    EndIf
    If $iRet[ 0 ] <> 0 Then
    SetError(2, ___WSAGetLastError())
    Return False
    EndIf
    Return True
    EndFunc ;==>_ASockSelect
    ; Note: you can see that $iMaxPending is set to 5 by default.
    ; IT DOES NOT MEAN THAT DEFAULT = 5 PENDING CONNECTIONS
    ; 5 == SOMAXCONN, so don't worry be happy
    Func ___ASockListen($hSocket, $sIP, $uiPort, $iMaxPending = 5); 5 == SOMAXCONN => No need to change it.
    Local $iRet
    Local $stAddress
    If $hWs2_32 = -1 Then $hWs2_32 = DllOpen( "Ws2_32.dll" )
    $stAddress = ___SockAddr($sIP, $uiPort)
    If @error Then
    SetError(@error, @extended)
    Return False
    EndIf
    $iRet = DllCall($hWs2_32, "int", "bind", "uint", $hSocket, "ptr", DllStructGetPtr($stAddress), "int", DllStructGetSize($stAddress))
    If @error Then
    SetError(3, @error)
    Return False
    EndIf
    If $iRet[ 0 ] <> 0 Then
    $stAddress = 0; Deallocate
    SetError(4, ___WSAGetLastError())
    Return False
    EndIf
    $iRet = DllCall($hWs2_32, "int", "listen", "uint", $hSocket, "int", $iMaxPending)
    If @error Then
    SetError(5, @error)
    Return False
    EndIf
    If $iRet[ 0 ] <> 0 Then
    $stAddress = 0; Deallocate
    SetError(6, ___WSAGetLastError())
    Return False
    EndIf
    Return True
    EndFunc ;==>_ASockListen
    Func ___ASockConnect($hSocket, $sIP, $uiPort)
    Local $iRet
    Local $stAddress
    If $hWs2_32 = -1 Then $hWs2_32 = DllOpen( "Ws2_32.dll" )
    $stAddress = ___SockAddr($sIP, $uiPort)
    If @error Then
    SetError(@error, @extended)
    Return False
    EndIf
    $iRet = DllCall($hWs2_32, "int", "connect", "uint", $hSocket, "ptr", DllStructGetPtr($stAddress), "int", DllStructGetSize($stAddress))
    If @error Then
    SetError(3, @error)
    Return False
    EndIf
    $iRet = ___WSAGetLastError()
    If $iRet = 10035 Then; WSAEWOULDBLOCK
    Return True; Asynchronous connect attempt has been started.
    EndIf
    SetExtended(1); Connected immediately
    Return True
    EndFunc ;==>_ASockConnect
    ; A wrapper function to ease all the pain in creating and filling the sockaddr struct
    Func ___SockAddr($sIP, $iPort, $iAddressFamily = 2)
    Local $iRet
    Local $stAddress
    If $hWs2_32 = -1 Then $hWs2_32 = DllOpen( "Ws2_32.dll" )
    $stAddress = DllStructCreate("short; ushort; uint; char[8]")
    If @error Then
    SetError(1, @error)
    Return False
    EndIf
    DllStructSetData($stAddress, 1, $iAddressFamily)
    $iRet = DllCall($hWs2_32, "ushort", "htons", "ushort", $iPort)
    DllStructSetData($stAddress, 2, $iRet[ 0 ])
    $iRet = DllCall($hWs2_32, "uint", "inet_addr", "str", $sIP)
    If $iRet[ 0 ] = 0xffffffff Then; INADDR_NONE
    $stAddress = 0; Deallocate
    SetError(2, ___WSAGetLastError())
    Return False
    EndIf
    DllStructSetData($stAddress, 3, $iRet[ 0 ])
    Return $stAddress
    EndFunc ;==>__SockAddr
    Func ___WSAGetLastError()
    If $hWs2_32 = -1 Then $hWs2_32 = DllOpen( "Ws2_32.dll" )
    Local $iRet = DllCall($hWs2_32, "int", "WSAGetLastError")
    If @error Then
    ;ConsoleWrite("+> _WSAGetLastError(): WSAGetLastError() failed. Script line number: " & @ScriptLineNumber & @CRLF)
    SetExtended(1)
    Return 0
    EndIf
    Return $iRet[ 0 ]
    EndFunc ;==>_WSAGetLastError
    ; Got these here:
    ; http://www.autoitscript.com/forum/index.ph…620&hl=MAKELONG
    Func ___MakeLong($LoWord, $HiWord)
    Return BitOR($HiWord * 0x10000, BitAND($LoWord, 0xFFFF)); Thanks Larry
    EndFunc ;==>_MakeLong
    Func ___HiWord($Long)
    Return BitShift($Long, 16); Thanks Valik
    EndFunc ;==>_HiWord
    Func ___LoWord($Long)
    Return BitAND($Long, 0xFFFF); Thanks Valik
    EndFunc ;==>_LoWord
    ; ========================================= Array functions
    ; #FUNCTION# ====================================================================================================================
    ; Name...........: _ArrayDelete
    ; Description ...: Deletes the specified element from the given array.
    ; Syntax.........: _ArrayDelete(ByRef $avArray, $iElement)
    ; Parameters ....: $avArray - Array to modify
    ; $iElement - Element to delete
    ; Return values .: Success - New size of the array
    ; Failure - 0, sets @error to:
    ; |1 - $avArray is not an array
    ; |3 - $avArray has too many dimensions (only up to 2D supported)
    ; |(2 - Deprecated error code)
    ; Author ........: Cephas <cephas at clergy dot net>
    ; Modified.......: Jos van der Zande <jdeb at autoitscript dot com> - array passed ByRef, Ultima - 2D arrays supported, reworked function (no longer needs temporary array; faster when deleting from end)
    ; Remarks .......: If the array has one element left (or one row for 2D arrays), it will be set to "" after _ArrayDelete() is used on it.
    ; Related .......: _ArrayAdd, _ArrayInsert, _ArrayPop, _ArrayPush
    ; Link ..........;
    ; Example .......; Yes
    ; ===============================================================================================================================
    Func ___ArrayDelete(ByRef $avArray, $iElement)
    If Not IsArray($avArray) Then Return SetError(1, 0, 0)
    Local $iUBound = UBound($avArray, 1) - 1
    If Not $iUBound Then
    $avArray = ""
    Return 0
    EndIf
    ; Bounds checking
    If $iElement < 0 Then $iElement = 0
    If $iElement > $iUBound Then $iElement = $iUBound
    ; Move items after $iElement up by 1
    Switch UBound($avArray, 0)
    Case 1
    For $i = $iElement To $iUBound - 1
    $avArray[$i] = $avArray[$i + 1]
    Next
    ReDim $avArray[$iUBound]
    Case 2
    Local $iSubMax = UBound($avArray, 2) - 1
    For $i = $iElement To $iUBound - 1
    For $j = 0 To $iSubMax
    $avArray[$i][$j] = $avArray[$i + 1][$j]
    Next
    Next
    ReDim $avArray[$iUBound][$iSubMax + 1]
    Case Else
    Return SetError(3, 0, 0)
    EndSwitch
    Return $iUBound
    EndFunc ;==>_ArrayDelete

    [/autoit]