Быстрый поиск пикселей в игре (HELP ME)

winbotx · 22 Апр 2012

Привет всем ! Перерыл гугл и наткнулся на форум , тут был выложен способ очень быстрого поиска пикселей .
Но , я не могу настроить его под себя :scratch:

Мне нужно :
Чтобы был найден цвет 0xFFFFFF , в небольшом квадрате , в центре экрана , мышка навелась на него и кликала .
Игра в которой хочу использова : Онлайн шутер .

Код который я нашёл :

Код:

#Include <Constants.au3>
#Include <WinAPIEx.au3>
#Include <WindowsConstants.au3>

Run(@ProgramFilesDir & '\Microsoft Games\Minesweeper\MineSweeper.exe')
$hWnd = WinWait('Minesweeper', '', 3)
If Not $hWnd Then
    Exit
EndIf

; Чтобы мины успели нарисоваться!
Sleep(1000)

$Size = WinGetClientSize($hWnd)
$hDC = _WinAPI_GetDC($hWnd)
$hMemDC = _WinAPI_CreateCompatibleDC($hDC)
$hBitmap = _WinAPI_CreateCompatibleBitmap($hDC, $Size[0], $Size[1])
$hSv = _WinAPI_SelectObject($hMemDC, $hBitmap)
_WinAPI_BitBlt($hMemDC, 0, 0, $Size[0], $Size[1], $hDC, 0, 0, $SRCCOPY)
_WinAPI_SelectObject($hMemDC, $hSv)
_WinAPI_DeleteDC($hMemDC)
_WinAPI_ReleaseDC($hWnd, $hDC)

; Здесь у тебя есть готовый битмап ($hBitmap), делай с ним что хочешь!

;----------------------------------------

; Демонстрация
$hWnd = GUICreate('', $Size[0], $Size[1], 50, 50, -1, $WS_EX_TOPMOST)
GUISetState()
$hDC = _WinAPI_GetDC($hWnd)
$L = $Size[0] * $Size[1]
$tBits = DllStructCreate('dword[' & $L & ']')
_WinAPI_GetBitmapBits($hBitmap, 4 * $L, DllStructGetPtr($tBits))
$Offset = 1
For $y = 0 To $Size[1] - 1
    For $x = 0 To $Size[0] - 1
        _WinAPI_SetPixel($hDC, $x, $y, DllStructGetData($tBits, 1, $Offset))
        $Offset += 1
    Next
Next
_WinAPI_ReleaseDC($hWnd, $hDC)

;----------------------------------------

; Ищем точку с цветом 0x87BEF5 (RGB)
$ARGB = _WinAPI_IntToDWord(BitOR(0x87BEF5, 0xFF000000))
$L = $Size[0] * $Size[1]
$tBits = DllStructCreate('dword[' & $L & ']')
_WinAPI_GetBitmapBits($hBitmap, 4 * $L, DllStructGetPtr($tBits))
$Timer = TimerInit()
$Offset = -1
For $i = 1 To $L
    If DllStructGetData($tBits, 1, $i) = $ARGB Then
        $Offset = $i
        ExitLoop
    EndIf
Next
ConsoleWrite('API' & @CR)
ConsoleWrite(TimerDiff($Timer) & @CR)
If $Offset = -1 Then
    ConsoleWrite('Not Found!' & @CR)
Else
    ConsoleWrite('X = ' & Mod($Offset, $Size[0]) - 1 & @CR)
    ConsoleWrite('Y = ' & Ceiling($Offset / $Size[0]) - 1 & @CR)
EndIf

ConsoleWrite('' & @CR)
;----------------------------------------

Opt('PixelCoordMode', 2)
$Timer = TimerInit()
$Offset = False
For $y = 0 To $Size[1] - 1
    For $x = 0 To $Size[0] - 1
        If PixelGetColor($x, $y, $hWnd) = 0x87BEF5 Then
            $Offset = True
            ExitLoop 2
        EndIf
    Next
