Ticket #1206: UDPListen.au3

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_outfile=UDPListen.exe
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <GUIConstantsEx.au3>

;Set VARS
        ;Packet Vars
        global $socketA
        global $myIP = @IPAddress1, $myPort = 5001

        ;Form Looping Vars
        global $loopNum=0,$dataTXT="",$Form1,$Label1


;Start App
        _startup()

        While 1
                $data = UDPRecv($socketA, 500)
                _updateForm($data)
        WEnd


Func _startup()
        ;Setup Form to show receiving packets
        $Form1 = GUICreate("Incoming UDP Packets", 633, 448, 193, 125)
        $Label1 = GUICtrlCreateLabel("PacketOut", 56, 24, 500, 345)
        GUISetState(@SW_SHOW)

        ;Init UDP
        UDPStartup()

        ;Open socket to receive
        $socketA = UDPBind($myIP, $myPort)
        If @error <> 0 Then
                msgbox(0,"Bind Error","Error: " & @error)
                Exit
        EndIf
EndFunc



Func _updateForm($data)
        ;Start Update Form:
        If $data == "" Then 
                $data="No data received..."
        Else
                $data="Data received: " & $data
        EndIf
        $loopNum += 1
        if $loopNum == 25 Then
                ;Clear form so it doesn't scroll off screen
                $dataTXT=""
                $loopNum=0
        EndIf
        $dataTXT &= @CRLF & $data
        GUICtrlSetData($Label1,$dataTXT)
EndFunc