[papik_bat]

Здрасьте всем.
Вот история моей болезни:
я написал батник для автоматической рассылки писем, когда он срабатывает, то появляеться окно аутглюк с предуприждением, что программа пытаеться сама отправить письмо и т.д.. На нужную кнопку в этом окне я нажимал скриптом Autoit.

[code]Opt("TrayIconHide", 1)
WinWaitActive("Microsoft Office Outlook")
Sleep(6000)
ControlClick("Microsoft Office Outlook", "", "Button4")
Send("{ENTER}")

Все работало нормально, но последнее время если компьютер заблакированн мой "нажиматель" не срабатывает, так как окно аутглюка стало теперь не активным. на писал такой скрипт:

Код:

Opt("TrayIconHide", 1)
If WinWait("Microsoft Office Outlook") then
WinActivate("Microsoft Office Outlook","")
WinWaitActive("Microsoft Office Outlook")
Sleep(6000)
ControlClick("Microsoft Office Outlook", "", "Button4")
Send("{ENTER}")
EndIf

Но проблема не решилась, если комп заблокированн окно не активируеться и кнопка не нажимаеться.

Кто виноват? Что делать?

[Creat0R]

Diamond

Три способа определить - является ли файл папкой

Ещё один (который я до сих пор юзал):
;Возвращает -1 если файл вовсе не существует, 1 если папка, и 0 если файл....

Код:

Func _IsDir($FileName)
    If FileExists($FileName) Then
        $FCheck = FileOpen($FileName, 0)
        If $FCheck = -1 Then
            Return 1
        Else
            FileClose($FCheck)
            Return 0
        EndIf
    Else
        Return -1
    EndIf
EndFunc

Но видимо начну юзать один из твоих примеров, тот что проверяет атрибуты, пожалуй это надёжнее.

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

Безусловно


papik_bat

если компьютер заблакированн

Что значит заблокирован? AutoIt'ом?

У тебя второй пример весь держится на условии что “скрипт будет дожидаться” окна, попробуй опустить условие и ограничить дожидание:

Код:

#NoTrayIcon ;Так надёжнее ;)

WinWait("Microsoft Office Outlook", "", 10)
;Иногда один раз не срабатывает (глюк аутоита), пробуем два раза подряд...
WinActivate("Microsoft Office Outlook")
WinActivate("Microsoft Office Outlook")
WinWaitActive("Microsoft Office Outlook", "", 10)
Sleep(6000)
ControlClick("Microsoft Office Outlook", "", "Button4")
Send("{ENTER}")

[papik_bat]

Продолжаем беседу...

CreatoR

Компьютер заблокирован = Ctrl+Alt+Delete -> Блокировка, либо когда блокировка включаеться автоматически.
ПопробЫвал предложенный код, не идет...

После разблокировки окно аутлука свернуто.

[papik_bat]

Вот нашел описание команды которая могла бы, я думаю, решить мою беду WinRestore, но у себя в Autoit 3, ее не нахожу. Как быть?

[Creat0R]

papik_bat

у себя в Autoit 3, ее не нахожу.

Она относится к аутоиту Version 2.63, Version 2.64

Теперь (в 3.2.2) нужно так:

Код:

WinSetState("Microsoft Office Outlook", "", @SW_RESTORE)

[papik_bat]

CreatOR

WinSetState("Microsoft Office Outlook", "", @SW_RESTORE)

все ровно не работает.
Попробую пойти другим путем, не дам компютеру блокироваться написал скрипт Autoit "мышка летит на юг" :-)!
Через каждые 10 минут мышка двигаеться в южном направлении. Просто отключить блокировку нельзя.

[Diamond]

Creat0R

тот что проверяет атрибуты, пожалуй это надёжнее

На самом деле все три способа надёжны!
Тот что на основе VBScript запрашивает напрямую ($fso.FolderExists() куда уж надёжней...). Там я сделал только одну поправочку. Дело в том что в VBScript, значение False понятно 0, а вот значение True = -1, поэтому я добавил Abs() для совместимости с AutoIt.

Файл "nul" - неотъемлемый элемент папки и он никуда не денется, так что тоже можно пользоваться смело.

[Respect]

Уважаемые, подскажите пожалуйста, может кто знает как реализовать на AutoIt v 3 следующее:
(Что-то сам никак не могу придумать)

1. Как вызвать меню программы, которое вызывается только по клику правой кнопкой мыши на иконку программы в трее ?
(Другого интерфейса программа не имеет...) Или как кликнуть нужную иконку программы в трее ?

[Creat0R]

Respect

как кликнуть нужную иконку программы в трее ?

Мне кажется только по координатам - используй Au3Info.exe, и нажми на нужную иконку, затем посмотри координаты которые выдаст этот инструмент (под надписью >>>Mouse Details <<< - X: и Y: ), далее используй их примерно так:

Код:

#NoTrayIcon
$X = 930
$Y = 717
MouseClick("right", $X, $Y, 1, 0)

Первая строка обязательна, иначе появится икона самого скрипта, и тогда координаты уже будут не актуальны (не верны).

Diamond

все три способа надёжны!

А если работа Vbscript нарушена в системе? (у меня такое бывало)
А по поводу файла Nul, видимо он гинерируется (по крайней мере имитируется его присутствие) если существует файл с таким же имененм без расширения...
Т.е к примеру, создаём файл Test в папке C:\ (без расширения), и проверяем является ли он папкой:

Код:

$TestName = "C:\test"

MsgBox(0, "", _FolderExist($TestName))

Func _FolderExist($name)
    $Folder = FileExists($name & "\nul")
    Return $Folder
EndFunc

Получаем 1 (хотя это не папка) .

[Creat0R]

У меня есть такой вопрос:
-Возможно ли проверить функцию BlockInput()? т.е есть способ узнать, включена ли (или отключена) такая блокировка (от самого скрипта)?
Мне нужно включить BlockInput(1), и в течении того времни пока всё заблокированно, проверять были ли нажаты клавиши Alt Ctrl Del (что и вызывает отключение блокировки) - или хотябы как проверить нажатие этих клавишь, _IsPressed не помагает, не получается проверить нажатие сразу трёх клавишь


P.S.

И ещё такой между прочный вопрос - почему в справке нет (у меня) описании команд StringRegExp, StringRegExpReplace? где можно почитать описания, и желательно примеры этих функции? может мне справка попалась бракованная? (она шла вместе с дистрибютивом AutoIt'а).