Next
ConsoleWrite('AutoIt' & @CR)
ConsoleWrite(TimerDiff($Timer) & @CR)
If Not $Offset Then
    ConsoleWrite('Not Found!' & @CR)
Else
    ConsoleWrite('X = ' & $x & @CR)
    ConsoleWrite('Y = ' & $y & @CR)
EndIf

;----------------------------------------

Do
Until GUIGetMsg() = -3

Belfigor · 22 Апр 2012

Ты сначала команду PixelSearch осознай, опробуй и осиль.

winbotx · 23 Апр 2012

Уже осилил и сделал аим на PixelSearch , но он медленно ищит пиксели и если объекты движутся , мышка отстаёт => идут промахи , мне нужен быстрый поиск пикселей .
Помогите пожалуйста :-\

C2H5OH · 23 Апр 2012

Ну, ты ж в гугле уже всё нашел. ;D
В приведённом тобой коде ускорение достигается за счет того что делается скрин, а потом идёт поиск пикселя не путем обращения к видеопамяти, а просто в этом скрине.

Тебе нужно скачать эти библиотеки

Код:

#Include <Constants.au3>
#Include <WinAPIEx.au3>
#Include <WindowsConstants.au3>

В твоём скрипте ты получаешь скрин

Код:

$hWnd = WinWait('твой шутер', '', 3)
$Size = WinGetClientSize($hWnd)
$hDC = _WinAPI_GetDC($hWnd)
$hMemDC = _WinAPI_CreateCompatibleDC($hDC)
$hBitmap = _WinAPI_CreateCompatibleBitmap($hDC, $Size[0], $Size[1])
$hSv = _WinAPI_SelectObject($hMemDC, $hBitmap)
_WinAPI_BitBlt($hMemDC, 0, 0, $Size[0], $Size[1], $hDC, 0, 0, $SRCCOPY)
_WinAPI_SelectObject($hMemDC, $hSv)
_WinAPI_DeleteDC($hMemDC)
_WinAPI_ReleaseDC($hWnd, $hDC)
; Здесь у тебя есть готовый битмап ($hBitmap), делай с ним что хочешь!

И дальше ищешь в битмапе точку нужного тебе цвета

Код:

; Ищем точку с цветом 0xFFFFFF (RGB)
$ARGB = _WinAPI_IntToDWord(BitOR(0xFFFFFF, 0xFF000000))
$L = $Size[0] * $Size[1]
$tBits = DllStructCreate('dword[' & $L & ']')
_WinAPI_GetBitmapBits($hBitmap, 4 * $L, DllStructGetPtr($tBits))
$Offset = -1
For $i = 1 To $L
    If DllStructGetData($tBits, 1, $i) = $ARGB Then
        $Offset = $i
        ExitLoop
    EndIf
Next
If $Offset = -1 Then
    ; Точка указанного цвета не найдена
Else
    $X = Mod($Offset, $Size[0]) - 1
    $Y = Ceiling($Offset / $Size[0]) - 1
EndIf

winbotx · 23 Апр 2012

Ох спасибо ! Слушай , а как наводитить прицел на найденный пиксель? Всмысле понятно что MouseMove , просто куда , что здесь отвечает за положение пикселя?
Т.е например в обычном скрипте :

Код:

MouseMove( $1[0] , $1[1] )

,а тут как делать?
Добавлено:
Сообщение автоматически объединено: 23 Апр 2012

С наведение справился , а как облость регулировать?
Всмысле например я хочу сделать чтобы искало пиксели вокруг мышки .
К примеру в старом скрипте я делал так :

Код:

Global $mouse = MouseGetPos()
	$1 = PixelSearch($mouse[0]-8, $mouse[1]-3, $mouse[0]+8, $mouse[1]+3, $color)

А потом наводился на $1

Добавлено:
Сообщение автоматически объединено: 23 Апр 2012

Насчёт наведения тоже поспешил , не разобрался , стреляет не туда ...
Попробовал сделать так :

