[Автоматизация] Бот для игры вконтакте Территория Фермеров.

warshadow · 2 Ноя 2010

1)Прочитал про библиотеку ImageSearch и просмотрел примеры, но что не заладилось с ней...
Картинки вроде пихал в корень папки AutoIT - это правильно, с расширением .bmp ?

Код:

Dim $x1
Dim $y1
if  GUICtrlRead($mish4)=$GUI_CHECKED Then
$result = _ImageSearch("Sirovarka.bmp",1,$x1,$y1,0)
if $result=1 Then
MouseMove($x1,$y1,3)
EndIf
EndIf

Не хочет искать...картинка маленькая(1х1)
2)Есть программа или как рассчитать в функции PixelSearch данный прямоугольник в котором будет осуществляться поиск пикселя, потому что у меня стоит

Код:

PixelSearch(0,0,@DesktopWidth,@DesktopHeight,0xFFFFF,0,1)

-- получается ищет пиксель по всему экрану.

Belfigor · 2 Ноя 2010

имиджсерч нет смысла использовать для поиска всего одного пикселя, для этого существует пиксельсерч.

warshadow · 2 Ноя 2010

Belfigor сказал(а):
имиджсерч нет смысла использовать для поиска всего одного пикселя, для этого существует пиксельсерч.

А есть программа рассчитывающая в функции PixelSearch данный прямоугольник в котором будет осуществляться поиск пикселя?

Belfigor · 2 Ноя 2010

вопроса не понял, приведи пример.

ancup · 6 Ноя 2010

Территория фермеров в одноклассниках.
сбор клевера делал путем поиска не одного цвета а нескольких, для открытия игры использовал IE8

Код:

Opt("WinWaitDelay",100)
Opt("WinTitleMatchMode",4)
Opt("WinDetectHiddenText",1)
Opt("MouseCoordMode",0)

WinWaitActive(" - Adobe Flash Player","")
Sleep(10000)

Func exitthescript ()
    Exit
EndFunc
HotKeySet ( "{F3}" , "exitthescript" )
$i=0
While $i<=20000
    $aCoord = PixelSearch(0, 0, 1280, 1024, 0xEE63DA)
    If @error <> 1 Then Func01($aCoord[0], $aCoord[1])
    Sleep(250)
	$aCoord = PixelSearch(0, 0, 1280, 1024, 0xE28AC6)
    If @error <> 1 Then Func01($aCoord[0], $aCoord[1])
    Sleep(250)
	$aCoord = PixelSearch(0, 0, 1280, 1024, 0x9D3584)
    If @error <> 1 Then Func01($aCoord[0], $aCoord[1])
    Sleep(250)
	$i=$i+1
WEnd
func Func01($x, $y)
MouseClick("left", $x, $y, 1)
endfunc

с посадкой и обработкой коров с сыроварнями возникли проблемы пришлось писать через координаты, что само собой не очень оптимально. (при уменьшении масштаба на минимум в окне игры и развертывании во весь экран все клетки поля всегда на своих местах) если кому то удалось это решить, буду рад помощи

warshadow · 8 Ноя 2010

ancup сказал(а):
Территория фермеров в одноклассниках.
сбор клевера делал путем поиска не одного цвета а нескольких, для открытия игры использовал IE8

Код:

Opt("WinWaitDelay",100) Opt("WinTitleMatchMode",4) Opt("WinDetectHiddenText",1) Opt("MouseCoordMode",0) WinWaitActive(" - Adobe Flash Player","") Sleep(10000) Func exitthescript () Exit EndFunc HotKeySet ( "{F3}" , "exitthescript" ) $i=0 While $i<=20000 $aCoord = PixelSearch(0, 0, 1280, 1024, 0xEE63DA) If @error <> 1 Then Func01($aCoord[0], $aCoord[1]) Sleep(250) $aCoord = PixelSearch(0, 0, 1280, 1024, 0xE28AC6) If @error <> 1 Then Func01($aCoord[0], $aCoord[1]) Sleep(250) $aCoord = PixelSearch(0, 0, 1280, 1024, 0x9D3584) If @error <> 1 Then Func01($aCoord[0], $aCoord[1]) Sleep(250) $i=$i+1 WEnd func Func01($x, $y) MouseClick("left", $x, $y, 1) endfunc

с посадкой и обработкой коров с сыроварнями возникли проблемы пришлось писать через координаты, что само собой не очень оптимально. (при уменьшении масштаба на минимум в окне игры и развертывании во весь экран все клетки поля всегда на своих местах) если кому то удалось это решить, буду рад помощи

С коровами аналогично через координаты задаю, спасибо за код...

ancup · 9 Ноя 2010

устал с коровами и заводами задавать каждый раз координаты или ставит ьв правильное положение, возникла идея сначала чтобы бот просил указать координаты заводов а потом щелкал по ним в техже местах, код сыроват, но похож на то что нужно, только не научился еще менюшки прицеплять. точнее сказать как приделать знаю но не знаю как использовать их в коде для введения значений

Код:

#include <Misc.au3>
Opt("WinWaitDelay", 100)
Opt("WinTitleMatchMode", 4)
Opt("WinDetectHiddenText", 1)
Opt("MouseCoordMode", 1)

;~ WinWaitActive("Adobe Flash Player","")  ;мозила файрфокс
;~ WinWaitActive(" - Adobe Flash Player","")  ;эксплорер


Global $Paused
HotKeySet("{PAUSE}", "TogglePause") ;пауза скрипта
HotKeySet("{F3}", "exitthescript") ;выход скрипта
HotKeySet("{F2}", "Func01") ;функция кликов по координатам

$dll = DllOpen("user32.dll")


Dim $x[10], $y[10]

For $i = 0 To 9 ; Заполнение массивов переменных кординат. тут чтото накосячил, плохо понимаю масивы
	$x[$i] = $i + 1
	$y[$i] = $i + 1
Next

$j = 1
While $j < 10

	Sleep(50)
	If _IsPressed("01", $dll) And _IsPressed("A2", $dll) Then
		$MousePos = MouseGetPos()
		$x[$j] = $MousePos[0]
		$y[$j] = $MousePos[1]
		$j = $j + 1
		Beep(700, 200)


	EndIf
WEnd

$z = 0
;;;; тело  бота
While $z <= 10    ; надо сделать окно какоенить чобы вставлять сколько циклов крутить бота
	Func01()
	Sleep(9000)
	$z = $z + 1
WEnd
DllClose($dll)
;;;;;;;;


Func Func01()
	MouseClick("left", $x[1], $y[1], 6)
	Sleep(1000)
	MouseClick("left", $x[2], $y[2], 6)
	Sleep(1000)
	MouseClick("left", $x[3], $y[3], 6)
	Sleep(1000)
	MouseClick("left", $x[4], $y[4], 6)
	Sleep(1000)
	MouseClick("left", $x[5], $y[5], 6)
	Sleep(1000)
	MouseClick("left", $x[6], $y[6], 6)
	Sleep(1000)
	MouseClick("left", $x[7], $y[7], 6)
	Sleep(1000)
	MouseClick("left", $x[8], $y[8], 6)
	Sleep(1000)
	MouseClick("left", $x[9], $y[9], 6)
	Sleep(1000)
