PixelSearch и клик мыши за границами экрана. возможно?

[agikon]

Хочу организовть некую автоматику независимо от того окно на видимой области рабочего стола или за его видимой областью. ну то есть беру окно и тяну на край раб стола так чтобы только кусочек его видно было на раб столе, а остальное за экраном.
то есть чтобы например PixelSearch искал по координатам

$search = PixelSearch(-1000, -1000, 2000, 2000 , 0xfffff, 0, 1)

(разрешение у меня 1280х1024)

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

что-то я упускаю или PixelSearch и кликнуть за границами экрана не могут ни искать пиксель. ни кликнуть мышкой?
подскажите пожалуйста.

 

[Arei]

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 324, 174, 192, 124)
$Edit1 = GUICtrlCreateEdit("", 9, 8, 295, 97)
Opt("PixelCoordMode",2)

HotKeySet("{F5}", "TogglePause")



GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit


	EndSwitch
WEnd



Func TogglePause()

		$var = PixelGetColor( 44 , 40 )

MsgBox(0,"цвет", "0х"&Hex($var, 6))
EndFunc

Потом измените координаты окна и нажмите F5 /Для повторной проверки.
Это,если в вашем же окне.Другие способы можно позже рассмотреть.

 

[agikon]

Arei
Ваш пример к сожалению совсем не работает.

1)если окно поместить за экран то постоянно выдаёт цвет ffffff (то есть за экраном всё-равно не видит цвета)

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

такое возможно?

 

[agikon]

ну хорошо, пускай уже и с Opt("PixelCoordMode",2) в активном окне относительно ищет.

но так не работает же и так, вот пример, если окно на раб столе и нажать F5 то показывает D4D0C8, а если переместить окно за границы видимой области раб стола то показывает постоянно FFFFFF

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 324, 174, 192, 124)
$Edit1 = GUICtrlCreateEdit("", 9, 8, 295, 97)
Opt("PixelCoordMode",2)
HotKeySet("{F5}", "TogglePause")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
    EndSwitch
WEnd

Func TogglePause()
        $var = PixelGetColor( 0 , 0 )
MsgBox(0,"цвет", "0х"&Hex($var, 6))
EndFunc

подскажите пожалуйста что не так?

 

[ballarad]

Считать цвет за границами можно так:

#include <WinAPIEx.au3>
#include <WinAPI.au3>

Func _PixelGetColorEx ($iX, $iY, $hWnd)
    Local $hDDC, $hCDC, $hBMP
    $iWidth = _WinAPI_GetWindowWidth($hWnd)
    $iHeight = _WinAPI_GetWindowHeight($hWnd)
    $hDDC = _WinAPI_GetDC($hWnd)
    $hCDC = _WinAPI_CreateCompatibleDC($hDDC)
    $hBMP = _WinAPI_CreateCompatibleBitmap($hDDC, $iWidth, $iHeight) ; создаем битовый массив
    _WinAPI_SelectObject($hCDC, $hBMP)
    DllCall("User32.dll", "int", "PrintWindow", "hwnd", $hWnd, "hwnd", $hCDC, "int", 0)
    $sColor = _WinAPI_GetPixel($hCDC, $iX, $iY)
    _WinAPI_ReleaseDC($hWnd, $hDDC)
    _WinAPI_DeleteDC($hCDC)
   _WinAPI_DeleteObject($hBMP) ; очищаем битовый массив
    Return $sColor
EndFunc   ;==>_PixelGetColorEx

А исакть цвет так :

Func _SearchPix($x1, $y1, $x2, $y2, $coll, $shvar=0, $step=1)
$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)
    $ARGB = _WinAPI_IntToDWord(BitOR($coll, 0xFF000000))
    $Size = WinGetClientSize($hWnd)
    $L = $Size[0] * $Size[1]
    $tBits = DllStructCreate('dword[' & $L & ']')
    _WinAPI_GetBitmapBits($hBitmap, 4 * $L, DllStructGetPtr($tBits))
    $Offset = -1
    For $i = $L1 To $L2 Step $step
        If DllStructGetData($tBits, 1, $i) = $ARGB Then
            $Offset = $i
            ExitLoop
        EndIf
    Next
    If $Offset = -1 Then
        Return SetError(1)
    Else
        $x = Mod($Offset, $Size[0]) - 1
        $y = Ceiling($Offset / $Size[0]) - 1
        Local $coor[2] = [$x+8, $y+30]
        Return $coor
    EndIf
EndFunc

 

[agikon]

спасибо.
я так понял за границей экрана можно искать только в окне. ну хорошо что хоть так.

но а как кликнуть мышкой за границами экрана в каком-то окне?



Добавлено:

Сообщение автоматически объединено: 21 Янв 2012

да что-то и этот код не ищет...
эх видать не судьба.

 

[agikon]

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

#include <WinAPIEx.au3>
#include <WinAPI.au3>

#include <Misc.au3>
#include <GUIConstantsEx.au3>

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <WindowsConstants.au3>

Opt("PixelCoordMode",2)
Opt("MouseCoordMode", 2)

Global $shvar=0, $step=1, $L1, $L2
$coll = 0x1ab7f2

$GUI = GUICreate('color', 400, 300)

GUISetState()
HotKeySet("{F5}", "_SearchPix")

While 1
 	$nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
    EndSwitch
WEnd


Func _SearchPix(1285, 0, 1400, 20, $coll, $shvar=0, $step=1)
$hWnd = WinWait('[REGEXPTITLE:.*Skype.*]', '', 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)
    $ARGB = _WinAPI_IntToDWord(BitOR($coll, 0x1ab7f2))
    $Size = WinGetClientSize($hWnd)
    $L = $Size[0] * $Size[1]
    $tBits = DllStructCreate('dword[' & $L & ']')
    _WinAPI_GetBitmapBits($hBitmap, 4 * $L, DllStructGetPtr($tBits))
    $Offset = -1
    For $i = $L1 To $L2 Step $step
        If DllStructGetData($tBits, 1, $i) = $ARGB Then
            $Offset = $i
            ExitLoop
        EndIf
    Next
    If $Offset = -1 Then
        Return SetError(1)
    Else
        $x = Mod($Offset, $Size[0]) - 1
        $y = Ceiling($Offset / $Size[0]) - 1
        Local $coor[2] = [$x+8, $y+30]
        Return $coor
    EndIf
EndFunc

 

[Arei]

OffTopic:
:'( да уж.

 

[ballarad]

http://autoit-script.ru/index.php/topic,4462.msg32220.html#msg32220

 

[agikon]

ballarad
да это всё не то!
ни какой мне концепции не надо!
всё в развернутом окне должно искать, но просто за границами экрана.
и всего то обнаружить координату пикселя и кликнуть по нему.