Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » AutoIt » [архив - Часть 2] AutoIt скрипты

Закрытая тема
Настройки темы
[архив - Часть 2] AutoIt скрипты

(*.*)


Сообщения: 36491
Благодарности: 6675


Конфигурация

Профиль | Сайт | Отправить PM | Цитировать


Изменения
Автор: Vadikan
Дата: 27-01-2008
Внимание!
Тема переведена в архивное состояние







(настоятельно рекомендуется к прочтению/поиску)


Руководство к действию по работе c AutoIt.


Сайт программы
Русская справка
Коллекция AutoIt скриптов от Sanja Alone
Коллекция AutoIt скриптов от MSFN (могут быть устаревшие).
Справочник по командам rundll32 (команды запуска диалоговых окон и не только...)

AutoIt скрипты - введение и FAQ (статья содержит вводную информацию по AutoIt, а также ответы на ЧаВо).



Данная тема предназначена для общих вопросов по AutoIt. Вопросы по установке приложений при помощи AutoIt следует задавать в соответствии с правилами форума "Автоматическая установка приложений". Таким образом, если вы хотите узнать как установить Winamp 5.x при помощи AutoIt, то создайте тему [autoit] Winamp 5.х (если таковой еще нет на форуме). Проверить наличие тем можно при помощи поиска или фильтров.
Цитата Vadikan:
В теме уже свыше 500 сообщений и поиск нужной информации в ней усложняется. Есть предложение собрать все решения (скрипты) и разместить их на Wiki по принципу "один скрипт - одна статья wiki", добавляя статьи в категорию Autoit. Речь, в принципе, идет об общих решениях, а не о скриптах для установки конкретной программы. Название статьи, очевидно, должно отражать назначение скрипта. Затем можно в шапке просто разместить ссылки на статьи Wiki.

-------
Канал Windows 11, etc | Чат @winsiders

Это сообщение посчитали полезным следующие участники:

Отправлено: 00:02, 05-02-2006

 

Аватара для Maza Faka

Ветеран


Сообщения: 604
Благодарности: 133

Профиль | Отправить PM | Цитировать


adima
В настройках радмина есть опция скрытия иконки.

-------
Сообщение помогло? Не забудьте нажать на Полезное сообщение


Отправлено: 16:27, 25-09-2007 | #481



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

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


Ветеран


Сообщения: 916
Благодарности: 34

Профиль | Отправить PM | Цитировать


