Add(VBJScript,2544746,273,294)
{
 @Hint=#5:Поиск|36:Window-Заголовок окна в котором ищем|25:Color-Искомый цвет в Dec |11:(Ax-верх X)|11:(Ay-Верх Y)|10:(Bx-Низ X)|10:(By-Низ Y)|36:ColWalid-Допустимое отклонение цвета|28:Step-количество пропускаемых|9:пикселей.|15:onOUTx-выдает x|15:onOUTy-выдает y|16:если цвет найден|15:onOUT dвыдает 1|20:иначе onOUT выдает 0|
 WorkPoints=#6:doWork|
 EventPoints=#6:onOUTx|6:onOUTy|5:onOUT|
 DataPoints=#6:Window|5:Color|2:Ax|2:Ay|2:Bx|2:By|8:ColWalid|4:Step|
 Script=#11:Dim oAutoIt|24:Sub doWork (Data, Index)|46:Set oAutoIt = CreateObject("AutoItX3.Control")|0:|17:window=sys.Window|15:color=sys.Color|9:ax=sys.Ax|9:ay=sys.Ay|9:bx=sys.Bx|9:by=sys.By|18:walid=sys.ColWalid|11:st=sys.Step|0:|35:	if oAutoIt.WinExists (window) Then|34:		oAutoIt.WinActivate (window)    |19:		oAutoIt.sleep 500|32:		oAutoIt.WinWaitActive (window)|36:		xPos = oAutoIt.WinGetPosX (window)|36:		yPos = oAutoIt.WinGetPosY (window)|19:		sys.onOUT "poisk"|95: 		myResult = oAutoIt.PixelSearch(xPos + ax, yPos + ay, xPos + bx, yPos + by, color, walid, st)|26:		If IsArray(myResult)Then|51:		    oAutoIt.MouseMove myResult(0), myResult(1), 5|60:		   'oAutoIt.MouseClick "left", myResult(0), myResult(1), 3|29:  		   sys.onOUTx myResult(0)|29:  		   sys.onOUTy myResult(1)|20:  		   sys.onOUT "0"|6:		Else|21:			'MsgBox "Не нашли"|14:			sys.onOUT 1|9:		End If |5:	else|13:		sys.onOUT 2|31:		MsgBox("Запустите клиент!!!")|7:	End If|8:End Sub |
 UseName=0
}

Add(MainForm,2953706,21,105)
{
 Width=270
 Height=190
 Caption="Reg DLL"
}
Add(Button,11548175,21,210)
{
 Left=5
 Top=120
 Width=110
 Caption="Регистрация dll"
 link(onClick,3169127:doWork,[])
}
Add(VBJScript,3169127,84,210)
{
 @Hint=#34:Регистрация AutoItX3_dll в системе|
 WorkPoints=#6:doWork|
 EventPoints=#5:onOUT|
 Script=#20:On Error Resume Next|24:Sub doWork (Data, Index)|0:|42:Set oShell = CreateObject("WScript.Shell")|52:Set oFS = CreateObject("Scripting.FileSystemObject")|46:Set oAutoIt = CreateObject("AutoItX3.Control")|1: |29:If Not IsObject(oAutoIt) Then|35:    AutoItX3_dll = ".\AutoItX3.dll"|3:   |44:    If Not oFS.FileExists(AutoItX3_dll) Then|87:        MsgBox "AutoItX3.dll Not found." & vbCRLF & vbCRLF & "OK ==> EXIT", 16, "Error"|16:        exit Sub|10:    End If|3:   |67:    oShell.Exec "regsvr32.exe /S " & oFS.GetFile(AutoItX3_dll).Path|3:   |50:    Set oAutoIt = CreateObject("AutoItX3.Control")|3:   |33:    If Not IsObject(oAutoIt) Then|109:        MsgBox "Can not register the AutoItX3.Control object." & vbCRLF & vbCRLF & "OK ==> EXIT", 16, "Error"|16:        exit Sub|10:    End If|0:|6:End If|79:'================== AutoItX3.Control Object Check & Register ==================|1: |1: |35:'....Script content starts here....|0:|39:	if oAutoIt.WinExists("WoT Client")Then|59:     MsgBox("AutoItX3 успешно зарегистрирована в системе!")|16:	  sys.onOUT 1  |5:	else|13:		sys.onOUT 0|7:	End If|8:End Sub |
 UseName=0
}
Add(Label,5056016,21,154)
{
 Left=15
 Top=50
 Width=210
 Height=17
 Caption="Информация"
}