Yushka1980
Новичок
- Сообщения
- 24
- Репутация
- 0
версия:3.3.8.1
Описание: нужен бот для поиска пикселя в окне и наведении на него курсором
Описание: нужен бот для поиска пикселя в окне и наведении на него курсором
[мышь]слежение за цветом в данной области
- Автор темы Yushka1980
- Дата начала
- Статус
Автор
Yushka1980
Новичок
- Сообщения
- 24
- Репутация
- 0
запускаю через scite ....пишу программу
[info]Global 0xCB181A
While 1
Local $ar=PixelSearch(0,0,@DesktopWidth,@DesktopHeight,0xCB181A,10,1,$HWnd)
If IsArray($ar) Then
MouseMove($ar[0],$ar[1])
EndIf
Sleep(20)
WEnd[/info]
....нажимаю Gо...внизу пишут ,C:\Users\????\Documents\111.au3 (1) : ==> No variable given for "Dim", "Local", "Global", "Struct" or "Const" statement.:
Global 0xCB181A
Global ^ ERRORспс
[info]Global 0xCB181A
While 1
Local $ar=PixelSearch(0,0,@DesktopWidth,@DesktopHeight,0xCB181A,10,1,$HWnd)
If IsArray($ar) Then
MouseMove($ar[0],$ar[1])
EndIf
Sleep(20)
WEnd[/info]
....нажимаю Gо...внизу пишут ,C:\Users\????\Documents\111.au3 (1) : ==> No variable given for "Dim", "Local", "Global", "Struct" or "Const" statement.:
Global 0xCB181A
Global ^ ERRORспс
Автор
Yushka1980
Новичок
- Сообщения
- 24
- Репутация
- 0
еще вопросик.чтобы слежение осуществлялось при нажатии какой нибудь кнопки?
Добавлено:
может так лучше?
Добавлено:
Сообщение автоматически объединено:
HotKeySet("{q}", "aim")
Do
Until GUIGetMsg("Disturbed") = -3
Func aim()
$aRed_Coords = PixelSearch(0, 0, @DesktopWidth, @DesktopHeight, 0xCB181A, 0x25)
If Not @error Then MouseClick("Main", $aRed_Coords[0], $aRed_Coords[1])
EndFunc
Do
Until GUIGetMsg("Disturbed") = -3
Func aim()
$aRed_Coords = PixelSearch(0, 0, @DesktopWidth, @DesktopHeight, 0xCB181A, 0x25)
If Not @error Then MouseClick("Main", $aRed_Coords[0], $aRed_Coords[1])
EndFunc
Автор
Yushka1980
Новичок
- Сообщения
- 24
- Репутация
- 0
а как добавить в эту программу функцию ispressed ? спс
Как то так
Код:
#include <Misc.au3>
Local $hDLL = DllOpen("user32.dll")
Global $color = 0xCB181A
While 1
If _IsPressed("01" , $hDLL) Then
Local $ar=PixelSearch(0,0,@DesktopWidth,@DesktopHeight,$color)
If IsArray($ar) Then
MouseMove($ar[0],$ar[1])
EndIf
EndIf
Sleep(20)
WEnd
Автор
Yushka1980
Новичок
- Сообщения
- 24
- Репутация
- 0
Код:
HotKeySet("{q}", "aim")
Do
Until GUIGetMsg("Disturbed") = -3
Func aim()
$hWnd = WinGetHandle("[CLASS:APB Reloaded]", '')
$aRed_Coords = PixelSearch(0, 0, @DesktopWidth, @DesktopHeight, 0xCB181A,10,1,$HWnd)
If Not @error Then
Mousemove( $aRed_Coords[0], $aRed_Coords[1],1)
sleep(10)
MouseClick("left", $aRed_Coords[0], $aRed_Coords[1],1,10)
Opt("PixelCoordMode", 2) ;Отсчет координат пикселей от левого верхнего угла клиентской части окна
Opt("MouseCoordMode", 2) ;Отсчет координат мыши от левого верхнего угла клиентской части окна
endif
EndFuncв скриншоте норма работает а в игре не работает ?странно :(
он когда сворачиваешь окно(альт +есц) появл курсор мыши и срабатывает.обратно нажимаешь на акт окна .и ничего.читал на форуме про защиты клиента gg .подскажите плиз :blink:
- Статус