Код:

MouseMove($x,$y)

стреляет чёрт знает куда)

C2H5OH · 24 Апр 2012

а как область регулировать?

Не вопрос! Вместо

Код:

$Offset = -1
For $i = 1 To $L
    If DllStructGetData($tBits, 1, $i) = $ARGB Then
        $Offset = $i
        ExitLoop
    EndIf
Next
If $Offset = -1 Then
    ; Точка указанного цвета не найдена
Else
    $X = Mod($Offset, $Size[0]) - 1
    $Y = Ceiling($Offset / $Size[0]) - 1
EndIf

Пишем

Код:

$mouse = MouseGetPos()
$X=0
$Y=0
For $i = $mouse[0]-8 To $mouse[0]+8
	For $j = $mouse[1]-3 To $mouse[1]+3
		If DllStructGetData($tBits, 1, $i) = $ARGB Then
			$X = $i
			$Y = $j
			ExitLoop
		EndIf
	Next
Next
If ($X = 0) AND ($Y = 0) Then
    ; Точка указанного цвета не найдена
EndIf

Добавлено:
Сообщение автоматически объединено: 24 Апр 2012

Насчёт наведения тоже поспешил , не разобрался , стреляет не туда ...

в старом скрипте я делал так : ...
А потом наводился на $1

Ну так а в старом скрипте наводился как?
Тут ничего не поменялось, просто вместо $1[0] и $1[1] ты теперь берёшь $X и $Y.

inververs · 24 Апр 2012

winbotx [?]

Уже осилил и сделал аим на PixelSearch , но он медленно ищит пиксели и если объекты движутся , мышка отстаёт => идут промахи , мне нужен быстрый поиск пикселей .

PixelSearch не двигает курсор, он просто выдает координаты пикселя. Курсор двигает функция

Код:

MouseMove()

- третим параметром которой ... скорость.
Но она только передвигает курсур, но не нажимает клавиш.
Что бы кликнуть куда то используй

Код:

MouseClick()

winbotx · 24 Апр 2012

Ох спасибо ! Но всё равно у меня некорректно работает .
Вообщем оно не реагирует на пиксели окна которое я указал в начале , но реагирует например если я на рабочем столе наведу на иконку с таким цветом .
+ Ещё и работает только 1 раз почему-то .(Я запускаю скрипт , пробую , закрываю , запускаю ещё раз не реагирует вообще ни на что)
Помогите пожалуйста :stars:

C2H5OH · 25 Апр 2012

Показывай скрипт. :scratch:

winbotx · 25 Апр 2012

Код:

#Include <Constants.au3>
#Include <WinAPIEx.au3>
#Include <WindowsConstants.au3>



HotKeySet("j", "_OFFProg")
HotKeySet("l","_Pause")

Func _Pause()
    While 1
        Sleep(1000)
    WEnd
EndFunc


Func _OFFProg()
	Exit
EndFunc



While 1
$hWnd = WinWait('Counter-Strike Source', '', 3)
$Size = WinGetClientSize($hWnd)
$hDC = _WinAPI_GetDC($hWnd)
$hMemDC = _WinAPI_CreateCompatibleDC($hDC)
$hBitmap = _WinAPI_CreateCompatibleBitmap($hDC, $Size[0], $Size[1])
$hSv = _WinAPI_SelectObject($hMemDC, $hBitmap)
_WinAPI_BitBlt($hMemDC, 0, 0, $Size[0], $Size[1], $hDC, 0, 0, $SRCCOPY)
_WinAPI_SelectObject($hMemDC, $hSv)
_WinAPI_DeleteDC($hMemDC)
_WinAPI_ReleaseDC($hWnd, $hDC)
; Здесь у тебя есть готовый битмап ($hBitmap), делай с ним что хочешь!



