[Creat0R]

amel27,

Имхо идентификации окна по одному заголовку маловато, надо проверять на его принадлежность текущему процессу

Согласен. Но во время построения примера я был озабочен другими проблемами

Типа такого

Хм.. не совсем понял как это использовать из функции, ведь hWnd нам не известен, если бы он был известен, то можно было бы просто использовать его вместо заголовка

Вот пример с функцией, возвращает идентификатор окна (Handle) основываясь на идентификаторе процесса (PID), тексте, и классе окна:

Код:

$iPID = Run("Notepad.exe")
ProcessWait($iPID)

Sleep(500)
Send("^s")
Sleep(1000)

$Handle = _WinGetHandleEx($iPID, "#32770", "", "FolderView")

MsgBox(64, "Title:", WinGetTitle($Handle))

Func _WinGetHandleEx($iPID, $sClassNN="", $sPartTitle="", $sText="", $iVisibleOnly=1)
    If IsString($iPID) Then $iPID = ProcessExists($iPID)

    Local $aWList = WinList("[CLASS:" & $sClassNN & ";REGEXPTITLE:(?i).*" & $sPartTitle & ".*]", $sText)
    If @error Then Return SetError(1, 0, "")

    For $i = 1 To $aWList[0][0]
        If WinGetProcess($aWList[$i][1]) = $iPID And (Not $iVisibleOnly Or _
            ($iVisibleOnly And BitAND(WinGetState($aWList[$i][1]), 2))) Then Return $aWList[$i][1]
    Next

    Return SetError(2, 0, "")
EndFunc

P.S
А по поводу моей проблемы с мышкой, есть идеи что можно придумать?

[amel27]

пока запущена определённая функция (в цикле), нажатие мышки (левую кнопку) нужно отключить, но чтобы можно было отследить, нажал ли юзер на эту кнопку »

собственно, аналогично клавиатуре

Код:

Global Const $WH_MOUSE_LL = 14

Global $hKeyProc = DllCallbackRegister ("_KeyProc", "int", "int;ptr;ptr")
Global $hmod = DllCall("kernel32.dll","hwnd","GetModuleHandle","ptr",0)

MsgBox(4096, "", 'После нажатия "Ok" левая кнопка мыши будет заблокирована на 10 сек.')
Global $hHook = DllCall("user32.dll","hwnd","SetWindowsHookEx","int", $WH_MOUSE_LL, _
    "ptr", DllCallbackGetPtr($hKeyProc), "hwnd", $hmod[0], "dword", 0)
Sleep(10000)
MsgBox(4096, "", 'Для разблокирования мышки нажмите "Ок"! ;)')
Exit

Func _KeyProc($nCode, $wParam, $lParam)
    If $nCode < 0 Or ($wParam<>0x201 And $wParam<>0x202) Then
        $ret = DllCall("user32.dll","long","CallNextHookEx","hwnd", $hHook[0], _
            "int", $nCode, "ptr", $wParam, "ptr", $lParam)
        Return $ret[0]
    EndIf
    Return 1
EndFunc

Func OnAutoItExit()
    DllCall("user32.dll","int","UnhookWindowsHookEx","hwnd",$hHook[0])
    DllCallbackFree($hKeyProc)
EndFunc

А по поводу моей проблемы с мышкой, есть идеи что можно придумать? »

тестил...

как это использовать из функции, ведь hWnd нам не известен »

ну, видимо перебрать все окна с одинаковыми титлами и найти своё...

[Creat0R]

amel27,

аналогично клавиатуре

Абалдеть!!! другого слова просто не позволяю себе сказать (написать)!

Вот пример, подобный обработке сообщении для элементов GUI (ListView в частности):

Код:

Global Const $WH_MOUSE_LL = 14

Global $hKeyProc = DllCallbackRegister ("_Mouse_Handler", "int", "int;ptr;ptr")
Global $hmod = DllCall("kernel32.dll", "hwnd", "GetModuleHandle", "ptr", 0)

MsgBox(4096, "", 'После нажатия "Ok" левая кнопка мыши будет заблокирована на 10 сек.')

Global $hHook = DllCall("user32.dll", "hwnd", "SetWindowsHookEx", "int", $WH_MOUSE_LL, _
    "ptr", DllCallbackGetPtr($hKeyProc), "hwnd", $hmod[0], "dword", 0)

Sleep(10000)

DllCall("user32.dll", "int", "UnhookWindowsHookEx", "hwnd", $hHook[0])
DllCallbackFree($hKeyProc)

