Показать полную графическую версию : [Архив - Часть 3] AutoIt скрипты .:[общие вопросы]:.
Рабочий стол это тоже оболочка Explorer'а. »
Я бы не сказал, там другой класс заголовка, и скорее всего это другой процесс...
И насчёт вопроса... мне тоже не было сразу ясно что и на рабочем столе нужно создавать, ведь в вопросе было «папка в любом окне Explorer'а», поэтому трудно рабочий стол принять за окно ;)
можно ли сделать скрипт, который бы после запуска показывал/скрывал скрытые файлы и папки? Если уже есть что-то подобное, дайте пожалуйста »
Да есть, я сделал: Toggle Hidden Files & Files Extension (http://creator-lab.ucoz.ru/load/4-1-0-40)
Pozia,
Подскажите где скачать, весь нет облазил »
Вам кажется сюда (http://www.google.ru/search?hl=ru&q=Windows+Script+Encoder) с подобным вопросом.
Такой вопрос. Есть программа, которой я пользуюсь чтоб смотреть через инет тв программы, All-radio, сайт проги>http://www.all-radio.net/ Так вот в этой программе, а она построена на движке IE сильно раздражает рекламный баннер, который убрать-запретить нельзя, ибо программа сразу это вычисляет, и закрывается! Нашел выход вот такой, при этом баннер закрывается:AutoItSetOption("TrayIconHide", 1)
Run('allradio.exe')
WinWaitActive("All-Radio 2.85")
While 1
if ProcessExists("allradio.exe") then
ControlHide ( "All-Radio 2.85", "", "TGroupBox1" )
Sleep(2000)
Else
Exit
EndIf
WEndВот только это удалось, хотя задумка была такая, чтоб скрипт, проверял не просто наличие процесса программы, а именно чтоб проверял наличие этого самого баннера, и тогда уже действовал, думаю так бы было логичнее(баннер появляется вновь при переключении канала), но реализовать не удается. Может дадите совет, можно ли это сделать. И еще можно ли на место баннера отправлять свой рисунок, с помощью какой функции? Вот что про это окно в котором показывается баннер говорит AutoIt Window Info:>>>> Window <<<<
Title: All-Radio 2.85
Class: TRadioForm
Position: 435, 138
Size: 601, 412
Style: 0x16C00000
ExStyle: 0x00050100
Handle: 0x023E05FC
>>>> Control <<<<
Class: TGroupBox
Instance: 1
ClassnameNN: TGroupBox1
Advanced (Class): [CLASS:TGroupBox; INSTANCE:1]
ID: 2294448
Text:
Position: 62, 0
Size: 468, 60
ControlClick Coords: 296, 27
Style: 0x56000000
ExStyle: 0x00010000
Handle: 0x002302B0
При этом ID каждый раз при загрузке нового баннера, меняется.
В прикрепленном файле, я прикрепляю скопированную, уже распакованную у меня папку с программой. Спасибо.
Ребят, а можно решить такую задачу с помощью AutoIt?
Закрытие языковой панели, шага:
1. щелчёк правой клавишей мыши на языковой панели
2. выбор меню закрыть языковую панель
3. в появившемся окне щёлкнуть OK
http://img440.imageshack.us/img440/938/17859034dp5.th.png (http://img440.imageshack.us/img440/938/17859034dp5.png)
morgan1991
10-01-2009, 02:30
morgan1991
Какой тип архива? »
rar
morgan1991, я для таких задач использовал winrar, у него есть хорошая справочка по командам. Составляй список аргументов и работай с архивами, перепаковывая что угодно... »
Да? Это же ещё надо винрар ставить на пк, а мне нужно без установленного винрара, или хотябы какойнить файлик винрара заинсталить и его заюзать автоитом с какимнибудь параметром чтобы тот заархивировал то что нужно.
Вам кажется сюда с подобным вопросом »
Скажите пожалуйсто как вы так искали что через обычный поиск на Microsoft нашли. Я заходил на их саит и поиск не давал никаких результатов :(
Maza Faka
10-01-2009, 08:14
Люди, можно ли сделать скрипт, который бы после запуска показывал/скрывал скрытые файлы и папки? »
_HiddenFilesShow(1)
Func _HiddenFilesShow($iState = 0)
Return RegWrite("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "Hidden", "REG_DWORD", $iState)
EndFunc
и скорее всего это другой процесс »
Нет, Explorer - это и оболочка (shell) и проводник.
beve
Смотри в справке _IE* функции
Maza Faka
10-01-2009, 08:56
Закрытие языковой панели »
Проще сделать так:
$hPanel = ControlGetHandle("[Class:Shell_TrayWnd]", "", "CiceroUIWndFrame1")
WinClose($hPanel)
Цытата: Maza Faka
Код:
_HiddenFilesShow(1)
Func _HiddenFilesShow($iState = 0)
Return RegWrite("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "Hidden", "REG_DWORD", $iState)
EndFunc
У меня почемуто не работает может я чтото недоделываю. Вчера правил руками эту ветку потомучто скрытые файлы и папки неотображались вобще значение было "0" менял на "1". Если нетяжело можно подробнее.
Прошу извенение всё заработало нада обновлять каталог по "F5" в тестировании скрытая папка и скрипт находились в одном каталоге.
Maza Faka, дело в том, что, то, что показано на скриншоте есть закрытие ЯП по умолчанию, т.е. она не появится после перезагрузки, то, что предлагаете Вы, по идеи если я не ошибаюсь, это перманентное простое закрытие на текущую сессию. Это я чисто предположительно из-за наличия Shell_TrayWnd сделал вывод. Нужно именно проделанные действия показанные на скрине если возможно, иначе ЯП будет появляться... :(
как вы так искали что через обычный поиск на Microsoft нашли »
Я просто в гугле набрал Windows Script Encoder и получил результат :)
можно подробнее »
А мой пост (http://forum.oszone.net/post-1002145.html#post1002145) значит остался незамеченным? :(
Нужно именно проделанные действия показанные на скрине если возможно, иначе ЯП будет появляться »
А если так:
_HideLangBar()
Func _HideLangBar()
Local $hPanel = ControlGetHandle("[Class:Shell_TrayWnd]", "", "CiceroUIWndFrame1")
WinSetState($hPanel, "", @SW_HIDE)
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\CTF\LangBar", "ShowStatus", "REG_DWORD", 3)
EndFunc
Creat0R, я так понял в ветку CTF'а прописывается значение равное значению, которое появляется после проделанных действий, которые показаны на скришоте?
в ветку CTF'а прописывается значение равное значению, которое появляется после проделанных действий, которые показаны на скришоте? »
Да, но возможно потребуется запись и в другие подобные ветки, потестиь времени небыло/нету.
Да, этого ключа недостаточно, после перезагрузке он восстанавливается в прежнюю позицию '4'.
Maza Faka
10-01-2009, 15:28
SAOPP
Попробуй удалить значение в реестре:
RegDelete("HKCU\Software\Microsoft\Windows\CurrentVersion\Run", "ctfmon.exe")
А дело в том, что я не хочу удалять этот монитор. Просто интересно, можно ли организовать то, что было на скриншоте...
266903582
10-01-2009, 16:58
SAOPP, есть прога RegMon. Запускаем, проделываем нужные операции, выключаем слежение за реестром и смотрим, какие ключи поменялись. Дальше катаем reg файл и запускаем при необходимости.
266903582, проделайте и сообщите результат уважаемый. Данные начинания имеют корни 3х летней давности... С течением обстоятельств jameszero сделал аддон с удалением ctfmon'а вместе с punto switcher'ом. Топик об AutoIt и текущий запрос связан именно с тем, что бы добиться выполнения показанных на скриншоте действий с его помощью.
Просто интересно, можно ли организовать то, что было на скриншоте... »
Можно (но оно не надёжно):
$hLangBar = ControlGetHandle("[CLASS:Shell_TrayWnd]", "", "CiceroUIWndFrame1")
If Not IsHWnd($hLangBar) Then Exit
ControlClick("[CLASS:Shell_TrayWnd]", "", "CiceroUIWndFrame1", "Secondary", 1)
Sleep(200)
ControlSend("[CLASS:CiceroUIWndFrame]", "", "", "{UP}")
Sleep(200)
ControlSend("[CLASS:CiceroUIWndFrame]", "", "", "{ENTER}")
$sTitle = "Языковая панель"
WinWait("[CLASS:#32770;TITLE:" & $sTitle & "]", "", 2)
If WinExists("[CLASS:#32770;TITLE:" & $sTitle & "]") Then ControlClick("[CLASS:#32770;TITLE:" & $sTitle & "]", "", "Button2")
но оно не надёжно »
Ну AutoIt как попугай и есть не надёжно © ;)
Сейчас потестирую скриптик...
Скрипт работает как часики, спасибо, подготовлю вариант своего инсталлятора PS на поливариантность с запуском сего скрипта ;) В очередной раз Creat0R, спасибо!
© OSzone.net 2001-2012
vBulletin v3.6.4, Copyright ©2000-2025, Jelsoft Enterprises Ltd.
Available in ZeroNet 1osznRoVratMCN3bFoFpR2pSV5c9z6sTC