[samsobi]

ТУТ Creat0R давал линк на библиотеку функций для работы с треем (о нем речь?). »

Да, о нем родимом! Большое спасибо за наводку, буду копать и изучать!

[Maza Faka]

Очень часто спрашивают, как кликнуть по иконке программы в трее. С помощью библиотеки SysTray_UDF.au3, которую доработал amel27 сделать это очень просто:

Код:

#include <SysTray_UDF.au3>

$pid = ProcessExists("edialer.exe")
$index = _SysTrayIconIndex($pid)
If @error Then MsgBox(16, "Error", "This process not have tray icon")
$pos = _SysTrayIconPos($index)
MouseClick("right", $pos[0], $pos[1])

[Creat0R]

Maza Faka,
Хотел сделать ещё и возможность кликания без задействования мышки, но что то не выходит...
Полагаю я неправильно использую функцию ScreenToClient в User32.dll. Может кто-то знает как правильнее? (это кстати моя одна из первых попыток работать с Dll ).

Код:

#NoTrayIcon
#include <SysTray_UDF.au3>

$Pid = ProcessExists("Opera.exe")
If Not $Pid Then
    MsgBox(16, "Error", "This process not exists")
    Exit
EndIf

$Index = _SysTrayIconIndex($Pid)
If @error Then
    MsgBox(16, "Error", "This process not have tray icon")
    Exit
EndIf

$Pos = _SysTrayIconPos($Index)

$hWnd = WinGetHandle("[Class:Shell_TrayWnd]")
$YPos = ScreenToClient($hWnd, $Pos[0])
$XPos = ScreenToClient($hWnd, $Pos[1])

ControlClick("[Class:Shell_TrayWnd]", "", "ToolbarWindow321", "Right", 1, $XPos, $YPos)

Func ScreenToClient($hWnd, $Point)
    Local $Struct = DllStructCreate("int;int")
    DllStructSetData($Struct, 1, $Point)
    DllStructSetData($Struct, 2, $Point)
    Local $Ret = DllCall("User32.dll", "int", "ScreenToClient", "hwnd", $hWnd, "ptr", DllStructGetPtr($Struct))
    Return $Ret[0]
EndFunc

[Maza Faka]

Creat0R
Задумка неплохая, но тут я тебе не советчик, для меня все эти функции с DLL пока тёмный лес :-)

[Creat0R]

Как можно проверить системные элементы (типа «Мой компьютер», «Мои документы» и т.п) находящиеся на рабочем столе?
Т.е имеется список подобных элементов (имена), нужно каждый из них по этому списку проверить существует ли он на рабочем столе.. как это можно сделать?
В реестре конкретной инфы я так и не нашёл, к примеру у меня «Корзина» называется так: «Mycop» (это латинские буквы) - поиск по реестру почти ничего не дал, т.е нет зацепки чтобы проверить именно это имя, и что именно этот элемент находится на рабочем столе.

[Creat0R]

Обновил Au3ToPost 1.7

Список изменении:

v1.7 Ещё более надёжная интеграция в SciTE (теперь если файл настроек пуст или не найден, то используется шаблон стандартного файла, в который и пишутся необходимые пункты). Изменён метод вставки символа Tab - оказывается можно использовать CTRL TAB Исправлена ошибка некорректной вставки раскрашенного кода в форум. В Главное Меню добавлен пункт "Добавлять тег [В] к коду". Пункт "О Программе" перемещён в новое меню "Справка". Добавлен пункт "Проверить обновления..." в меню "Справка". Исправлена проблема при закрытии дочернего окна с результатом (возврат в главное окно) - управление в главное окно возвращалось не сразу после закрытия. Теперь при установленной русской раскладки клавиатуры как раскладка по умолчанию, нажатие <Ctrl A> приведёт к выделению всего текста в Edit поле. Теперь рядом с исходником должна быть папка с ресурсами программы (Resources) - Содержит в себе все необходимые ресурсы для работы скрипта. Мелкие поправки в коде.

[Maza Faka]

поиск по реестру почти ничего не дал »

Можно проверять по CLSID в ключе реестра HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Desktop\NameSpace
Например CLSID корзины выглядит так: {645FF040-5081-101B-9F08-00AA002F954E}

[Maza Faka]

Как отследить нажал ли пользователь определённую кнопку в приложении и в соотвествии с этим выполнить некое действие, что-то вроде этого:

Код:

Dim $command

While Not $command
    $command = ControlCommand("Aut2Exe v3 - AutoIt Script to EXE Converter", "", "Button2", "IsChecked")
    Sleep(30)
WEnd
MsgBox(0, "", "Checked")

[Creat0R]

Maza Faka,

Можно проверять по CLSID в ключе реестра

Там нет настоящих имён элементов

Как отследить нажал ли пользователь определённую кнопку в приложении

Твой пример не работает?
Ну можно ещё проверять нажатия кнопки мышки (используя _IsPressed()) по определённым коортдинатам.

[amel27]

Creat0R

Вот оно! »

во замутил! ...у меня вроде получилось без RegExp:

Код:

Func ConvertProc()
    Send("^{Insert}")
    Local $strSelect = ClipGet()
    If $strSelect='' Then Return
    ClipPut(InvertText($strSelect, $objASC, $objANS))
    Sleep(100)
    Send("+{Insert}")
    RestoreSelection(StringLen($strSelect))
    ClipPut('')
EndFunc

Func RestoreSelection($iLen)
    Local $iOldLen=0, $iNewLen=0, $iFixLen=0
    Send("^+{RIGHT}^{Insert}")
    Local $sOld = ClipGet()
    Send("^+{LEFT}^{Insert}")
    Local $sNew = ClipGet()
    If $sOld<>$sNew Then
        $iFixLen = StringLen($sOld)
        $iNewLen = StringLen($sNew)
    EndIf
    While $iNewLen<$iLen
        Send("^+{LEFT}^{Insert}")
        $iOldLen = $iNewLen
        $iNewLen = StringLen(ClipGet())
    Wend
    If $iNewLen=$iLen Then Return
    If ($iNewLen-$iLen)<(1+$iFixLen+$iLen-$iOldLen) Then
        Send('+{RIGHT ' & ($iNewLen-$iLen) & '}')
    Else
        Send('^+{RIGHT}+{LEFT ' & ($iLen+$iFixLen-$iOldLen) & '}')
    EndIf
EndFunc

Как можно проверить системные элементы (типа «Мой компьютер», «Мои документы» и т.п) находящиеся на рабочем столе? »

Ранее уже постил свой вариант через API, потом аналогичная тема появилась на оффсайте, там вроде обошлись только штатными функциями:Restore Icon Positions, on the Desktop and in Windows

ADD:через реестр: http://wiki.oszone.net/index.php/%D0...D0%B0/HKCU.REG

З.Ы. А зачем Send('{CTRLDOWN}') Send('{CTRLUP}'), от залипаний Ctrl?