Что нового

[Мышь, клавиатура] Как сделать чтобы бот кликал рандомно по прямоугольнику?

Art4D

Новичок
Сообщения
22
Репутация
3
Я сделал бота
Вот скрипт:
Код:
Dim $value[9]=[0xFBFDFD,0xFCB975,0x8A82C0,0x45B217,0x7178E2,0xA17F4F,0x5F67D1,0xB7745D,0xE0835A]

while 1
For $i = 0 to UBound($value)-1
$coord = PixelSearch( 330, 60, 1583, 923, $value[$i])
If @error=0 Then MouseClick('left',$coord[0],$coord[1])
Next
wend

Я хочу чтобы скрипт этот выполнялся и еще, чтобы бот кликал по определенному прямоугольнику рандомно черз некоторое время(20-40сек.)
Подскажите как сделать)
 

madmasles

Модератор
Глобальный модератор
Сообщения
7,790
Репутация
2,322
Art4D
Код:
;...
Sleep(Random(20, 40, 1) * 1000)
;...
 
Автор
A

Art4D

Новичок
Сообщения
22
Репутация
3
это код времени а как сделать чтобы он кликал в прямоугольник??????????????
 

edward_freedom

Осваивающий
Сообщения
200
Репутация
44
В какой еще прямоугольник :blink:?Обьясни понятней :wacko:
 

dwerf

Использует ArchLinux
Сообщения
478
Репутация
219
В справке:
функции для некоторого времени: Random, TimerInit, TimerDiff, AdlibRegister
для клика в прямоугольник: Random, MouseClick

Код:
Dim $value[9] = [0xFBFDFD, 0xFCB975, 0x8A82C0, 0x45B217, 0x7178E2, 0xA17F4F, 0x5F67D1, 0xB7745D, 0xE0835A]

Local $iRectUpperLeftPosX = 100, $iRectUpperLeftPosY = 100, $iRectLowerRightPosX = 200, $iRectLowerRightPosY = 200

Local $iSleep = Int(Random(20, 40, 0)*1000), $iTimer = TimerInit()

While 1
	For $i = 0 To UBound($value) - 1
		$coord = PixelSearch(330, 60, 1583, 923, $value[$i])
		If @error = 0 Then MouseClick('left', $coord[0], $coord[1])
	Next
	If TimerDiff($iTimer) >= $iSleep Then
		MouseClick('LEFT', Random($iRectUpperLeftPosX, $iRectLowerRightPosX, 1), Random($iRectUpperLeftPosY, $iRectLowerRightPosY, 1))
		$iSleep = Int(Random(20, 40, 0)*1000)
		$iTimer = TimerInit()
	EndIf
WEnd
 

Irlandec

Новичок
Сообщения
21
Репутация
0
Код:
While 1
$rst = Random(3000,5000,1)
$rmx1 = Random(164,179,1)
$rmy1 = Random(226,241,1)
$rmx2 = Random(73,89,1)
$rmy2 = Random(215,240,1)
$rms3 = Random(0,4)
$rms4 = Random(0,4)

Sleep($rst)
MouseMove($rmx1,$rmy1,$rms3);
Sleep($rst)
MouseDown("left")
Sleep($rst)
MouseMove($rmx2,$rmy2,$rms4);
Sleep($rst)
MouseUp("left")
  WEnd

в приципе самый простой пример.
 

C2H5OH

AutoIT Гуру
Сообщения
1,473
Репутация
333
Код:
; прямоугольник
$x1 = 1
$x2 = 200
$y1 = 1
$y2 = 100
; рандомный клик в прямоугольник
MouseClick('left',Random($x1,$x2,1),Random($y1,$y2,1))
 
Верх