; не удалось почемуто заюзать 10ю  позицию(((   чтото не так с масивом
EndFunc   ;==>Func01


Func exitthescript()
	Exit
EndFunc   ;==>exitthescript

Func TogglePause()
	$Paused = Not $Paused
	While $Paused
		Sleep(100)
		ToolTip('Бот остановлен"', 0, 0)
	WEnd
	ToolTip("")
EndFunc   ;==>TogglePause

и еще какойто заьык с масивами, при попытке прокликать 10ю точку вылетает с ошибкой
Добавлено:
Сообщение автоматически объединено: 9 Ноя 2010

короче нуно както собирать все воедино и награждать мордочкой кнопачками, и нагружать новыми возможностями
Добавлено:
Сообщение автоматически объединено: 9 Ноя 2010

и кажется что то с кнопкой пауза не так, она прерывает и все, а должна возобновлять

warshadow · 18 Ноя 2010

Проверил ваш код, он кликает в координату (0,0)
Может я конечно не так что-то понял..

Код:

IsPressed("01", $dll) And _IsPressed("A2", $dll)

01 Left mouse button
A2 Left CONTROL key
Хм..я пошел несколько по другому пути у меня есть бот координатор(где я задаю x,y горячей кнопкой), все конечно очень сильно заморочено до фига текстбоксов, но работает:

Код:

$vibr1 = GUICtrlCreateInput("", 1, 30,30,15)
GUICtrlSetBkColor(-1,0x010101)
GUICtrlSetState(-1, $GUI_DISABLE)
$vibr2=GUICtrlCreateInput("", 40, 30, 30, 15)
GUICtrlSetBkColor(-1,0x010101)
GUICtrlSetState(-1, $GUI_DISABLE)
$vibr3 = GUICtrlCreateInput("", 1, 50,30,15)
GUICtrlSetBkColor(-1,0x010101)
GUICtrlSetState(-1, $GUI_DISABLE)
$vibr4=GUICtrlCreateInput("", 40, 50, 30, 15)
GUICtrlSetBkColor(-1,0x010101)
GUICtrlSetState(-1, $GUI_DISABLE)
HotKeySet("{PGUP}", "clicker")
HotKeySet("{insert}", "playuse")
Func playuse()
	Call("play")
	EndFunc

func clicker()
	call("click")
	EndFunc
;==>Указание координат с помощью горячей клавиши
func click()
			
 $ii+=1
		 If $ii=1 Then
			 
		   $mas= GUICtrlSetData ($vibr1,MouseGetPos(0)) 
		    $mas1=  GUICtrlSetData ($vibr2,MouseGetPos(1)) 
		EndIf
		If $ii=2 Then
		   $mas= GUICtrlSetData ($vibr3,MouseGetPos(0)) 
		    $mas1=  GUICtrlSetData ($vibr4,MouseGetPos(1)) 
		EndIf
	          
   EndFunc
;==>

;==>Функционал Программы
 Func play()
$x=GUICtrlRead($vibr1)
						$y=GUICtrlRead($vibr2)
						$x1=GUICtrlRead($vibr3)
						$y1=GUICtrlRead($vibr4)
For $i=0 to $count
						If $x>1 and $y>1 Then
			            sleep($gh)
						
						MouseClick("left", $x, $y,3,10)
						EndIf
					If $x1>1 and $y1>1 Then
			            sleep($gh)
						MouseClick("left", $x1, $y1,3, 10)
					EndIf
Next
endfunc
;==>

ancup · 20 Ноя 2010

в моей последней сборке я навожу мышь на объект будущих кликов и прожимаю "контрол" для запоминания в массиве переменных координат, после задания всех координат, начинает работать цикл кликера делая по 6 кликов в каждой заданной точке.
warshadow не могли бы вы последний код выложить с самого начала, с определением переменных

warshadow · 2 Дек 2010

ancup сказал(а):
в моей последней сборке я навожу мышь на объект будущих кликов и прожимаю "контрол" для запоминания в массиве переменных координат, после задания всех координат, начинает работать цикл кликера делая по 6 кликов в каждой заданной точке.
warshadow не могли бы вы последний код выложить с самого начала, с определением переменных

Извините, давно не появлялся, да конечно, вот код

Код:

;10.04.10
;--------
;2.0beta->2.1F
;новая кнопка
;------------
;02.04.2010
;изменена версия 1.9-->2.0
;добавленно функция минимизация/максимизации окон
;измененно значение -19 на 19
;---------
#include <GUIConstants.au3>
#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>
#include <WinAPI.au3>
 Global $Height=260
   Global $hLabel
   Global $Paused
   Global $min
   Global $ii
   Global $ii2
   Global $pogr
  Global $mas,$hX,$hY
    ;$ii=$ii+1
   $Form1 = GUICreate("БОТ | Территория фермеров",$Height,450, 500)
   GUISetBkColor (0xD6E7C0) 
    $cmdCLose = GUICtrlCreateButton("Завершить", 90, 428, 70, 22)
	GUICtrlSetColor(-1,0x1D4E86)
   ; $cmdCLose2 = GUICtrlCreateButton("З2ь", 300, 429, 70, 20)
$Group2 = GUICtrlCreateGroup("",0, 23, 79, 395)
$Group3 = GUICtrlCreateGroup("", 84, 23, 80, 390)
$Group4 = GUICtrlCreateGroup("", 175, 20, 80, 390, 0)
$lblTimes = GUICtrlCreateLabel("Время", 70, 10, 35, 15)
$lblMc = GUICtrlCreateLabel("(мс)", 145, 10, 70, 20)
$sp=GUICtrlCreateInput("2000", 110, 10, 30, 15)


;$Group5 = GUICtrlCreateGroup("", 191, 142, 110, 60, 0)

;$MonthCal1 = GUICtrlCreateMonthCal("2010/03/28", 380, 10, 190, 155)

$lblVer = GUICtrlCreateLabel("Версия: 4.0.", 93, 415, 70, 11)
;$btTime = GUICtrlCreateLabel("Сегодня у нас:", 10, 10)+GUICtrlCreateLabel(@MDAY, 90, 10, 60, 20)+GUICtrlCreateLabel(".", 105, 10)+GUICtrlCreateLabel(@MON, 109, 10)+GUICtrlCreateLabel(".", 122, 10)+GUICtrlCreateLabel(@YEAR, 125, 10)+GUICtrlCreateLabel("\", 150, 10)+GUICtrlCreateLabel(@HOUR, 157, 10)+GUICtrlCreateLabel(":", 172, 10)+GUICtrlCreateLabel(@MIN, 175, 10)
$count=1000000
$n=0
$j=0
;$pogrblock=GUICtrlCreateButton("Разблокировать", 500, 240, 90, 15)
;$pogreshnost=GUICtrlCreateInput("0", 500, 210, 30, 15)
GUICtrlSetState(-1, $GUI_DISABLE)
;$lblpogresh=GUICtrlCreateLabel("Погрешность ", 400, 210, 100, 15)
$vibr1 = GUICtrlCreateInput("", 1, 30,30,15)
GUICtrlSetBkColor(-1,0x010101)
GUICtrlSetState(-1, $GUI_DISABLE)
$vibr2=GUICtrlCreateInput("", 40, 30, 30, 15)
GUICtrlSetBkColor(-1,0x010101)
GUICtrlSetState(-1, $GUI_DISABLE)
$vibr3 = GUICtrlCreateInput("", 1, 50,30,15)
GUICtrlSetBkColor(-1,0x010101)
GUICtrlSetState(-1, $GUI_DISABLE)
$vibr4=GUICtrlCreateInput("", 40, 50, 30, 15)
GUICtrlSetBkColor(-1,0x010101)
GUICtrlSetState(-1, $GUI_DISABLE)
$vibr5 = GUICtrlCreateInput("", 1, 70,30,15)
GUICtrlSetBkColor(-1,0x010101)
GUICtrlSetState(-1, $GUI_DISABLE)
$vibr6=GUICtrlCreateInput("", 40, 70, 30, 15)
GUICtrlSetBkColor(-1,0x010101)
GUICtrlSetState(-1, $GUI_DISABLE)
$vibr7 = GUICtrlCreateInput("", 1, 90,30,15)
GUICtrlSetBkColor(-1,0x010101)
GUICtrlSetState(-1, $GUI_DISABLE)
$vibr8=GUICtrlCreateInput("", 40, 90, 30, 15)
GUICtrlSetBkColor(-1,0x010101)
GUICtrlSetState(-1, $GUI_DISABLE)
$vibr9 = GUICtrlCreateInput("", 1, 110,30,15)
GUICtrlSetBkColor(-1,0x010101)
GUICtrlSetState(-1, $GUI_DISABLE)
$vibr10=GUICtrlCreateInput("", 40, 110, 30, 15)
GUICtrlSetBkColor(-1,0x010101)
GUICtrlSetState(-1, $GUI_DISABLE)
$vibr11 = GUICtrlCreateInput("", 1, 130,30,15)
GUICtrlSetBkColor(-1,0x010101)
GUICtrlSetState(-1, $GUI_DISABLE)
$vibr12=GUICtrlCreateInput("", 40, 130, 30, 15)
GUICtrlSetBkColor(-1,0x010101)
GUICtrlSetState(-1, $GUI_DISABLE)
$vibr13 = GUICtrlCreateInput("", 1, 150,30,15)
GUICtrlSetBkColor(-1,0x010101)
GUICtrlSetState(-1, $GUI_DISABLE)
$vibr14=GUICtrlCreateInput("", 40, 150, 30, 15)
GUICtrlSetBkColor(-1,0x010101)
GUICtrlSetState(-1, $GUI_DISABLE)
$vibr15 = GUICtrlCreateInput("", 1, 170,30,15)
GUICtrlSetBkColor(-1,0x010101)
GUICtrlSetState(-1, $GUI_DISABLE)
$vibr16=GUICtrlCreateInput("", 40, 170, 30, 15)  
GUICtrlSetBkColor(-1,0x010101)
GUICtrlSetState(-1, $GUI_DISABLE)
$vibr17 = GUICtrlCreateInput("", 1, 190,30,15)
GUICtrlSetBkColor(-1,0x010101)
GUICtrlSetState(-1, $GUI_DISABLE)
$vibr18=GUICtrlCreateInput("", 40, 190, 30, 15)
GUICtrlSetBkColor(-1,0x010101)
GUICtrlSetState(-1, $GUI_DISABLE)
$vibr19 = GUICtrlCreateInput("", 1, 210,30,15)
GUICtrlSetBkColor(-1,0x010101)
GUICtrlSetState(-1, $GUI_DISABLE)
$vibr20=GUICtrlCreateInput("", 40, 210, 30, 15)
GUICtrlSetBkColor(-1,0x010101)
GUICtrlSetState(-1, $GUI_DISABLE)
$vibr21 = GUICtrlCreateInput("", 1, 230,30,15)
GUICtrlSetBkColor(-1,0xFFAA3C)
GUICtrlSetState(-1, $GUI_DISABLE)
$vibr22=GUICtrlCreateInput("", 40, 230, 30, 15)
GUICtrlSetBkColor(-1,0xFFAA3C)
GUICtrlSetState(-1, $GUI_DISABLE)
$vibr23 = GUICtrlCreateInput("", 1, 250,30,15)
GUICtrlSetBkColor(-1,0xFFAA3C)
GUICtrlSetState(-1, $GUI_DISABLE)
$vibr24=GUICtrlCreateInput("", 40, 250, 30, 15)
GUICtrlSetBkColor(-1,0xFFAA3C)
GUICtrlSetState(-1, $GUI_DISABLE)
$vibr25 = GUICtrlCreateInput("", 1, 270,30,15)
GUICtrlSetBkColor(-1,0xFFAA3C)
GUICtrlSetState(-1, $GUI_DISABLE)
$vibr26=GUICtrlCreateInput("", 40, 270, 30, 15)
GUICtrlSetBkColor(-1,0xFFAA3C)
GUICtrlSetState(-1, $GUI_DISABLE)
$vibr27 = GUICtrlCreateInput("", 1, 290,30,15)
GUICtrlSetBkColor(-1,0xFFAA3C)
GUICtrlSetState(-1, $GUI_DISABLE)
$vibr28=GUICtrlCreateInput("", 40, 290, 30, 15)
GUICtrlSetBkColor(-1,0xFFAA3C)
GUICtrlSetState(-1, $GUI_DISABLE)
$vibr29 = GUICtrlCreateInput("", 1, 310,30,15)
GUICtrlSetBkColor(-1,0xFFAA3C)
GUICtrlSetState(-1, $GUI_DISABLE)
$vibr30=GUICtrlCreateInput("", 40, 310, 30, 15)
GUICtrlSetBkColor(-1,0xFFAA3C)
GUICtrlSetState(-1, $GUI_DISABLE)
$vibr31 = GUICtrlCreateInput("", 1, 330,30,15)
GUICtrlSetBkColor(-1,0xFFAA3C)
GUICtrlSetState(-1, $GUI_DISABLE)
$vibr32=GUICtrlCreateInput("", 40, 330, 30, 15)
GUICtrlSetBkColor(-1,0xFFAA3C)
GUICtrlSetState(-1, $GUI_DISABLE)
$vibr33= GUICtrlCreateInput("", 1, 350,30,15)
GUICtrlSetBkColor(-1,0xFFAA3C)
GUICtrlSetState(-1, $GUI_DISABLE)
$vibr34=GUICtrlCreateInput("", 40, 350, 30, 15)
GUICtrlSetBkColor(-1,0xFFAA3C)
GUICtrlSetState(-1, $GUI_DISABLE)
$vibr35= GUICtrlCreateInput("", 1, 370,30,15)
GUICtrlSetBkColor(-1,0xFFAA3C)
GUICtrlSetState(-1, $GUI_DISABLE)
$vibr36=GUICtrlCreateInput("", 40, 370, 30, 15)
GUICtrlSetBkColor(-1,0xFFAA3C)
GUICtrlSetState(-1, $GUI_DISABLE)
$vibr37= GUICtrlCreateInput("", 90, 30,30,15)
GUICtrlSetBkColor(-1,0xFFAA3C)
GUICtrlSetState(-1, $GUI_DISABLE)
$vibr38=GUICtrlCreateInput("", 125, 30, 30, 15)
GUICtrlSetBkColor(-1,0xFFAA3C)
GUICtrlSetState(-1, $GUI_DISABLE)
$vibr39= GUICtrlCreateInput("", 90, 50,30,15)
GUICtrlSetBkColor(-1,0xFFAA3C)
GUICtrlSetState(-1, $GUI_DISABLE)
$vibr40=GUICtrlCreateInput("", 125, 50, 30, 15)
GUICtrlSetBkColor(-1,0xFFAA3C)
GUICtrlSetState(-1, $GUI_DISABLE)
$vibr41= GUICtrlCreateInput("", 90, 70,30,15)
GUICtrlSetBkColor(-1,0xFFAA3C)
GUICtrlSetState(-1, $GUI_DISABLE)
$vibr42=GUICtrlCreateInput("", 125, 70, 30, 15)
GUICtrlSetBkColor(-1,0xFFAA3C)
GUICtrlSetState(-1, $GUI_DISABLE)
$vibr43= GUICtrlCreateInput("", 90, 90,30,15)
GUICtrlSetBkColor(-1,0xFFAA3C)
GUICtrlSetState(-1, $GUI_DISABLE)
$vibr44=GUICtrlCreateInput("", 125, 90, 30, 15)
GUICtrlSetBkColor(-1,0xFFAA3C)
GUICtrlSetState(-1, $GUI_DISABLE)
$vibr45= GUICtrlCreateInput("", 90, 110,30,15)
GUICtrlSetBkColor(-1,0xFFAA3C)
GUICtrlSetState(-1, $GUI_DISABLE)
$vibr46=GUICtrlCreateInput("", 125, 110, 30, 15)
GUICtrlSetBkColor(-1,0xFFAA3C)
GUICtrlSetState(-1, $GUI_DISABLE)
$vibr47= GUICtrlCreateInput("", 90, 130,30,15)
GUICtrlSetBkColor(-1,0xFFAA3C)
GUICtrlSetState(-1, $GUI_DISABLE)
$vibr48=GUICtrlCreateInput("", 125, 130, 30, 15)
GUICtrlSetBkColor(-1,0xFFAA3C)
GUICtrlSetState(-1, $GUI_DISABLE)
$vibr49= GUICtrlCreateInput("", 90, 150,30,15)
GUICtrlSetBkColor(-1,0xFFAA3C)
GUICtrlSetState(-1, $GUI_DISABLE)
$vibr50=GUICtrlCreateInput("", 125, 150, 30, 15)
GUICtrlSetBkColor(-1,0xFFAA3C)
GUICtrlSetState(-1, $GUI_DISABLE)
$vibr51= GUICtrlCreateInput("", 90, 170,30,15)
GUICtrlSetBkColor(-1,0xFFAA3C)
GUICtrlSetState(-1, $GUI_DISABLE)
$vibr52=GUICtrlCreateInput("", 125, 170, 30, 15)
GUICtrlSetBkColor(-1,0xFFAA3C)
GUICtrlSetState(-1, $GUI_DISABLE)
$vibr53= GUICtrlCreateInput("", 90, 190,30,15)
GUICtrlSetBkColor(-1,0xFFAA3C)
GUICtrlSetState(-1, $GUI_DISABLE)
$vibr54=GUICtrlCreateInput("", 125, 190, 30, 15)
GUICtrlSetBkColor(-1,0xFFAA3C)
GUICtrlSetState(-1, $GUI_DISABLE)
$vibr55= GUICtrlCreateInput("", 90, 210,30,15)
GUICtrlSetBkColor(-1,0xFFAA3C)
GUICtrlSetState(-1, $GUI_DISABLE)
$vibr56=GUICtrlCreateInput("", 125, 210, 30, 15)
GUICtrlSetBkColor(-1,0xFFAA3C)
GUICtrlSetState(-1, $GUI_DISABLE)
$vibr57= GUICtrlCreateInput("", 90, 230,30,15)
GUICtrlSetBkColor(-1,0x010101)
GUICtrlSetState(-1, $GUI_DISABLE)
$vibr58=GUICtrlCreateInput("", 125, 230, 30, 15)
GUICtrlSetBkColor(-1,0x010101)
GUICtrlSetState(-1, $GUI_DISABLE)
$vibr59= GUICtrlCreateInput("", 90, 250,30,15)
GUICtrlSetBkColor(-1,0x010101)
GUICtrlSetState(-1, $GUI_DISABLE)
$vibr60=GUICtrlCreateInput("", 125, 250, 30, 15)
GUICtrlSetBkColor(-1,0x010101)
GUICtrlSetState(-1, $GUI_DISABLE)
$vibr61= GUICtrlCreateInput("", 90, 270,30,15)
GUICtrlSetBkColor(-1,0x010101)
GUICtrlSetState(-1, $GUI_DISABLE)
$vibr62=GUICtrlCreateInput("", 125, 270, 30, 15)
GUICtrlSetBkColor(-1,0x010101)
GUICtrlSetState(-1, $GUI_DISABLE)
$vibr63= GUICtrlCreateInput("", 90, 290,30,15)
GUICtrlSetBkColor(-1,0x010101)
GUICtrlSetState(-1, $GUI_DISABLE)
$vibr64=GUICtrlCreateInput("", 125, 290, 30, 15)
GUICtrlSetBkColor(-1,0x010101)
GUICtrlSetState(-1, $GUI_DISABLE)
$vibr65= GUICtrlCreateInput("", 90, 310,30,15)
GUICtrlSetBkColor(-1,0x010101)
GUICtrlSetState(-1, $GUI_DISABLE)
$vibr66=GUICtrlCreateInput("", 125, 310, 30, 15)
GUICtrlSetBkColor(-1,0x010101)
GUICtrlSetState(-1, $GUI_DISABLE)
$vibr67= GUICtrlCreateInput("", 90, 330,30,15)
GUICtrlSetBkColor(-1,0x010101)
GUICtrlSetState(-1, $GUI_DISABLE)
$vibr68=GUICtrlCreateInput("", 125, 330, 30, 15)
GUICtrlSetBkColor(-1,0x010101)
GUICtrlSetState(-1, $GUI_DISABLE)
$vibr69= GUICtrlCreateInput("", 90, 350,30,15)
GUICtrlSetBkColor(-1,0x010101)
GUICtrlSetState(-1, $GUI_DISABLE)
$vibr70=GUICtrlCreateInput("", 125, 350, 30, 15)
GUICtrlSetBkColor(-1,0x010101)
GUICtrlSetState(-1, $GUI_DISABLE)
$vibr71= GUICtrlCreateInput("", 90, 370,30,15)
GUICtrlSetBkColor(-1,0x010101)
GUICtrlSetState(-1, $GUI_DISABLE)
$vibr72=GUICtrlCreateInput("", 125, 370, 30, 15)
GUICtrlSetBkColor(-1,0x010101)
GUICtrlSetState(-1, $GUI_DISABLE)
$vibr73= GUICtrlCreateInput("", 90, 390,30,15)
GUICtrlSetBkColor(-1,0x010101)
GUICtrlSetState(-1, $GUI_DISABLE)
$vibr74=GUICtrlCreateInput("", 125, 390, 30, 15)
GUICtrlSetBkColor(-1,0x010101)
GUICtrlSetState(-1, $GUI_DISABLE)

$vibr75=GUICtrlCreateInput("", 180, 30, 30, 15)
GUICtrlSetBkColor(-1,0x010101)
GUICtrlSetState(-1, $GUI_DISABLE)
$vibr76=GUICtrlCreateInput("", 220, 30, 30, 15)
GUICtrlSetBkColor(-1,0x010101)
GUICtrlSetState(-1, $GUI_DISABLE)
$vibr77=GUICtrlCreateInput("", 180, 50, 30, 15)
GUICtrlSetBkColor(-1,0x010101)
GUICtrlSetState(-1, $GUI_DISABLE)
$vibr78=GUICtrlCreateInput("", 220, 50, 30, 15)
GUICtrlSetBkColor(-1,0x010101)
GUICtrlSetState(-1, $GUI_DISABLE)
$vibr79=GUICtrlCreateInput("", 180, 70, 30, 15)
GUICtrlSetBkColor(-1,0x010101)
GUICtrlSetState(-1, $GUI_DISABLE)
$vibr80=GUICtrlCreateInput("", 220, 70, 30, 15)
GUICtrlSetBkColor(-1,0x010101)
GUICtrlSetState(-1, $GUI_DISABLE)
$vibr81=GUICtrlCreateInput("", 180, 90, 30, 15)
GUICtrlSetBkColor(-1,0x010101)
GUICtrlSetState(-1, $GUI_DISABLE)
$vibr82=GUICtrlCreateInput("", 220, 90, 30, 15)
GUICtrlSetBkColor(-1,0x010101)
GUICtrlSetState(-1, $GUI_DISABLE)
$vibr83=GUICtrlCreateInput("", 180, 110, 30, 15)
GUICtrlSetBkColor(-1,0x010101)
GUICtrlSetState(-1, $GUI_DISABLE)
$vibr84=GUICtrlCreateInput("", 220, 110, 30, 15)
GUICtrlSetBkColor(-1,0x010101)
GUICtrlSetState(-1, $GUI_DISABLE)
$vibr85=GUICtrlCreateInput("", 180, 130, 30, 15)
GUICtrlSetBkColor(-1,0x010101)
GUICtrlSetState(-1, $GUI_DISABLE)
$vibr86=GUICtrlCreateInput("", 220, 130, 30, 15)
GUICtrlSetBkColor(-1,0x010101)
GUICtrlSetState(-1, $GUI_DISABLE)
$vibr87=GUICtrlCreateInput("", 180, 150, 30, 15)
GUICtrlSetBkColor(-1,0x010101)
GUICtrlSetState(-1, $GUI_DISABLE)
$vibr88=GUICtrlCreateInput("", 220, 150, 30, 15)
GUICtrlSetBkColor(-1,0x010101)
GUICtrlSetState(-1, $GUI_DISABLE)
$vibr89=GUICtrlCreateInput("", 180, 170, 30, 15)
GUICtrlSetBkColor(-1,0x010101)
GUICtrlSetState(-1, $GUI_DISABLE)
$vibr90=GUICtrlCreateInput("", 220, 170, 30, 15)
GUICtrlSetBkColor(-1,0x010101)
GUICtrlSetState(-1, $GUI_DISABLE)
$vibr91=GUICtrlCreateInput("", 180, 190, 30, 15)
GUICtrlSetBkColor(-1,0x010101)
GUICtrlSetState(-1, $GUI_DISABLE)
$vibr92=GUICtrlCreateInput("", 220, 190, 30, 15)
GUICtrlSetBkColor(-1,0x010101)
GUICtrlSetState(-1, $GUI_DISABLE)
$vibr93=GUICtrlCreateInput("", 180, 210, 30, 15)
GUICtrlSetBkColor(-1,0x010101)
GUICtrlSetState(-1, $GUI_DISABLE)
$vibr94=GUICtrlCreateInput("", 220, 210, 30, 15)
GUICtrlSetBkColor(-1,0x010101)
GUICtrlSetState(-1, $GUI_DISABLE)
$vibr95=GUICtrlCreateInput("", 180, 230, 30, 15)
GUICtrlSetBkColor(-1,0xFFAA3C)
GUICtrlSetState(-1, $GUI_DISABLE)
$vibr96=GUICtrlCreateInput("", 220, 230, 30, 15)
GUICtrlSetBkColor(-1,0xFFAA3C)
GUICtrlSetState(-1, $GUI_DISABLE)
$vibr97=GUICtrlCreateInput("", 180, 250, 30, 15)
GUICtrlSetBkColor(-1,0xFFAA3C)
GUICtrlSetState(-1, $GUI_DISABLE)
$vibr98=GUICtrlCreateInput("", 220, 250, 30, 15)
GUICtrlSetBkColor(-1,0xFFAA3C)
GUICtrlSetState(-1, $GUI_DISABLE)
$vibr99=GUICtrlCreateInput("", 180, 270, 30, 15)
GUICtrlSetBkColor(-1,0xFFAA3C)
GUICtrlSetState(-1, $GUI_DISABLE)
$vibr100=GUICtrlCreateInput("", 220, 270, 30, 15)
GUICtrlSetBkColor(-1,0xFFAA3C)
GUICtrlSetState(-1, $GUI_DISABLE)
$vibr101=GUICtrlCreateInput("", 180, 290, 30, 15)
GUICtrlSetBkColor(-1,0xFFAA3C)
GUICtrlSetState(-1, $GUI_DISABLE)
$vibr102=GUICtrlCreateInput("", 220, 290, 30, 15)
GUICtrlSetBkColor(-1,0xFFAA3C)
GUICtrlSetState(-1, $GUI_DISABLE)
$vibr103=GUICtrlCreateInput("", 180, 310, 30, 15)
GUICtrlSetBkColor(-1,0xFFAA3C)
GUICtrlSetState(-1, $GUI_DISABLE)
$vibr104=GUICtrlCreateInput("", 220, 310, 30, 15)
GUICtrlSetBkColor(-1,0xFFAA3C)
GUICtrlSetState(-1, $GUI_DISABLE)
$vibr105=GUICtrlCreateInput("", 180, 330, 30, 15)
GUICtrlSetBkColor(-1,0xFFAA3C)
GUICtrlSetState(-1, $GUI_DISABLE)
$vibr106=GUICtrlCreateInput("", 220, 330, 30, 15)
GUICtrlSetBkColor(-1,0xFFAA3C)
GUICtrlSetState(-1, $GUI_DISABLE)
$vibr107=GUICtrlCreateInput("", 180, 350, 30, 15)
GUICtrlSetBkColor(-1,0xFFAA3C)
GUICtrlSetState(-1, $GUI_DISABLE)
$vibr108=GUICtrlCreateInput("", 220, 350, 30, 15)
GUICtrlSetBkColor(-1,0xFFAA3C)
GUICtrlSetState(-1, $GUI_DISABLE)
$vibr109=GUICtrlCreateInput("", 180, 370, 30, 15)
GUICtrlSetBkColor(-1,0xFFAA3C)
GUICtrlSetState(-1, $GUI_DISABLE)
$vibr110=GUICtrlCreateInput("", 220, 370, 30, 15)
GUICtrlSetBkColor(-1,0xFFAA3C)
GUICtrlSetState(-1, $GUI_DISABLE)
$vibr111=GUICtrlCreateInput("", 180, 390, 30, 15)
GUICtrlSetBkColor(-1,0xFFAA3C)
GUICtrlSetState(-1, $GUI_DISABLE)
$vibr112=GUICtrlCreateInput("", 220, 390, 30, 15)
GUICtrlSetBkColor(-1,0xFFAA3C)
GUICtrlSetState(-1, $GUI_DISABLE)


;$hPopup=GUICreate("t", 300, 50,0,0,$WS_POPUP,$WS_EX_MDICHILD,$Form1)
 ;      $hLabel=GUICtrlCreateLabel ( "", 5, 5 ,290, 40)
  ;      $hPopup=GUICreate("t", 220, 40, 100,-70,$WS_POPUP+$WS_BORDER,$WS_EX_MDICHILD,$Form1)
   ;    $hLabel=GUICtrlCreateLabel ( "", 5, 5 ,210, 40)
		;$min=GUISetState(@SW_HIDE,$Form1)
		;$max=GUISetState(@SW_SHOW ,$Form1)
        ;GUISetState(@SW_SHOW ,$hPopup) 
GUISetState(@SW_SHOW ,$Form1)
;MsgBox(48,"Бот | Агрохолдинг","Нажмите левой кнопкой мыши по объектам,запуск программы осуществляется клавишей - r или к,пауза программы -  p или з.Свернуть\развернуть программу - m или ь,выйти или завершить программу - s или ы.Не делайте случайных тыков или кликов - это приведет к неправильной работе программы.")
	 
					
HotKeySet("{end}", "stop1")    ; Выход из программы

Func stop1 ()
	Exit($Form1)
	EndFunc
HotKeySet("{home}", "TogglePause")

HotKeySet("{PGDN}", "killed")

HotKeySet("{insert}", "playuse")

HotKeySet("{PGUP}", "clicker")

HotKeySet("{del}","deletetxtboks")

func deletetxtBok()
	call("deletetxtboks")
EndFunc

Func killed ()
$min=Not $min
;while $min
	;GUISetState(@SW_HIDE,$Form1)
	;GUISetState(@SW_HIDE ,$hPopup) 
;WEnd
;GUISetState(@SW_SHOW ,$Form1)
;GUISetState(@SW_SHOW ,$hPopup) 
EndFunc
Func playuse()
	Call("play")
	EndFunc
Func TogglePause()
$Paused = NOT $Paused
While $Paused
sleep(100)
ToolTip("Программа в состоянии паузы",1,1)
Sleep(5000)
ToolTip("")
WEnd
ToolTip("")
EndFunc
func clicker()
	call("click")
	EndFunc

While 1
		$nMsg = GUIGetMsg()
	;	GUISetState(@SW_MINIMIZE,$Form1)
		;GUISetState(@SW_RESTORE)
		;GUISetState(@SW_SHOWMINIMIZED,$Form1)
		
				 		;GetMouseCoordinates($nMsg)
						
						
		 	Switch $nMsg
				
				 
						Case $GUI_EVENT_CLOSE
			Exit
						
					                    Case $cmdCLose
                        Exit					  
										
									;Case $pogrblock
									;	GUICtrlSetState($pogreshnost, $GUI_ENABLE)
						
						       
            EndSwitch
		WEnd
		
		;Func GetMouseCoordinates($nEventMsg)
  ; Switch $nEventMsg
    ;  Case $GUI_EVENT_MOUSEMOVE
     ;    $aRet = DllCall("user32.dll", "int", "WindowFromPoint", "long", MouseGetPos(0), "long", MouseGetPos(1))
       ;  $tPoint = _WinAPI_GetMousePos(True, $aRet[0])
		; $pogr=GUICtrlRead($pogreshnost)
		 ;	$hX=$aRet[1]
		;	$hY=$aRet[2]
		;	GUICtrlSetData  (  $hLabel,'X = ' & $hX & @LF & 'Y = ' & $hY-$pogr)
		;	EndSwitch
;EndFunc
		func click()
			
 $ii+=1
		 If $ii=1 Then
			 
		   $mas= GUICtrlSetData ($vibr1,MouseGetPos(0)) 
		    $mas1=  GUICtrlSetData ($vibr2,MouseGetPos(1)-$pogr) 
		EndIf
		If $ii=2 Then
		   $mas= GUICtrlSetData ($vibr3,MouseGetPos(0)) 
		    $mas1=  GUICtrlSetData ($vibr4,MouseGetPos(1)-$pogr) 
		EndIf
		If $ii=3 Then
		   $mas= GUICtrlSetData ($vibr5,MouseGetPos(0)) 
		    $mas1=  GUICtrlSetData ($vibr6,MouseGetPos(1)-$pogr) 
		EndIf
	If $ii=4 Then
		   $mas= GUICtrlSetData ($vibr7,MouseGetPos(0)) 
		    $mas1=  GUICtrlSetData ($vibr8,MouseGetPos(1)-$pogr) 
		EndIf
		If $ii=5 Then
		   $mas= GUICtrlSetData ($vibr9,MouseGetPos(0)) 
		    $mas1=  GUICtrlSetData ($vibr10,MouseGetPos(1)-$pogr) 
		EndIf
		If $ii=6 Then
		   $mas= GUICtrlSetData ($vibr11,MouseGetPos(0)) 
		    $mas1=  GUICtrlSetData ($vibr12,MouseGetPos(1)-$pogr) 
		EndIf
		If $ii=7 Then
		   $mas= GUICtrlSetData ($vibr13,MouseGetPos(0)) 
		    $mas1=  GUICtrlSetData ($vibr14,MouseGetPos(1)-$pogr) 
		EndIf
		If $ii=8 Then
		   $mas= GUICtrlSetData ($vibr15,MouseGetPos(0)) 
		    $mas1=  GUICtrlSetData ($vibr16,MouseGetPos(1)-$pogr) 
		EndIf
		If $ii=9 Then
		   $mas= GUICtrlSetData ($vibr17,MouseGetPos(0)) 
		    $mas1=  GUICtrlSetData ($vibr18,MouseGetPos(1)-$pogr) 
		EndIf
		If $ii=10 Then
		   $mas= GUICtrlSetData ($vibr19,MouseGetPos(0)) 
		    $mas1=  GUICtrlSetData ($vibr20,MouseGetPos(1)-$pogr) 
		EndIf
		If $ii=11 Then
		   $mas= GUICtrlSetData ($vibr21,MouseGetPos(0)) 
		    $mas1=  GUICtrlSetData ($vibr22,MouseGetPos(1)-$pogr) 
		EndIf
		If $ii=12 Then
		   $mas= GUICtrlSetData ($vibr23,MouseGetPos(0)) 
		    $mas1=  GUICtrlSetData ($vibr24,MouseGetPos(1)-$pogr) 
		EndIf
		If $ii=13 Then
		   $mas= GUICtrlSetData ($vibr25,MouseGetPos(0)) 
		    $mas1=  GUICtrlSetData ($vibr26,MouseGetPos(1)-$pogr) 
		EndIf
		If $ii=14 Then
		   $mas= GUICtrlSetData ($vibr27,MouseGetPos(0)) 
		    $mas1=  GUICtrlSetData ($vibr28,MouseGetPos(1)-$pogr) 
		EndIf
		If $ii=15 Then
		   $mas= GUICtrlSetData ($vibr29,MouseGetPos(0)) 
		    $mas1=  GUICtrlSetData ($vibr30,MouseGetPos(1)-$pogr) 
		EndIf
		If $ii=16 Then
		   $mas= GUICtrlSetData ($vibr31,MouseGetPos(0)) 
		    $mas1=  GUICtrlSetData ($vibr32,MouseGetPos(1)-$pogr) 
		EndIf
		If $ii=17 Then
		   $mas= GUICtrlSetData ($vibr33,MouseGetPos(0)) 
		    $mas1=  GUICtrlSetData ($vibr34,MouseGetPos(1)-$pogr) 
		EndIf
		If $ii=18 Then
		   $mas= GUICtrlSetData ($vibr35,MouseGetPos(0)) 
		    $mas1=  GUICtrlSetData ($vibr36,MouseGetPos(1)-$pogr) 
		EndIf
		If $ii=19 Then
		   $mas= GUICtrlSetData ($vibr37,MouseGetPos(0)) 
		    $mas1=  GUICtrlSetData ($vibr38,MouseGetPos(1)-$pogr) 
		EndIf
		If $ii=20 Then
		   $mas= GUICtrlSetData ($vibr39,MouseGetPos(0)) 
		    $mas1=  GUICtrlSetData ($vibr40,MouseGetPos(1)-$pogr) 
		EndIf
		If $ii=21 Then
		   $mas= GUICtrlSetData ($vibr41,MouseGetPos(0)) 
		    $mas1=  GUICtrlSetData ($vibr42,MouseGetPos(1)-$pogr) 
		EndIf
		If $ii=22 Then
		   $mas= GUICtrlSetData ($vibr43,MouseGetPos(0)) 
		    $mas1=  GUICtrlSetData ($vibr44,MouseGetPos(1)-$pogr) 
		EndIf
		If $ii=23 Then
		   $mas= GUICtrlSetData ($vibr45,MouseGetPos(0)) 
		    $mas1=  GUICtrlSetData ($vibr46,MouseGetPos(1)-$pogr) 
		EndIf
		If $ii=24 Then
		   $mas= GUICtrlSetData ($vibr47,MouseGetPos(0)) 
		    $mas1=  GUICtrlSetData ($vibr48,MouseGetPos(1)-$pogr) 
		EndIf
		If $ii=25 Then
		   $mas= GUICtrlSetData ($vibr49,MouseGetPos(0)) 
		    $mas1=  GUICtrlSetData ($vibr50,MouseGetPos(1)-$pogr) 
		EndIf
		If $ii=26 Then
		   $mas= GUICtrlSetData ($vibr51,MouseGetPos(0)) 
		    $mas1=  GUICtrlSetData ($vibr52,MouseGetPos(1)-$pogr) 
		EndIf
		If $ii=27 Then
		   $mas= GUICtrlSetData ($vibr53,MouseGetPos(0)) 
		    $mas1=  GUICtrlSetData ($vibr54,MouseGetPos(1)-$pogr) 
		EndIf
		If $ii=28 Then
		   $mas= GUICtrlSetData ($vibr55,MouseGetPos(0)) 
		    $mas1=  GUICtrlSetData ($vibr56,MouseGetPos(1)-$pogr) 
		EndIf
		If $ii=29 Then
		   $mas= GUICtrlSetData ($vibr57,MouseGetPos(0)) 
		    $mas1=  GUICtrlSetData ($vibr58,MouseGetPos(1)-$pogr) 
		EndIf
		If $ii=30 Then
		   $mas= GUICtrlSetData ($vibr59,MouseGetPos(0)) 
		    $mas1=  GUICtrlSetData ($vibr60,MouseGetPos(1)-$pogr) 
		EndIf
		If $ii=31 Then
		   $mas= GUICtrlSetData ($vibr61,MouseGetPos(0)) 
		    $mas1=  GUICtrlSetData ($vibr62,MouseGetPos(1)-$pogr) 
		EndIf
		If $ii=32 Then
		   $mas= GUICtrlSetData ($vibr63,MouseGetPos(0)) 
		    $mas1=  GUICtrlSetData ($vibr64,MouseGetPos(1)-$pogr) 
		EndIf
		If $ii=33 Then
		   $mas= GUICtrlSetData ($vibr65,MouseGetPos(0)) 
		    $mas1=  GUICtrlSetData ($vibr66,MouseGetPos(1)-$pogr) 
		EndIf
		If $ii=34 Then
		   $mas= GUICtrlSetData ($vibr67,MouseGetPos(0)) 
		    $mas1=  GUICtrlSetData ($vibr68,MouseGetPos(1)-$pogr) 
		EndIf
		If $ii=35 Then
		   $mas= GUICtrlSetData ($vibr69,MouseGetPos(0)) 
		    $mas1=  GUICtrlSetData ($vibr70,MouseGetPos(1)-$pogr) 
		EndIf
		If $ii=36 Then
		   $mas= GUICtrlSetData ($vibr71,MouseGetPos(0)) 
		    $mas1=  GUICtrlSetData ($vibr72,MouseGetPos(1)-$pogr) 
		EndIf
	If $ii=37 Then
		   $mas= GUICtrlSetData ($vibr73,MouseGetPos(0)) 
		    $mas1=  GUICtrlSetData ($vibr74,MouseGetPos(1)-$pogr) 
					
				EndIf
				If $ii=38 Then
		   $mas= GUICtrlSetData ($vibr75,MouseGetPos(0)) 
		    $mas1=  GUICtrlSetData ($vibr76,MouseGetPos(1)-$pogr) 
					
				EndIf
				If $ii=39 Then
		   $mas= GUICtrlSetData ($vibr77,MouseGetPos(0)) 
		    $mas1=  GUICtrlSetData ($vibr78,MouseGetPos(1)-$pogr) 
					
				EndIf
				If $ii=40 Then
		   $mas= GUICtrlSetData ($vibr79,MouseGetPos(0)) 
		    $mas1=  GUICtrlSetData ($vibr80,MouseGetPos(1)-$pogr) 
					
				EndIf
				If $ii=41 Then
		   $mas= GUICtrlSetData ($vibr81,MouseGetPos(0)) 
		    $mas1=  GUICtrlSetData ($vibr82,MouseGetPos(1)-$pogr) 
					
				EndIf
				If $ii=42 Then
		   $mas= GUICtrlSetData ($vibr83,MouseGetPos(0)) 
		    $mas1=  GUICtrlSetData ($vibr84,MouseGetPos(1)-$pogr) 
					
				EndIf
				If $ii=43 Then
		   $mas= GUICtrlSetData ($vibr85,MouseGetPos(0)) 
		    $mas1=  GUICtrlSetData ($vibr86,MouseGetPos(1)-$pogr) 
					
				EndIf
				If $ii=44 Then
		   $mas= GUICtrlSetData ($vibr87,MouseGetPos(0)) 
		    $mas1=  GUICtrlSetData ($vibr88,MouseGetPos(1)-$pogr) 
					
				EndIf
				If $ii=45 Then
		   $mas= GUICtrlSetData ($vibr89,MouseGetPos(0)) 
		    $mas1=  GUICtrlSetData ($vibr90,MouseGetPos(1)-$pogr) 
					
				EndIf
				If $ii=46 Then
		   $mas= GUICtrlSetData ($vibr91,MouseGetPos(0)) 
		    $mas1=  GUICtrlSetData ($vibr92,MouseGetPos(1)-$pogr) 
					
				EndIf
				If $ii=47 Then
		   $mas= GUICtrlSetData ($vibr93,MouseGetPos(0)) 
		    $mas1=  GUICtrlSetData ($vibr94,MouseGetPos(1)-$pogr) 
					
				EndIf
				If $ii=48 Then
		   $mas= GUICtrlSetData ($vibr95,MouseGetPos(0)) 
		    $mas1=  GUICtrlSetData ($vibr96,MouseGetPos(1)-$pogr) 
					
				EndIf
				If $ii=49 Then
		   $mas= GUICtrlSetData ($vibr97,MouseGetPos(0)) 
		    $mas1=  GUICtrlSetData ($vibr98,MouseGetPos(1)-$pogr) 
					
				EndIf
				If $ii=50 Then
		   $mas= GUICtrlSetData ($vibr99,MouseGetPos(0)) 
		    $mas1=  GUICtrlSetData ($vibr100,MouseGetPos(1)-$pogr) 
					
				EndIf
				If $ii=51 Then
		   $mas= GUICtrlSetData ($vibr101,MouseGetPos(0)) 
		    $mas1=  GUICtrlSetData ($vibr102,MouseGetPos(1)-$pogr) 
					
				EndIf
				If $ii=52 Then
		   $mas= GUICtrlSetData ($vibr103,MouseGetPos(0)) 
		    $mas1=  GUICtrlSetData ($vibr104,MouseGetPos(1)-$pogr) 
					
				EndIf
				If $ii=53 Then
		   $mas= GUICtrlSetData ($vibr105,MouseGetPos(0)) 
		    $mas1=  GUICtrlSetData ($vibr106,MouseGetPos(1)-$pogr) 
					
				EndIf
				If $ii=54 Then
		   $mas= GUICtrlSetData ($vibr107,MouseGetPos(0)) 
		    $mas1=  GUICtrlSetData ($vibr108,MouseGetPos(1)-$pogr) 
					
				EndIf
				If $ii=55 Then
		   $mas= GUICtrlSetData ($vibr109,MouseGetPos(0)) 
		    $mas1=  GUICtrlSetData ($vibr110,MouseGetPos(1)-$pogr) 
					
				EndIf
				If $ii=56 Then
		   $mas= GUICtrlSetData ($vibr111,MouseGetPos(0)) 
		    $mas1=  GUICtrlSetData ($vibr112,MouseGetPos(1)-$pogr) 
					
				EndIf

If $ii>56 Then
					MsgBox("16","Ошибка!","Все поля заполнены!")
					EndIf
		          
   EndFunc

   
   Func play()
							;	Opt("MouseCoordMode", 2)
									;ControlClick("В Контакте | Агрохолдинг (бета) - Mozilla Firefox","","MozillaWindowClass3")
							;GUISetState(@SW_HIDE,$hPopup)							;WinWait("В Контакте | Агрохолдинг (бета) - Mozilla Firefox","")

							GUISetState(@SW_HIDE,$Form1)
							;MsgBox(32,"Внимание!","Старт начнеться через - 5",1)	
							;MsgBox(32,"Внимание!","Старт начнеться через - 4",1)		
							;MsgBox(32,"Внимание!","Старт начнеться через - 3",1)		
							;MsgBox(32,"Внимание!","Старт начнеться через - 2",1)		
							;MsgBox(32,"Внимание!","Старт начнеться через - 1",1)
								

					 	$x=GUICtrlRead($vibr1)
						$y=GUICtrlRead($vibr2)
						$x1=GUICtrlRead($vibr3)
						$y1=GUICtrlRead($vibr4)
						$x2=GUICtrlRead($vibr5)
						$y2=GUICtrlRead($vibr6)
						$x3=GUICtrlRead($vibr7)
						$y3=GUICtrlRead($vibr8)
						$x4=GUICtrlRead($vibr9)
						$y4=GUICtrlRead($vibr10)
						$x5=GUICtrlRead($vibr11)
						$y5=GUICtrlRead($vibr12)
						$x6=GUICtrlRead($vibr13)
						$y6=GUICtrlRead($vibr14)
						$x7=GUICtrlRead($vibr15)
						$y7=GUICtrlRead($vibr16)
						$x8=GUICtrlRead($vibr17)
						$y8=GUICtrlRead($vibr18) 
						$x9=GUICtrlRead($vibr19)
						$y9=GUICtrlRead($vibr20)
						$x10=GUICtrlRead($vibr21)
						$y10=GUICtrlRead($vibr22)
						$x11=GUICtrlRead($vibr23)
						$y11=GUICtrlRead($vibr24) 
						$x12=GUICtrlRead($vibr25)
						$y12=GUICtrlRead($vibr26)
						$x13=GUICtrlRead($vibr27)
						$y13=GUICtrlRead($vibr28)
						$x14=GUICtrlRead($vibr29)
						$y14=GUICtrlRead($vibr30)
						$x15=GUICtrlRead($vibr31)
						$y15=GUICtrlRead($vibr32)
						$x16=GUICtrlRead($vibr33)
						$y16=GUICtrlRead($vibr34)
						$x17=GUICtrlRead($vibr35)
						$y17=GUICtrlRead($vibr36)
						$x18=GUICtrlRead($vibr37)
						$y18=GUICtrlRead($vibr38)
						$x19=GUICtrlRead($vibr39)
						$y19=GUICtrlRead($vibr40)
						$x20=GUICtrlRead($vibr41)
						$y20=GUICtrlRead($vibr42)
						$x21=GUICtrlRead($vibr43)
						$y21=GUICtrlRead($vibr44)
						$x22=GUICtrlRead($vibr45)
						$y22=GUICtrlRead($vibr46)
						$x23=GUICtrlRead($vibr47)
						$y23=GUICtrlRead($vibr48)
						$x24=GUICtrlRead($vibr49)
						$y24=GUICtrlRead($vibr50)
						$x25=GUICtrlRead($vibr51)
						$y25=GUICtrlRead($vibr52)
						$x26=GUICtrlRead($vibr53)
						$y26=GUICtrlRead($vibr54) 
						$x27=GUICtrlRead($vibr55)
						$y27=GUICtrlRead($vibr56)
						$x28=GUICtrlRead($vibr57)
						$y28=GUICtrlRead($vibr58)
						$x29=GUICtrlRead($vibr59)
						$y29=GUICtrlRead($vibr60) 
						$x30=GUICtrlRead($vibr61)
						$y30=GUICtrlRead($vibr62)
						$x31=GUICtrlRead($vibr63)
						$y31=GUICtrlRead($vibr64)
						$x32=GUICtrlRead($vibr65)
						$y32=GUICtrlRead($vibr66)
						$x33=GUICtrlRead($vibr67)
						$y33=GUICtrlRead($vibr68)
						$x34=GUICtrlRead($vibr69)
						$y34=GUICtrlRead($vibr70)
						$x35=GUICtrlRead($vibr71)
						$y35=GUICtrlRead($vibr72)
						$x36=GUICtrlRead($vibr73)
						$y36=GUICtrlRead($vibr74)
						
						$x37=GUICtrlRead($vibr75)
						$y37=GUICtrlRead($vibr76)
						$x38=GUICtrlRead($vibr77)
						$y38=GUICtrlRead($vibr78)
						$x39=GUICtrlRead($vibr79)
						$y39=GUICtrlRead($vibr80)
						$x40=GUICtrlRead($vibr81)
						$y40=GUICtrlRead($vibr82)
						$x41=GUICtrlRead($vibr83)
						$y41=GUICtrlRead($vibr84)
						$x42=GUICtrlRead($vibr85)
						$y42=GUICtrlRead($vibr86)
						$x43=GUICtrlRead($vibr87)
						$y43=GUICtrlRead($vibr88)
						$x44=GUICtrlRead($vibr89)
						$y44=GUICtrlRead($vibr90)
						$x45=GUICtrlRead($vibr91)
						$y45=GUICtrlRead($vibr92)
						$x46=GUICtrlRead($vibr93)
						$y46=GUICtrlRead($vibr94)
						$x47=GUICtrlRead($vibr95)
						$y47=GUICtrlRead($vibr96)
						$x48=GUICtrlRead($vibr97)
						$y48=GUICtrlRead($vibr98)
						$x49=GUICtrlRead($vibr99)
						$y49=GUICtrlRead($vibr100)
						$x50=GUICtrlRead($vibr101)
						$y50=GUICtrlRead($vibr102)
						$x51=GUICtrlRead($vibr103)
						$y51=GUICtrlRead($vibr104)
						$x52=GUICtrlRead($vibr105)
						$y52=GUICtrlRead($vibr106)
						$x53=GUICtrlRead($vibr107)
						$y53=GUICtrlRead($vibr108)
						$x54=GUICtrlRead($vibr109)
						$y54=GUICtrlRead($vibr110)
						$x55=GUICtrlRead($vibr111)
						$y55=GUICtrlRead($vibr112)
						
						$gh=GUICtrlRead($sp)
						;$random=GUICtrlRead($random)
						
					For $i=0 to $count
						If $x>1 and $y>1 Then
			            sleep($gh)
						;AutoItSetOption ( "MouseClickDelay", 40 )
						MouseClick("left", $x, $y,1,10)
						EndIf
					If $x1>1 and $y1>1 Then
			            sleep($gh)
						;AutoItSetOption ( "MouseClickDelay", 40 )
						MouseClick("left", $x1, $y1,1, 10)
					EndIf
					If $x2>1 and $y2>1 Then
			            sleep($gh)
						;utoItSetOption ( "MouseClickDelay", 40 )
						MouseClick("left", $x2, $y2,1, 10)
					EndIf
					If $x3>1 and $y3>1 Then
			            sleep($gh)
						;AutoItSetOption ( "MouseClickDelay", 40 )
						MouseClick("left", $x3, $y3,1, 10)
					EndIf
					If $x4>1 and $y4>1 Then
			            sleep($gh)
						;AutoItSetOption ( "MouseClickDelay", 40 )
						MouseClick("left", $x4, $y4,1, 10)
					EndIf
					If $x5>1 and $y5>1 Then
			            sleep($gh)
						;AutoItSetOption ( "MouseClickDelay", 40 )
						MouseClick("left", $x5, $y5,1, 10)
					EndIf
					If $x6>1 and $y6>1 Then
			            sleep($gh)
						;AutoItSetOption ( "MouseClickDelay", 40 )
						MouseClick("left", $x6, $y6,3, 10)
					EndIf
					If $x7>1 and $y7>1 Then
			            sleep($gh)
						;AutoItSetOption ( "MouseClickDelay", 40 )
						MouseClick("left", $x7, $y7,3, 10)
					EndIf
					If $x8>1 and $y8>1 Then
			            sleep($gh)
						;AutoItSetOption ( "MouseClickDelay", 40 )
						MouseClick("left", $x8, $y8,3, 10)
					EndIf
					If $x9>1 and $y9>1 Then
			            sleep($gh)
						;AutoItSetOption ( "MouseClickDelay", 40 )
						MouseClick("left", $x9, $y9,3, 10)
					EndIf
					If $x10>1 and $y10>1 Then
			            sleep($gh)
						;AutoItSetOption ( "MouseClickDelay", 40 )
						MouseClick("left", $x10, $y10,3, 10)
					EndIf
					If $x11>1 and $y11>1 Then
			            sleep($gh)
						;AutoItSetOption ( "MouseClickDelay", 40 )
						MouseClick("left", $x11, $y11,3, 10)
					EndIf
					If $x12>1 and $y12>1 Then
			            sleep($gh)
						;AutoItSetOption ( "MouseClickDelay", 40 )
						MouseClick("left", $x12, $y12,3, 10)
					EndIf
					If $x13>1 and $y13>1 Then
			            sleep($gh)
						;AutoItSetOption ( "MouseClickDelay", 40 )
						MouseClick("left", $x13, $y13,3, 10)
					EndIf
					If $x14>1 and $y14>1 Then
			            sleep($gh)
						;AutoItSetOption ( "MouseClickDelay", 40 )
						MouseClick("left", $x14, $y14,3, 10)
					EndIf
					If $x15>1 and $y15>1 Then
			            sleep($gh)
						;AutoItSetOption ( "MouseClickDelay", 40 )
						MouseClick("left", $x15, $y15,3, 10)
					EndIf
					If $x16>1 and $y16>1 Then
			            sleep($gh)
						;AutoItSetOption ( "MouseClickDelay", 40 )
						MouseClick("left", $x16, $y16,3, 10)
					EndIf
					If $x17>1 and $y17>1 Then
			            sleep($gh)
						;AutoItSetOption ( "MouseClickDelay", 40 )
						MouseClick("left", $x17, $y17,3, 10)
					EndIf
					If $x18>1 and $y18>1 Then
			            sleep($gh)
						;AutoItSetOption ( "MouseClickDelay", 40 )
						MouseClick("left", $x18, $y18,3, 10)
						EndIf
						If $x19>1 and $y19>1 Then
			            sleep($gh)
						;AutoItSetOption ( "MouseClickDelay", 40 )
						MouseClick("left", $x19, $y19,3, 10)
					EndIf
					If $x20>1 and $y20>1 Then
			            sleep($gh)
						;AutoItSetOption ( "MouseClickDelay", 40 )
						MouseClick("left", $x20, $y20,3, 10)
					EndIf
					If $x21>1 and $y21>1 Then
			            sleep($gh)
						;AutoItSetOption ( "MouseClickDelay", 40 )
						MouseClick("left", $x21, $y21, 3,10)
					EndIf
					If $x22>1 and $y22>1 Then
			            sleep($gh)
						;AutoItSetOption ( "MouseClickDelay", 40 )
						MouseClick("left", $x22, $y22, 3,10)
					EndIf
					If $x23>1 and $y23>1 Then
			            sleep($gh)
						;AutoItSetOption ( "MouseClickDelay", 40 )
						MouseClick("left", $x23, $y23,3,10)
					EndIf
					If $x24>1 and $y24>1 Then
			            sleep($gh)
						;AutoItSetOption ( "MouseClickDelay", 40 )
						MouseClick("left", $x24, $y24,3, 10)
					EndIf
					If $x25>1 and $y25>1 Then
			            sleep($gh)
						;AutoItSetOption ( "MouseClickDelay", 40 )
						MouseClick("left", $x25, $y25,3, 10)
					EndIf
					If $x26>1 and $y26>1 Then
			            sleep($gh)
						;AutoItSetOption ( "MouseClickDelay", 40 )
						MouseClick("left", $x26, $y26,3, 10)
					EndIf
					If $x27>1 and $y27>1 Then
			            sleep($gh)
						;AutoItSetOption ( "MouseClickDelay", 40 )
						MouseClick("left", $x27, $y27,3, 10)
					EndIf
					If $x28>1 and $y28>1 Then
			            sleep($gh)
						;AutoItSetOption ( "MouseClickDelay", 40 )
						MouseClick("left", $x28, $y28,3, 10)
					EndIf
					If $x29>1 and $y29>1 Then
			            sleep($gh)
						;AutoItSetOption ( "MouseClickDelay", 40 )
						MouseClick("left", $x29, $y29, 3,10)
					EndIf
					If $x30>1 and $y30>1 Then
			            sleep($gh)
						;AutoItSetOption ( "MouseClickDelay", 40 )
						MouseClick("left", $x30, $y30,3, 10)
					EndIf
					If $x31>1 and $y31>1 Then
			            sleep($gh)
						;AutoItSetOption ( "MouseClickDelay", 40 )
						MouseClick("left", $x31, $y31, 3,10)
					EndIf
					If $x32>1 and $y32>1 Then
			            sleep($gh)
						;AutoItSetOption ( "MouseClickDelay", 40 )
						MouseClick("left", $x32, $y32, 3,10)
					EndIf
					If $x33>1 and $y33>1 Then
			            sleep($gh)
					;	AutoItSetOption ( "MouseClickDelay", 40 )
						MouseClick("left", $x33, $y33, 3,10)
					EndIf
					If $x34>1 and $y34>1 Then
			            sleep($gh)
					;	AutoItSetOption ( "MouseClickDelay", 40 )
						MouseClick("left", $x34, $y34,3, 10)
					EndIf
					If $x35>1 and $y35>1 Then
			            sleep($gh)
					;	AutoItSetOption ( "MouseClickDelay", 40 )
						MouseClick("left", $x35, $y35,3, 10)
					EndIf
					If $x36>1 and $y36>1 Then
			            sleep($gh)
					;	AutoItSetOption ( "MouseClickDelay", 40 )
						MouseClick("left", $x36, $y36,3, 10)
					EndIf
						If $x37>1 and $y37>1 Then
			            sleep($gh)
					;	AutoItSetOption ( "MouseClickDelay", 40 )
						MouseClick("left", $x37, $y37,3, 10)
					EndIf
						If $x38>1 and $y38>1 Then
			            sleep($gh)
					;	AutoItSetOption ( "MouseClickDelay", 40 )
						MouseClick("left", $x38, $y38,3, 10)
					EndIf
						If $x39>1 and $y39>1 Then
			            sleep($gh)
					;	AutoItSetOption ( "MouseClickDelay", 40 )
						MouseClick("left", $x39, $y39,3, 10)
					EndIf
						If $x40>1 and $y40>1 Then
			            sleep($gh)
					;	AutoItSetOption ( "MouseClickDelay", 40 )
						MouseClick("left", $x40, $y40,3, 10)
					EndIf
						If $x41>1 and $y41>1 Then
			            sleep($gh)
					;	AutoItSetOption ( "MouseClickDelay", 40 )
						MouseClick("left", $x41, $y41,3, 10)
					EndIf
						If $x42>1 and $y42>1 Then
			            sleep($gh)
					;	AutoItSetOption ( "MouseClickDelay", 40 )
						MouseClick("left", $x42, $y42,3,10)
					EndIf
						If $x43>1 and $y43>1 Then
			            sleep($gh)
					;	AutoItSetOption ( "MouseClickDelay", 40 )
						MouseClick("left", $x43, $y43, 3,10)
					EndIf
						If $x44>1 and $y44>1 Then
			            sleep($gh)
					;	AutoItSetOption ( "MouseClickDelay", 40 )
						MouseClick("left", $x44, $y44, 3,10)
					EndIf
						If $x45>1 and $y45>1 Then
			            sleep($gh)
					;	AutoItSetOption ( "MouseClickDelay", 40 )
						MouseClick("left", $x45, $y45, 3,10)
					EndIf
						If $x46>1 and $y46>1 Then
			            sleep($gh)
					;	AutoItSetOption ( "MouseClickDelay", 40 )
						MouseClick("left", $x46, $y46,3, 10)
					EndIf
						If $x47>1 and $y47>1 Then
			            sleep($gh)
					;	AutoItSetOption ( "MouseClickDelay", 40 )
						MouseClick("left", $x47, $y47,3, 10)
					EndIf
						If $x48>1 and $y48>1 Then
			            sleep($gh)
					;	AutoItSetOption ( "MouseClickDelay", 40 )
						MouseClick("left", $x48, $y48,3, 10)
					EndIf
					
						If $x49>1 and $y49>1 Then
			            sleep($gh)
					;	AutoItSetOption ( "MouseClickDelay", 40 )
						MouseClick("left", $x49, $y49,3, 10)
					EndIf
					
						If $x50>1 and $y50>1 Then
			            sleep($gh)
						;AutoItSetOption ( "MouseClickDelay", 40 )
						MouseClick("left", $x50, $y50,3, 10)
					EndIf
						If $x51>1 and $y51>1 Then
			            sleep($gh)
						;AutoItSetOption ( "MouseClickDelay", 40 )
						MouseClick("left", $x51, $y51, 3,10)
					EndIf
						If $x52>1 and $y52>1 Then
			            sleep($gh)
						;AutoItSetOption ( "MouseClickDelay", 40 )
						MouseClick("left", $x52, $y52,3, 10)
					EndIf
						If $x53>1 and $y53>1 Then
			            sleep($gh)
						;AutoItSetOption ( "MouseClickDelay", 40 )
						MouseClick("left", $x53, $y53,3, 10)
					EndIf
						If $x54>1 and $y54>1 Then
			            sleep($gh)
						;AutoItSetOption ( "MouseClickDelay", 40 )
						MouseClick("left", $x54, $y54,3, 10)
					EndIf
						If $x55>1 and $y55>1 Then
			            sleep($gh)
						;AutoItSetOption ( "MouseClickDelay", 40 )
						MouseClick("left", $x55, $y55, 3,10)
					EndIf
					
					
					
												Next
											EndFunc	
											
											
											
											func deletetxtboks()
											If $ii=1  Then
													
			 
		   $mas= GUICtrlSetData ($vibr1,MouseGetPos(0)) 
		    $mas1=  GUICtrlSetData ($vibr2,MouseGetPos(1)-$pogr) 
		EndIf
		If $ii=2 Then
		   $mas= GUICtrlSetData ($vibr3,MouseGetPos(0)) 
		    $mas1=  GUICtrlSetData ($vibr4,MouseGetPos(1)-$pogr) 
		EndIf
		If $ii=3 Then
		   $mas= GUICtrlSetData ($vibr5,MouseGetPos(0)) 
		    $mas1=  GUICtrlSetData ($vibr6,MouseGetPos(1)-$pogr) 
		EndIf
	If $ii=4 Then
		   $mas= GUICtrlSetData ($vibr7,MouseGetPos(0)) 
		    $mas1=  GUICtrlSetData ($vibr8,MouseGetPos(1)-$pogr) 
		EndIf
		If $ii=5 Then
		   $mas= GUICtrlSetData ($vibr9,MouseGetPos(0)) 
		    $mas1=  GUICtrlSetData ($vibr10,MouseGetPos(1)-$pogr) 
		EndIf
		If $ii=6 Then
		   $mas= GUICtrlSetData ($vibr11,MouseGetPos(0)) 
		    $mas1=  GUICtrlSetData ($vibr12,MouseGetPos(1)-$pogr) 
		EndIf
		If $ii=7 Then
		   $mas= GUICtrlSetData ($vibr13,MouseGetPos(0)) 
		    $mas1=  GUICtrlSetData ($vibr14,MouseGetPos(1)-$pogr) 
		EndIf
		If $ii=8 Then
		   $mas= GUICtrlSetData ($vibr15,MouseGetPos(0)) 
		    $mas1=  GUICtrlSetData ($vibr16,MouseGetPos(1)-$pogr) 
		EndIf
		If $ii=9 Then
		   $mas= GUICtrlSetData ($vibr17,MouseGetPos(0)) 
		    $mas1=  GUICtrlSetData ($vibr18,MouseGetPos(1)-$pogr) 
		EndIf
		If $ii=10 Then
		   $mas= GUICtrlSetData ($vibr19,MouseGetPos(0)) 
		    $mas1=  GUICtrlSetData ($vibr20,MouseGetPos(1)-$pogr) 
		EndIf
		If $ii=11 Then
		   $mas= GUICtrlSetData ($vibr21,MouseGetPos(0)) 
		    $mas1=  GUICtrlSetData ($vibr22,MouseGetPos(1)-$pogr) 
		EndIf
		If $ii=12 Then
		   $mas= GUICtrlSetData ($vibr23,MouseGetPos(0)) 
		    $mas1=  GUICtrlSetData ($vibr24,MouseGetPos(1)-$pogr) 
		EndIf
		If $ii=13 Then
		   $mas= GUICtrlSetData ($vibr25,MouseGetPos(0)) 
		    $mas1=  GUICtrlSetData ($vibr26,MouseGetPos(1)-$pogr) 
		EndIf
		If $ii=14 Then
		   $mas= GUICtrlSetData ($vibr27,MouseGetPos(0)) 
		    $mas1=  GUICtrlSetData ($vibr28,MouseGetPos(1)-$pogr) 
		EndIf
		If $ii=15 Then
		   $mas= GUICtrlSetData ($vibr29,MouseGetPos(0)) 
		    $mas1=  GUICtrlSetData ($vibr30,MouseGetPos(1)-$pogr) 
		EndIf
		If $ii=16 Then
		   $mas= GUICtrlSetData ($vibr31,MouseGetPos(0)) 
		    $mas1=  GUICtrlSetData ($vibr32,MouseGetPos(1)-$pogr) 
		EndIf
		If $ii=17 Then
		   $mas= GUICtrlSetData ($vibr33,MouseGetPos(0)) 
		    $mas1=  GUICtrlSetData ($vibr34,MouseGetPos(1)-$pogr) 
		EndIf
		If $ii=18 Then
		   $mas= GUICtrlSetData ($vibr35,MouseGetPos(0)) 
		    $mas1=  GUICtrlSetData ($vibr36,MouseGetPos(1)-$pogr) 
		EndIf
		If $ii=19 Then
		   $mas= GUICtrlSetData ($vibr37,MouseGetPos(0)) 
		    $mas1=  GUICtrlSetData ($vibr38,MouseGetPos(1)-$pogr) 
		EndIf
		If $ii=20 Then
		   $mas= GUICtrlSetData ($vibr39,MouseGetPos(0)) 
		    $mas1=  GUICtrlSetData ($vibr40,MouseGetPos(1)-$pogr) 
		EndIf
		If $ii=21 Then
		   $mas= GUICtrlSetData ($vibr41,MouseGetPos(0)) 
		    $mas1=  GUICtrlSetData ($vibr42,MouseGetPos(1)-$pogr) 
		EndIf
		If $ii=22 Then
		   $mas= GUICtrlSetData ($vibr43,MouseGetPos(0)) 
		    $mas1=  GUICtrlSetData ($vibr44,MouseGetPos(1)-$pogr) 
		EndIf
		If $ii=23 Then
		   $mas= GUICtrlSetData ($vibr45,MouseGetPos(0)) 
		    $mas1=  GUICtrlSetData ($vibr46,MouseGetPos(1)-$pogr) 
		EndIf
		If $ii=24 Then
		   $mas= GUICtrlSetData ($vibr47,MouseGetPos(0)) 
		    $mas1=  GUICtrlSetData ($vibr48,MouseGetPos(1)-$pogr) 
		EndIf
		If $ii=25 Then
		   $mas= GUICtrlSetData ($vibr49,MouseGetPos(0)) 
		    $mas1=  GUICtrlSetData ($vibr50,MouseGetPos(1)-$pogr) 
		EndIf
		If $ii=26 Then
		   $mas= GUICtrlSetData ($vibr51,MouseGetPos(0)) 
		    $mas1=  GUICtrlSetData ($vibr52,MouseGetPos(1)-$pogr) 
		EndIf
		If $ii=27 Then
		   $mas= GUICtrlSetData ($vibr53,MouseGetPos(0)) 
		    $mas1=  GUICtrlSetData ($vibr54,MouseGetPos(1)-$pogr) 
		EndIf
		If $ii=28 Then
		   $mas= GUICtrlSetData ($vibr55,MouseGetPos(0)) 
		    $mas1=  GUICtrlSetData ($vibr56,MouseGetPos(1)-$pogr) 
		EndIf
		If $ii=29 Then
		   $mas= GUICtrlSetData ($vibr57,MouseGetPos(0)) 
		    $mas1=  GUICtrlSetData ($vibr58,MouseGetPos(1)-$pogr) 
		EndIf
		If $ii=30 Then
		   $mas= GUICtrlSetData ($vibr59,MouseGetPos(0)) 
		    $mas1=  GUICtrlSetData ($vibr60,MouseGetPos(1)-$pogr) 
		EndIf
		If $ii=31 Then
		   $mas= GUICtrlSetData ($vibr61,MouseGetPos(0)) 
		    $mas1=  GUICtrlSetData ($vibr62,MouseGetPos(1)-$pogr) 
		EndIf
		If $ii=32 Then
		   $mas= GUICtrlSetData ($vibr63,MouseGetPos(0)) 
		    $mas1=  GUICtrlSetData ($vibr64,MouseGetPos(1)-$pogr) 
		EndIf
		If $ii=33 Then
		   $mas= GUICtrlSetData ($vibr65,MouseGetPos(0)) 
		    $mas1=  GUICtrlSetData ($vibr66,MouseGetPos(1)-$pogr) 
		EndIf
		If $ii=34 Then
		   $mas= GUICtrlSetData ($vibr67,MouseGetPos(0)) 
		    $mas1=  GUICtrlSetData ($vibr68,MouseGetPos(1)-$pogr) 
		EndIf
		If $ii=35 Then
		   $mas= GUICtrlSetData ($vibr69,MouseGetPos(0)) 
		    $mas1=  GUICtrlSetData ($vibr70,MouseGetPos(1)-$pogr) 
		EndIf
		If $ii=36 Then
		   $mas= GUICtrlSetData ($vibr71,MouseGetPos(0)) 
		    $mas1=  GUICtrlSetData ($vibr72,MouseGetPos(1)-$pogr) 
		EndIf
	If $ii=37 Then
		   $mas= GUICtrlSetData ($vibr73,MouseGetPos(0)) 
		    $mas1=  GUICtrlSetData ($vibr74,MouseGetPos(1)-$pogr) 
					
				EndIf
				If $ii=38 Then
		   $mas= GUICtrlSetData ($vibr75,MouseGetPos(0)) 
		    $mas1=  GUICtrlSetData ($vibr76,MouseGetPos(1)-$pogr) 
					
				EndIf
				If $ii=39 Then
		   $mas= GUICtrlSetData ($vibr77,MouseGetPos(0)) 
		    $mas1=  GUICtrlSetData ($vibr78,MouseGetPos(1)-$pogr) 
					
				EndIf
				If $ii=40 Then
		   $mas= GUICtrlSetData ($vibr79,MouseGetPos(0)) 
		    $mas1=  GUICtrlSetData ($vibr80,MouseGetPos(1)-$pogr) 
					
				EndIf
				If $ii=41 Then
		   $mas= GUICtrlSetData ($vibr81,MouseGetPos(0)) 
		    $mas1=  GUICtrlSetData ($vibr82,MouseGetPos(1)-$pogr) 
					
				EndIf
				If $ii=42 Then
		   $mas= GUICtrlSetData ($vibr83,MouseGetPos(0)) 
		    $mas1=  GUICtrlSetData ($vibr84,MouseGetPos(1)-$pogr) 
					
				EndIf
				If $ii=43 Then
		   $mas= GUICtrlSetData ($vibr85,MouseGetPos(0)) 
		    $mas1=  GUICtrlSetData ($vibr86,MouseGetPos(1)-$pogr) 
					
				EndIf
				If $ii=44 Then
		   $mas= GUICtrlSetData ($vibr87,MouseGetPos(0)) 
		    $mas1=  GUICtrlSetData ($vibr88,MouseGetPos(1)-$pogr) 
					
				EndIf
				If $ii=45 Then
		   $mas= GUICtrlSetData ($vibr89,MouseGetPos(0)) 
		    $mas1=  GUICtrlSetData ($vibr90,MouseGetPos(1)-$pogr) 
					
				EndIf
				If $ii=46 Then
		   $mas= GUICtrlSetData ($vibr91,MouseGetPos(0)) 
		    $mas1=  GUICtrlSetData ($vibr92,MouseGetPos(1)-$pogr) 
					
				EndIf
				If $ii=47 Then
		   $mas= GUICtrlSetData ($vibr93,MouseGetPos(0)) 
		    $mas1=  GUICtrlSetData ($vibr94,MouseGetPos(1)-$pogr) 
					
				EndIf
				If $ii=48 Then
		   $mas= GUICtrlSetData ($vibr95,MouseGetPos(0)) 
		    $mas1=  GUICtrlSetData ($vibr96,MouseGetPos(1)-$pogr) 
					
				EndIf
				If $ii=49 Then
		   $mas= GUICtrlSetData ($vibr97,MouseGetPos(0)) 
		    $mas1=  GUICtrlSetData ($vibr98,MouseGetPos(1)-$pogr) 
					
				EndIf
				If $ii=50 Then
		   $mas= GUICtrlSetData ($vibr99,MouseGetPos(0)) 
		    $mas1=  GUICtrlSetData ($vibr100,MouseGetPos(1)-$pogr) 
					
				EndIf
				If $ii=51 Then
		   $mas= GUICtrlSetData ($vibr101,MouseGetPos(0)) 
		    $mas1=  GUICtrlSetData ($vibr102,MouseGetPos(1)-$pogr) 
					
				EndIf
				If $ii=52 Then
		   $mas= GUICtrlSetData ($vibr103,MouseGetPos(0)) 
		    $mas1=  GUICtrlSetData ($vibr104,MouseGetPos(1)-$pogr) 
					
				EndIf
				If $ii=53 Then
		   $mas= GUICtrlSetData ($vibr105,MouseGetPos(0)) 
		    $mas1=  GUICtrlSetData ($vibr106,MouseGetPos(1)-$pogr) 
					
				EndIf
				If $ii=54 Then
		   $mas= GUICtrlSetData ($vibr107,MouseGetPos(0)) 
		    $mas1=  GUICtrlSetData ($vibr108,MouseGetPos(1)-$pogr) 
					
				EndIf
				If $ii=55 Then
		   $mas= GUICtrlSetData ($vibr109,MouseGetPos(0)) 
		    $mas1=  GUICtrlSetData ($vibr110,MouseGetPos(1)-$pogr) 
					
				EndIf
				If $ii=56 Then
		   $mas= GUICtrlSetData ($vibr111,MouseGetPos(0)) 
		    $mas1=  GUICtrlSetData ($vibr112,MouseGetPos(1)-$pogr) 
					
				EndIf

										; Next
									 EndFunc

Автор темы	Похожие темы	Форум	Ответы	Дата
	Перенесено: [Автоматизация] Написать бота для игры	Покупка/продажа, поиск услуг	0	20 Мар 2019
M	[Автоматизация] Бот для BlueStacks, считывание с экрана	Разработка ботов	9	21 Фев 2018
M	[Автоматизация] Добавить бесконечный цикл для беспрерывной работы программы	Стол заказов	7	8 Сен 2017
	[Автоматизация] Ищу специалиста, для постоянной связи, во время разработки скрипта IE	Покупка/продажа, поиск услуг	0	24 Июл 2016
	Перенесено: [Автоматизация] Как научить библиотеку для работы с FireFox работать с браузером TOR?	Общие вопросы по AutoIt	0	26 Сен 2015

Поиск

Поиск

[Автоматизация] Бот для игры вконтакте Территория Фермеров.

warshadow

Новичок

Belfigor

Модератор

warshadow

Новичок

Belfigor

Модератор

ancup

Новичок

warshadow

Новичок

ancup

Новичок

warshadow

Новичок

ancup

Новичок

warshadow

Новичок