Creat0R, вот меня мысль посетила, к выше опубликованному скрипту можно привинтить (если такое возможно путём AutoIt'а) таймер, который запустит сам скрипт на выполнение через заданный промежуток времени?

Например: запускаю я скрипт, а он через минуту только выполнит своё назначение, т.е. задержка перед выполнением...

-------
All my homies dont play better watch what you say and put your glock away, ease back, ease back, ease back before i squeeze that...


Отправлено: 16:30, 25-09-2007 | #482


Аватара для Creat0R

Must AutoIt


Сообщения: 3054
Благодарности: 1009

Профиль | Сайт | Отправить PM | Цитировать


adima,
Цитата:
как убрать иконку из tray
На оф. форуме выкладывали библиотеку Systray_UDF, там есть функции для скрытия иконки по имени процесса, есть также и по заголовку окна, но у меня лично оно не работает, только по имени процесса...
Вот пример:

Код: Выделить весь код
#include "SysTray_UDF.au3"

$ProcessName = "AutoIt3.exe"

$TrayIconIndex = _SysTrayIconIndex($ProcessName)

MsgBox(0, "", "Сейчас будет спрятана иконка AutoIt'а", 3)

_SysTrayIconVisible(1, $TrayIconIndex)

MsgBox(0, "", "Теперь вернём иконку AutoIt'а ;)", 3)

_SysTrayIconVisible(0, $TrayIconIndex)

Sleep(2000)
All
Если у кого-то получится сделать функцию для скрытия иконки по PID, буду безмерно благодарен. В той библиотеке есть вроде подобные приминения, но они не работают у меня .

SAOPP,
Цитата:
запускаю я скрипт, а он через минуту только выполнит своё назначение, т.е. задержка перед выполнением...
А чем обычная пауза не подходит? Sleep(1000 * 60) ;будет спать одну минуту
Почитай справку, там много интересного.

-------
“Сделай так просто, как возможно, но не проще этого.”... “Ты никогда не решишь проблему, если будешь думать так же, как те, кто её создал.”

Альберт Эйнштейн

P.S «Не оказываю техподдержку через ПМ/ICQ, и по email - для этого есть форум. ©»

http://creator-lab.ucoz.ru/Images/Icons/autoit_icon.png Русское сообщество AutoIt | http://creator-lab.ucoz.ru/Images/Ic...eator_icon.png CreatoR's Lab | http://creator-lab.ucoz.ru/Images/Icons/oac_icon.png Opera AC Community

Это сообщение посчитали полезным следующие участники:

Отправлено: 16:41, 25-09-2007 | #483


Ветеран


Сообщения: 916
Благодарности: 34

Профиль | Отправить PM | Цитировать


Creat0R, последний вопрос, тот же самый скрипт (как это не странно ), но(!) - возможно ли кликнуть на индикаторе языковой панели Windows? И выбрать соответствующий пункт:



Но после выбора, появляется окно подтверждения данного действия - если возможно всё ДО этого окна, возможность и в этом окне ответить есть?

-------
All my homies dont play better watch what you say and put your glock away, ease back, ease back, ease back before i squeeze that...


Отправлено: 22:30, 25-09-2007 | #484


Аватара для Creat0R

Must AutoIt


Сообщения: 3054
Благодарности: 1009

Профиль | Сайт | Отправить PM | Цитировать


SAOPP,
Тебе в помощь инструмент Au3Info.exe (он входит в состав AutoIt пакета), когда его запускаешь, и наводишь мышку над элементами, то отображаются их классы/заголовки/текст и т.п... вот чтобы кликнуть по этой панели, узнаёшь её класс, и кликаешь :

Код: Выделить весь код
$TrayTitle = "[CLASS:Shell_TrayWnd]"
ControlClick($TrayTitle, "", "CiceroUIWndFrame1", "Right") ;CiceroUIWndFrame1 это и есть класс языковой панели.
Send("{UP}")
Send("{ENTER}")

;Следующую строчку раскоментировать в случае если нужно отметить птичку "Больше не показывать это сообщение"
;ControlClick("[Class:#32770; Title:Языковая панель]", "Button1")

ControlClick("[Class:#32770; Title:Языковая панель]", "", "Button2")

-------
“Сделай так просто, как возможно, но не проще этого.”... “Ты никогда не решишь проблему, если будешь думать так же, как те, кто её создал.”

Альберт Эйнштейн

P.S «Не оказываю техподдержку через ПМ/ICQ, и по email - для этого есть форум. ©»

http://creator-lab.ucoz.ru/Images/Icons/autoit_icon.png Русское сообщество AutoIt | http://creator-lab.ucoz.ru/Images/Ic...eator_icon.png CreatoR's Lab | http://creator-lab.ucoz.ru/Images/Icons/oac_icon.png Opera AC Community

Это сообщение посчитали полезным следующие участники:

Отправлено: 01:06, 26-09-2007 | #485


Аватара для Creat0R

Must AutoIt


Сообщения: 3054
Благодарности: 1009

Профиль | Сайт | Отправить PM | Цитировать


Diamond
А вот и решение для установки курсора, и потом возвращение оригинального (используемого юзером)...
(По мативам примера от eltorro тут)

Код: Выделить весь код
Global Const $OCR_APPSTARTING = 32650
Global Const $OCR_NORMAL = 32512
Global Const $OCR_CROSS = 32515
Global Const $OCR_HAND = 32649
Global Const $OCR_IBEAM = 32513
Global Const $OCR_NO = 32648
Global Const $OCR_SIZEALL = 32646
Global Const $OCR_SIZENESW = 32643
Global Const $OCR_SIZENS = 32645
Global Const $OCR_SIZENWSE = 32642
Global Const $OCR_SIZEWE = 32644
Global Const $OCR_UP = 32516
Global Const $OCR_WAIT = 32514

$hWaitCur = _LoadCursor($OCR_CROSS)
_SetSystemCursor($hWaitCur, $OCR_NORMAL)

Sleep(2000)

_SetSystemCursor($hWaitCur, $OCR_NORMAL)
$hWaitCur = 0

Func _LoadCursor($iCursor)
    Return SetError(@error,@extended ,_API(DllCall("user32.dll", "int", "LoadCursorA", "hwnd", 0, "int", $iCursor)))
EndFunc   ;==>_LoadCursor

Func _SetSystemCursor($hCursor, $iCursor)
    Return SetError(@error,@extended ,_API(DllCall("user32.dll", "int" ,"SetSystemCursor","int",$hCursor,"int",$iCursor)))
EndFunc

Func _API($v_ret)
    Local $err = @error
    Local $ext = @extended
    If Not $err Then
        If IsArray($v_ret) Then
            Return $v_ret[0]
        Else
            Return $v_ret
        EndIf
    EndIf
    Return SetError($err, $ext, 0)
EndFunc   ;==>_API

-------
“Сделай так просто, как возможно, но не проще этого.”... “Ты никогда не решишь проблему, если будешь думать так же, как те, кто её создал.”

Альберт Эйнштейн

P.S «Не оказываю техподдержку через ПМ/ICQ, и по email - для этого есть форум. ©»

http://creator-lab.ucoz.ru/Images/Icons/autoit_icon.png Русское сообщество AutoIt | http://creator-lab.ucoz.ru/Images/Ic...eator_icon.png CreatoR's Lab | http://creator-lab.ucoz.ru/Images/Icons/oac_icon.png Opera AC Community

Это сообщение посчитали полезным следующие участники:

Отправлено: 02:23, 26-09-2007 | #486


Ветеран


Сообщения: 916
Благодарности: 34

Профиль | Отправить PM | Цитировать


Creat0R, странно, но по каким то причинам не хочет нажимать на кнопочки окна 'Языковая панель', пока не смог разобраться

-------
All my homies dont play better watch what you say and put your glock away, ease back, ease back, ease back before i squeeze that...


Отправлено: 10:10, 26-09-2007 | #487


Аватара для Creat0R

Must AutoIt


Сообщения: 3054
Благодарности: 1009

Профиль | Сайт | Отправить PM | Цитировать


SAOPP,
Цитата:
по каким то причинам не хочет нажимать на кнопочки окна 'Языковая панель'
Запусти это окно, запусти Au3Info, наведи курсор мышки над нужно кнопкой, и посмотри что написано в Au3Info тут:

-------
“Сделай так просто, как возможно, но не проще этого.”... “Ты никогда не решишь проблему, если будешь думать так же, как те, кто её создал.”

Альберт Эйнштейн

P.S «Не оказываю техподдержку через ПМ/ICQ, и по email - для этого есть форум. ©»

http://creator-lab.ucoz.ru/Images/Icons/autoit_icon.png Русское сообщество AutoIt | http://creator-lab.ucoz.ru/Images/Ic...eator_icon.png CreatoR's Lab | http://creator-lab.ucoz.ru/Images/Icons/oac_icon.png Opera AC Community


Отправлено: 10:25, 26-09-2007 | #488


Аватара для TERMINAL

Ветеран


Сообщения: 753
Благодарности: 28

Профиль | Отправить PM | Цитировать


ДSAOPP, Держи-если просто хочешь отключить отображение языковой панели,
читать дальше »

Run ("RunDll32.exe shell32.dll,Control_RunDLL intl.cpl,,1")
For $i = 0 To 1000
If WinWait("Язык и региональные стандарты","", 1) Then
ControlClick("Язык и региональные стандарты","","Button2")
EndIf
If WinWait("Языки и службы текстового ввода","", 1) Then
ControlClick("Языки и службы текстового ввода","","Button8")
EndIf
If WinWait("Добавление языка ввода","&Раскладка клавиатуры или мето", 1) Then
ControlClick("Добавление языка ввода","&Раскладка клавиатуры или мето","Button2")
WinWait("Языки и службы текстового ввода","Выберите один из установленных")
ControlClick("Языки и службы текстового ввода","Выберите один из установленных","Button11")
WinWait("Язык и региональные стандарты","Дополнительная языковая поддер")
ControlClick("Язык и региональные стандарты","Дополнительная языковая поддер","Button7")
Run ("RunDll32.exe shell32.dll,Control_RunDLL intl.cpl,,1")
EndIf
If WinWait("Параметры языковой панели","О&тображать текстовые метки на", 1) Then
ControlClick("Параметры языковой панели","О&тображать текстовые метки на","Button2")
ControlClick("Параметры языковой панели","О&тображать текстовые метки на","Button6")
WinWait("Языки и службы текстового ввода","Выберите один из установленных")
ControlClick("Языки и службы текстового ввода","Выберите один из установленных","Button10")
WinWait("Язык и региональные стандарты","Дополнительная языковая поддер")
ControlClick("Язык и региональные стандарты","Дополнительная языковая поддер","Button6")
Exit
EndIf
Next

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

Opt("WinWaitDelay",100)
Opt("WinTitleMatchMode",4)
Opt("WinDetectHiddenText",1)
Opt("MouseCoordMode",0)
WinWait("classname=Shell_TrayWnd","TF_FloatingLangBar_W")
If Not WinActive("classname=Shell_TrayWnd","TF_FloatingLangBar_W") Then WinActivate("classname=Shell_TrayWnd","TF_FloatingLangBar_W")
WinWaitActive("classname=Shell_TrayWnd","TF_FloatingLangBar_W")
MouseMove(992,12)
MouseDown("right")
MouseUp("right")
MouseMove(899,-2)
MouseDown("left")
MouseUp("left")
MouseMove(1005,15)
MouseDown("right")
MouseUp("right")
MouseMove(908,-160)
MouseDown("left")
MouseUp("left")

Низнаю, правильно будет работать или нет, но я делал это на разрешении монитора 1024*768. На
других разрешения не пробовал...

-------
Автоматизация прежде всего....


Последний раз редактировалось TERMINAL, 26-09-2007 в 11:50. Причина: Дополнение


Отправлено: 11:31, 26-09-2007 | #489


Ветеран


Сообщения: 916
Благодарности: 34

Профиль | Отправить PM | Цитировать


Creat0R, всё тоже самое что и в скрипте, но не хочет нажимать ничего

-------
All my homies dont play better watch what you say and put your glock away, ease back, ease back, ease back before i squeeze that...


Отправлено: 11:34, 26-09-2007 | #490



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » AutoIt » [архив - Часть 2] AutoIt скрипты

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
Открывая 7z архив пишет не удаётся открыть как архив. Можно ли его восстановить? DreDo Хочу все знать 4 01-12-2009 18:54
[Архив - Часть 3] AutoIt скрипты .:[общие вопросы]:. Vadikan AutoIt 1543 18-01-2009 10:46
[Архив - Часть 1.3] AutoIt скрипты biork AutoIt 503 09-06-2007 11:27
[Архив - Часть 1.2] AutoIt скрипты Dirk Diggler AutoIt 505 02-12-2006 11:00
[Архив - Часть 1.1] AutoIt скрипты EgOrus AutoIt 335 04-02-2006 16:58




 
Переход