Проверка Кт

#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.3.14.0
 Author:         Grinya90

 Script Function:
    Автопроверка Кт

#ce ----------------------------------------------------------------------------

; Script Start - Add your code below here

UDPStartup()
$socket = UDPBind("192.168.0.10",54321)
While 1
$data = UDPRecv($socket,50)
   If $data <> "" Then CDTray("D:","open")

If DriveStatus("d:")="READY" Then
Run("D:\PicassoViewer.exe")

WinWaitActive("Picasso_Viewer")
WinActivate("Picasso_Viewer")
Sleep(1000)
MouseClick ("left",834,426,1,0)

WinWaitActive("Ez3D Plus")
WinWaitClose("Ez3D Plus")

ProcessClose("PicassoViewer.exe")

Sleep(2000)

CDTray("d:","open")

Sleep(15000)

CDTray("d:","closed")

DirRemove("C:\Ez3D2009\Picasso",1)
DirCreate("C:\Ez3D2009\Picasso")

EndIf

WEnd