; Ищем точку с цветом 0xFFFFFF (RGB)
$ARGB = _WinAPI_IntToDWord(BitOR(0xFFFFFF, 0xFF000000))
$L = $Size[0] * $Size[1]
$tBits = DllStructCreate('dword[' & $L & ']')
_WinAPI_GetBitmapBits($hBitmap, 4 * $L, DllStructGetPtr($tBits))
$mouse = MouseGetPos()
$X=0
$Y=0
For $i = $mouse[0]-8 To $mouse[0]+8
    For $j = $mouse[1]-3 To $mouse[1]+3
        If DllStructGetData($tBits, 1, $i) = $ARGB Then
            $X = $i
            $Y = $j
            ExitLoop
        EndIf
    Next
Next
If ($X = 0) AND ($Y = 0) Then
    
Else
	MouseClick("left")
EndIf

WEnd

По идеи когда вокруг мышки появляется цвет FFFFFF ,скрипт должен нажимать левую кнопку мышки , и тем самым стрелять .
Но так как я описал в сообщении выше не происходит .

Asshaker · 25 Апр 2012

2 winbotx прокомментируй код пожалуйста.

winbotx · 25 Апр 2012

Я сам помощи ищу .
Надеюсь мне помогут :-\

C2H5OH · 25 Апр 2012

Сори, протупил :-[
Вот так должно быть

Код:

For $i = $mouse[0]-8 To $mouse[0]+8
	For $j = $mouse[1]-3 To $mouse[1]+3
		$point = $i*$Size[0] + $j
		If DllStructGetData($tBits, 1, $point) = $ARGB Then
			$X = $i
			$Y = $j
			ExitLoop
		EndIf
	Next
Next

С паузой ты намутил немного...
Вот так правильно

Код:

Global $PauseFlag = False

HotKeySet("{l}","_Pause")

Func _Pause()
	$PauseFlag = Not $PauseFlag
    While $PauseFlag
        Sleep(1000)
    WEnd
EndFunc

winbotx · 25 Апр 2012

Всё равно те же проблемы :'(

running-frag · 26 Апр 2012

Код:

$1 = ....

OffTopic:
Я конечно извеняюсь но разве через dll быстрее нежели чем PixelSearch()? Самому интересно. К чему такие сложности с простым поиском пикселя?

Так же скажу, чем больше тазик нагружен во время поиска - тем медленнее сам поиск искомого пикселя. Поэтому всякие там антивири, торренты лучше отключать - увеличится быстродействия данного скрипта.

winbotx · 26 Апр 2012

Всё ещё жду помощи ... :(

Asshaker · 26 Апр 2012

OffTopic:
надежда умирает последней :smile:

winbotx · 26 Апр 2012

Help me ! :(

Автор темы	Похожие темы	Форум	Ответы	Дата
C	Ищу быстрый поиск в строке или в памяти (быстрее чем StringInStr)	Общие вопросы по AutoIt	2	3 Мар 2021
	Процессы Быстрый поиск в памяти процесса.	Общие вопросы по AutoIt	0	26 Авг 2020
G	как сделать быстрый поиск в combobox с фильтром?	Общие вопросы по AutoIt	7	28 Апр 2020
V	Как организовать быстрый поиск в выпадающем списке GUICtrlCreateCombo	GUI - Графический интерфейс пользователя	4	9 Окт 2018
	Перенесено: Быстрый поиск пикселей в игре (HELP ME)	Общие вопросы по AutoIt	0	22 Апр 2012

Поиск

Поиск

Быстрый поиск пикселей в игре (HELP ME)

winbotx

Новичок

Belfigor

Модератор

winbotx

Новичок

C2H5OH

AutoIT Гуру

winbotx

Новичок

C2H5OH

AutoIT Гуру

inververs

AutoIT Гуру

winbotx

Новичок

C2H5OH

AutoIT Гуру

winbotx

Новичок

Asshaker

Знающий

winbotx

Новичок

C2H5OH

AutoIT Гуру

winbotx

Новичок

running-frag

why me?

winbotx

Новичок

Asshaker

Знающий

winbotx

Новичок