Печать

[Sanke [?]]

Добрый день.
Нужен скрипт аналога AutoIt Window Info Tool.

Точнее: Нужна часть этой программы, которая имеет вид лупы, и позволяет точно захватить данные пикселя (x/y/color). Лупа нужна для точного наведения на пиксель.

п.с.: найти похожую тему или самому разобраться в данной проблеме не получилось.

Заранее спасибо.

[VladUs [?]]

Control Viewer - Альтернатива AutoIt Window Info

[Sanke [?]]

Аналог, но как не искал, не смог найти в нем нужный мне функционал...

[Belfigor [?]]

Ленивым помогать тут не любят. Если "как не искал, не смог найти", значит "не искал вообще, найдите за меня". au3 версия файла там есть.

[zlo-kazan [?]]

Хм... по моему проще самому сделать через 2 функции... MouseGetPos и PixelGetColor....

Код: AutoIt [Выделить]

$pos = MouseGetPos()
$Color=PixelGetColor($pos[0],$pos[1])
msgbox(0,"", "X= " & $pos[0] & "  Y= " & $pos[1] & @CRLF & hex($Color,6))
 

[Sanke [?]]

Ленивым помогать тут не любят. Если "как не искал, не смог найти", значит "не искал вообще, найдите за меня". au3 версия файла там есть.

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

[VladUs [?]]

Здесь неплохой пример увеличилки.
Прицел , думаю сам сможешь прикрутить..
Как определить цвет zlo-kazan тебе уже написал...

[Sanke [?]]

ВО! спасибо большое! то что надо!

[AZJIO [?]]

VladUs
Попробовал пример, нарягает процессор на 50%
Лучше этот вариант

Sanke
Название темы одно, а требуется совсем другое... "Нужна экранная лупа"

По теме лупы переделал немного скрипт. Во первых поместил вызов функции внутрь условия (оптимизация), во вторых добавил управление клавишами и колёсиком мыши.

Код: AutoIt [Выделить]

; Добавил управление горячими клавишами
; Колёсико мыши - только регулировка увеличения
; Ctrl+Колёсико мыши - регулировка увеличения и размера лупы
; Shift+Колёсико мыши - только изменение размера лупы

; http://www.autoitscript.com/forum/index.php?showtopic=24154&view=findpost&p=168674
#include <GUIConstants.au3>
#include <WindowsConstants.au3>
#include <StaticConstants.au3>
; Global Const $WM_MOUSEWHEEL = 0x020A
HotKeySet("{ESC}", "_Quit")
GUIRegisterMsg(0x020A , "WM_MOUSEWHEEL")

; установка параметров
Global $MagZoom = 4
Global $MagWidth = $MagZoom*10
Global $MagHeight =$MagZoom*10
Global $LastWidth = $MagWidth*$MagZoom
Global $LastHeight =$MagHeight*$MagZoom
Global $LastZoom, $Tr1=1
; $d = Int($MagWidth/2 + 5)

; Global $SRCCOPY = 0x00CC0020
Global $dll[3], $DeskHDC, $GUIHDC

$dll[1] = DllOpen ( "user32.dll")
$dll[2] = DllOpen ( "gdi32.dll")

Global $GUI = GUICreate ("Zoom x2 Au3", $MagWidth * $MagZoom, $MagHeight * $MagZoom, _
    MouseGetPos (0), MouseGetPos (1), $WS_POPUP+$WS_BORDER, $WS_EX_TOPMOST)

GUISetState(@SW_SHOW)

Global $LastPos[2] = [0,0]

While 1
    $MousePos = MouseGetPos() ; получаем координаты мыши
    If $LastPos[0] <> $MousePos[0] Or $LastPos[1] <> $MousePos[1] Or $Tr1=1 Then ; если позиция мыши и зум изменилась, то выполняем перемещение
        WinMove("Zoom x2 Au3", "", $MousePos[0] + $MagWidth/2 + 5, $MousePos[1], $MagWidth * $MagZoom, $MagHeight * $MagZoom)
        $LastPos[0] = $MousePos[0] ; и темпируем координаты и зум
        $LastPos[1] = $MousePos[1]
        $LastZoom = $MagZoom
        $Tr1=0
        MAG()
    EndIf
    Sleep(10)
WEnd

Func MAG()
    $DeskHDC = DLLCall("user32.dll","int","GetDC","hwnd",0)
    $GUIHDC = DLLCall("user32.dll","int","GetDC","hwnd",$GUI)
    If Not @error Then ; если без ошибок открыли DLL, то
        DLLCall("gdi32.dll", "int", "StretchBlt", "int", $GUIHDC[0], "int", _
            0, "int", 0, "int", $MagWidth * $MagZoom, "int", $MagHeight * $MagZoom, "int", $DeskHDC[0], "int", _
            MouseGetPos (0) - $MagWidth/2, "int", MouseGetPos (1) - $MagHeight/2, "int", $MagWidth ,"int", $MagHeight, _
            "long", $SRCCOPY)
        DLLCall("user32.dll","int","ReleaseDC","int",$DeskHDC[0],"hwnd",0)
        DLLCall("user32.dll","int","ReleaseDC","int",$GUIHDC[0],"hwnd",$GUI)
    EndIf
    ; размер ящика выходного и координаты ящика сканирования
EndFunc

Func WM_MOUSEWHEEL($hWndGui, $MsgId, $wParam, $lParam)
    If $MsgId = $WM_MOUSEWHEEL Then
        $KeysHeld = BitAND($wParam, 0xFFFF) ; нажатый модификатор
        $direction = BitShift($wParam, 16)
        ; $X = BitShift($lParam, 16) ; координаты мыши
        ; $Y = BitAND($lParam, 0xFFFF)
       
        If $direction > 0 Then
            $MagZoom += 1
        Else
            $MagZoom -= 1
        EndIf
        If $MagZoom < 2 Then $MagZoom = 2

        Switch $KeysHeld
            Case 0 ; ничего
                $MagWidth = $LastWidth/$MagZoom
                $MagHeight =$LastHeight/$MagZoom
            Case 4 ; Shift
                If $direction > 0 Then
                    $LastWidth = $MagWidth*$MagZoom
                    $LastHeight =$MagHeight*$MagZoom
                   
                    $MagZoom -= 2
                   
                    $MagWidth = $LastWidth/$MagZoom
                    $MagHeight =$LastHeight/$MagZoom
                Else
                    $LastWidth = $MagWidth*$MagZoom
                    $LastHeight =$MagHeight*$MagZoom
                   
                    $MagZoom += 2
                   
                    $MagWidth = $LastWidth/$MagZoom
                    $MagHeight =$LastHeight/$MagZoom
                EndIf              
                $MagZoom=$LastZoom
            Case 8 ; Ctrl
                $LastWidth = $MagWidth*$MagZoom
                $LastHeight =$MagHeight*$MagZoom
        EndSwitch
        $Tr1=1
    EndIf
EndFunc

Func _Quit()
    DllClose ( $dll[1] )
    DllClose ( $dll[2] )
    Exit
EndFunc

• hackservis
• madmasles
• Andeangl
• asdf8
• Александр
• Asshaker
• Ganibal95
• zetar
• trizorka
• systel
• VladUs
• Pasmer
• megatoxx
• VKFLIBQIRJKMYBR
• enk
• SyDr
• aak
• valdur2000
• forumrulez
• mr.Gbabak
• Arei
• Hekpojiog
• CreatoR
• Kaster
• abelar
• centaur
• eropov
• Yashied
• Serafim
• inververs