Func _Mouse_Handler($nCode, $wParam, $lParam)
    Switch BitAND($WParam, 0xFFFF)
        Case 512 ;Mouse Move
            PrintF("Mouse Moving")
        Case 513 ;Primary Down
            PrintF("Primary Down [Blocked]")
            Return 1 ;Block default processing
        Case 514 ;Primary Up
            PrintF("Primary Up")
        Case 516 ;Secondary Down
            PrintF("Secondary Down")
        Case 517 ;Secondary Up
            PrintF("Secondary Up")
        Case 519 ;Midle Down
            PrintF("Midle Down")
        Case 520 ;Midle Up
            PrintF("Midle Up")
        Case 522 ;Mouse Whell
            PrintF("Mouse Whell")
        Case Else
            PrintF("Event: " & BitAND($WParam, 0xFFFF))
            Return 0 ;Allow default processing
    EndSwitch
EndFunc

Func PrintF($sString, $iMode=0, $iLine=@ScriptLineNumber)
    If $iMode = 0 Then
        ConsoleWrite("+======================================================" & @LF & _
                    "--> Script Line (" & $iLine & "):" & @LF & "!" & @TAB & $sString & @LF & _
                    "+======================================================" & @LF)
    Else
        MsgBox(64, "Debug", "> Script Line (" & $iLine & "):" & @LF & @LF & "Debug:" & @LF & $sString)
    EndIf
EndFunc

Теперь я наконец могу завершить свой проэкт. Спасибо!

[HORRIBLE]

Как реализовать при наведении мышки на картинку, курсор меняет вид, как уловить вот это момент поменял ли он вид или нет???
Для пирмера, на этом форуме если мышку довести до списка страниц то она вместо стрелочки окажется рукой.

[Angelus]

HORRIBLE,
GUICtrlSetCursor ( -1, 0 )
"-1" - означает предыдущую команду
"0" - означает вид курсора
или тебе нужно именно момент выловить???

[HORRIBLE]

Angelus, именно, что уловить.

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

[Maza Faka]

HORRIBLE
Ммм...может проще определить координаты элемента, например функцией ControlGetPos()?

[Creat0R]

HORRIBLE,

как уловить вот это момент поменял ли он вид или нет???

Эта картинка часть AutoIt'овского GUI? или внешняя картинка?

Если AutoIt'овская, то наверное проще проверять положение мышки над картинкой, а если внешняя, то нужно циклом проверять MouseGetCursor:

Код:

HotKeySet("{ESC}", "Quit")

$Last_Cursor = MouseGetCursor()

While 1
    Sleep(100)

    $Current_Cursor = MouseGetCursor()

    If $Last_Cursor <> $Current_Cursor Then
        MsgBox(64, "Внимание!", _
            StringFormat("Смена курсора:\n\nПредыдущий <%s>, Текущий <%s>", _
            _GetCursorStringValue($Last_Cursor), _GetCursorStringValue($Current_Cursor)), 2)

        $Last_Cursor = $Current_Cursor
    EndIf
WEnd

Func _GetCursorStringValue($iValue)
    Local $aStr_Values[16] = ["Pointing/Grabbing hand", "APPSTARTING", "ARROW (Default?)", "CROSS", "HELP", "IBEAM (Selection)", _
        "ICON", "NO", "SIZE", "SIZEALL", "SIZENESW", "SIZENS", "SIZENWSE", "SIZEWE", "UPARROW", "WAIT"]

    If $iValue < UBound($aStr_Values) And $iValue >= 0 Then Return $aStr_Values[$iValue]
    Return $iValue
EndFunc

Func Quit()
    Exit
EndFunc

В случае с курсором руки (наведение над ссылкой), будет выведено «Текущий: Pointing/Grabbing hand».

[Creat0R]

Нужно напечатать файл-изображение, но при печати должен быть выведен диалог Мастера печати:



_FilePrint/ShellExecute (одно и тоже) не подходят, они вызывают программу просмотра изображении и всё, печать не происходит (возможно потому что принтер у меня не установлен? ). Но если нажать кнопку «Печать» в этой самой программе просмотра, то выводится диалог мастера печати. Вот он мне и нужен, только без программы просмотра.

Чувствую есть спец. команда для Dll'ки принтера, но какая, этого мне не удалось узнать. Есть список комманд RunDll32, но там вроде нет ничего подходящего.

[Maza Faka]

Creat0R
Это пробовал?