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

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » AutoIt » [решено] Создание и настройка Quick Launch в Windows 7

Ответить
Настройки темы
[решено] Создание и настройка Quick Launch в Windows 7

Ветеран


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


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

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


Изменения
Автор: sov44
Дата: 06-02-2014
Прошу поправить скрипт создания Quick Launch в Windows 7, сделав русскую локализацию, вернуть языковую панель в правый нижний угол, удалить все ярлыки и папку User Pinned из панели быстрого запуска.
Скрипт взят тут

Отправлено: 16:32, 03-01-2012

 

Аватара для Creat0R

Must AutoIt


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

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


Предупреждение за нарушение правил форума, пункт 2.7 и пункт 3.19:

Цитата:
2.7: В заголовке темы обязательно обозначайте название предмета, которого касается вопрос, а в теле сообщения максимально подробно опишите проблему (приведите аппаратную/программную конфигурацию, а также изложите ситуацию, в которой возникает проблема)...
Подробнее о принципах создания тем читайте в этом документе и Правилах форумов.

3.19: Запрещается... Создавать темы, имеющие неинформативные или состоящие из заглавных букв заголовки (например, "Помогите!", "HELP!", "У меня проблема"). Такие темы будут закрыты или перенесены в Тест-форум. Если вы хотите вернуть перенесенную тему обратно, пока ее не закрыли в Тест-форуме, измените ее заголовок на осмысленный и напишите об этом в теме.
Переименуйте пожалуйста тему (Как переименовать свою тему?).

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

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

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


Отправлено: 17:30, 03-01-2012 | #2



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

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


Ветеран


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

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


Решено. Всем НЕ спасибо.

Отправлено: 00:42, 07-01-2012 | #3


Аватара для Creat0R

Must AutoIt


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

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


Цитата sov44:
Решено »
А решение тут привести не судьба?
Иначе нет смысла в данной теме, и я её удалю.

Цитата sov44:
Всем НЕ спасибо »
Ну вот привёл бы решение тут, и было бы кому сказать спасибо, можно иногда и полезным быть для общества

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

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

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

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

Отправлено: 21:45, 07-01-2012 | #4


Ветеран


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

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


Цитата Creat0R:
привёл бы решение »
Creat0R, да без проблем. Я не программер, может быть будут предложения по улучшению скрипта
Локализация скрипта - Morpheus
Для применения настроек требуется перезагрузка.
читать дальше »
Код: Выделить весь код
Opt("TrayIconDebug", 1)
Opt("WinDetectHiddenText", 0)
Opt("WinTextMatchMode", 2)
Opt("TrayIconHide", 0)
HotKeySet("{F1}", "OnF1")
Sleep(100)
If $CMDLINE[0] Then
	For $I = 1 To $CMDLINE[0]
		Switch $CMDLINE[$I]
			Case "/?"
				MsgBox(262144, "Help", "Switchless Commands: /NOPIN /TGL /TSI /AUTOTRAY /LBS3 /EXPLORER")
				Exit
			Case "/NOPIN"
				RegWrite("HKEY_CURRENT_USER\Software\Policies\Microsoft\Windows\Explorer", "TaskbarNoPinnedList", "REG_DWORD", "1")
			Case "/TGL"
				RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "TaskbarGlomLevel", "REG_DWORD", "2")
			Case "/TSI"
				RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "TaskbarSmallIcons", "REG_DWORD", "1")
			Case "/AUTOTRAY"
				RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer", "EnableAutoTray", "REG_DWORD", "0")
			Case "/LBS3"
				RegWrite("HKEY_CURRENT_USER\Software\Microsoft\CTF\LangBar", "ShowStatus", "REG_DWORD", "3")
			Case "/EXPLORER"
				ProcessClose("explorer.exe")
		EndSwitch
	Next
EndIf
If Not ProcessWait("explorer.exe", 5) Then Run(@WindowsDir & "\explorer.exe")
WinWait("[CLASS:Shell_TrayWnd]")
Sleep(2000)
TrayTip("Quick Launch Classic 7", "Я работаю - ничего не трогай!!!", 30, 2)
MsgBox(4095, "Running.", "Quick Launch Classic 7", 1)
Sleep(10000)
$TASKBARSIZEMOVE = RegRead("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "TaskbarSizeMove")
If $TASKBARSIZEMOVE = 1 Then
	Do
		ProcessClose("explorer.exe")
	Until Not ProcessExists("explorer.exe")
	RegWrite("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "TaskbarSizeMove", "REG_DWORD", "0")
	If Not ProcessWait("explorer.exe", 5) Then Run(@WindowsDir & "\explorer.exe")
	WinWait("[CLASS:Shell_TrayWnd]")
	Sleep(2000)
EndIf
$TRAY = ControlGetPos("[CLASS:Shell_TrayWnd]", "", "[CLASS:CiceroUIWndFrame; TEXT:TF_FloatingLangBar_WndTitle]")
If Not @error Then
	Call("_DISABLELANGBAR")
	$QLA = WinGetText("[CLASS:Shell_TrayWnd]", "")
	If StringInStr($QLA, "Quick Launch") Then
		MouseClick("right", 0, @DesktopHeight)
		Send("{DOWN}{RIGHT}{UP 2}{ENTER}")
	EndIf
EndIf
$QLA = WinGetText("[CLASS:Shell_TrayWnd]", "")
If StringInStr($QLA, "Quick Launch") Then
	MouseClick("right", 0, @DesktopHeight)
	Send("{DOWN}{RIGHT}{UP 2}{ENTER}")
EndIf
$CLEARDESKTOP = ControlGetPos("[CLASS:Shell_TrayWnd]", "", "[CLASS:TrayShowDesktopButtonWClass]")
$TASKBAR_CENTERHEIGHT = @DesktopHeight - ($CLEARDESKTOP[3] / 2)
MouseClick("left", $CLEARDESKTOP[0] - 0, $TASKBAR_CENTERHEIGHT, 1, 10)
_TOGGLETASKBARLOCK()
$TRAY = ControlGetPos("[CLASS:Shell_TrayWnd]", "", "[CLASS:CiceroUIWndFrame; TEXT:TF_FloatingLangBar_WndTitle]")
If Not @error Then
	Call("_DISABLELANGBAR")
EndIf
$PATH = "Shell:Quick Launch"
$TOOLBARTEXT = "{DOWN 3}{ENTER}"
$TOOLBARTITLE = "{DOWN 4}{ENTER}"
$TRAY = ControlGetPos("[CLASS:Shell_TrayWnd]", "", "[CLASS:ReBarWindow32]")
$LANG = RegRead("HKEY_CURRENT_USER\Control Panel\Desktop", "PreferredUILanguages")
If @error = 0 Then
Else
	$LANG = RegRead("HKEY_CURRENT_USER\Control Panel\Desktop\MuiCached", "MachinePreferredUILanguages")
EndIf
Select
	Case $LANG = "en-US"
		$TITLE = "New Toolbar - Choose a folder"
		$PROGRAMS = "[CLASS:MSTaskListWClass; TEXT:Running applications]"
	Case $LANG = "fr-FR"
		$TITLE = "Nouvelle barre d’outilsВ*-В*Choisir un dossier"
		$PROGRAMS = "[CLASS:MSTaskListWClass; TEXT:Applications en cours d’exйcution]"
	Case $LANG = "nl-NL"
		$TITLE = "Nieuwe werkbalk - Selecteer een map"
		$PROGRAMS = "[CLASS:MSTaskListWClass; TEXT:Actieve toepassingen]"
	Case $LANG = "da-DK"
		$TITLE = "Ny vР¶rktС?jslinje - vР¶lg en mappe"
		$PROGRAMS = "[CLASS:MSTaskListWClass; TEXT:Programmer, der kС?rer]"
	Case $LANG = "se-SE"
		$TITLE = "Nytt verktygsfРґlt - vРґlj en mapp"
		$PROGRAMS = "[CLASS:MSTaskListWClass; TEXT:Program som kцrs]"
	Case $LANG = "nb-NO"
		$TITLE = "Ny verktС?ylinje - velg en mappe"
		$PROGRAMS = "[CLASS:MSTaskListWClass; TEXT:KjС?rer programmer]"
	Case $LANG = "de-DE"
		$TITLE = "Neue Symbolleiste - Ordner auswРґhlen"
		$PROGRAMS = "[CLASS:MSTaskListWClass; TEXT:AusgefСЊhrte Anwendungen]"
	Case $LANG = "ru-RU"
		$TITLE = "Новая панель инструментов - Выбор папки"
		$PROGRAMS = "[CLASS:MSTaskListWClass; TEXT:Выполнение приложений]"
EndSelect
_TASKTOOLBARWIN7("Shell:Quick Launch")
While 1
	Sleep(100)
	$QUICKLAUNCH = ControlGetPos("[CLASS:Shell_TrayWnd]", "", "[CLASS:ToolbarWindow32; TEXT:Quick Launch]")
	If Not @error Then ExitLoop
WEnd
$TASKBAR_CENTERHEIGHT = @DesktopHeight - ($QUICKLAUNCH[3] / 2)
Sleep(100)
MouseClick("right", $QUICKLAUNCH[0] - 5, $TASKBAR_CENTERHEIGHT, 1, 0)
Send($TOOLBARTEXT)
Sleep(100)
$TASKBAR_CENTERHEIGHT = @DesktopHeight - ($QUICKLAUNCH[3] / 2)
Sleep(100)
MouseClick("right", $QUICKLAUNCH[0] - 5, $TASKBAR_CENTERHEIGHT, 1, 0)
Send($TOOLBARTITLE)
Sleep(1000)
$QUICKLAUNCH = ControlGetPos("[CLASS:Shell_TrayWnd]", "", "[CLASS:ToolbarWindow32; TEXT:Quick Launch]")
MouseClickDrag("left", $QUICKLAUNCH[0] - 10, $TASKBAR_CENTERHEIGHT, $TRAY[0] + 5, $TASKBAR_CENTERHEIGHT, 40)
$CURRENTAPPS = ControlGetPos("[CLASS:Shell_TrayWnd]", "", $PROGRAMS)
MouseClickDrag("left", $CURRENTAPPS[0] - 10, $TASKBAR_CENTERHEIGHT, $TRAY[0] + 150, $TASKBAR_CENTERHEIGHT, 40)
_TOGGLETASKBARLOCK()
$CLEARDESKTOP = ControlGetPos("[CLASS:Shell_TrayWnd]", "", "[CLASS:TrayShowDesktopButtonWClass]")
$TASKBAR_CENTERHEIGHT = @DesktopHeight - ($CLEARDESKTOP[3] / 2)
MouseClick("left", $CLEARDESKTOP[0] - 0, $TASKBAR_CENTERHEIGHT, 1, 10)

Func _DISABLELANGBAR()
	MouseClick("right", 0, @DesktopHeight)
	Send("{DOWN}{RIGHT}{UP 2}{ENTER}")
EndFunc


Func _TASKTOOLBARWIN7($PATH)
	MouseClick("right", 0, @DesktopHeight)
	Send("{DOWN}{RIGHT}{UP}{ENTER}")
	WinActive($TITLE)
	Sleep(1000)
	ControlSetText($TITLE, "", "Edit1", $PATH)
	Sleep(1000)
	ControlClick($TITLE, "", "Button1")
EndFunc


Func _TOGGLETASKBARLOCK()
	MouseClick("right", 0, @DesktopHeight)
	Send("{UP 2}{ENTER}")
EndFunc

;языковую панель на место
BlockInput(1)
$MP = MouseGetPos()
$WP = WinGetPos('TF_FloatingLangBar_WndTitle')
MouseClick('left', $WP[0] + $WP[2] - 10, $WP[1] + 10, 1, 0)
MouseMove($MP[0], $MP[1], 0)
BlockInput(0)

; Удаление ярлыков
FileDelete(@AppDataDir & "\Microsoft\Internet Explorer\Quick Launch\Shows Desktop.lnk")
FileDelete(@AppDataDir & "\Microsoft\Internet Explorer\Quick Launch\Window Switcher.lnk")
; Удаление папки с ярлыками
DirRemove(@AppDataDir & "\Microsoft\Internet Explorer\Quick Launch\User Pinned", 1)
;Правка реестра на удаление ярлыков
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Taskband", "Favorites", "REG_BINARY", "ff")
RegDelete("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Taskband", "FavoritesResolve")

;
$LANGBAR = RegRead("HKEY_CURRENT_USER\Software\Microsoft\CTF\LangBar", "ShowStatus")
Select
	Case $LANGBAR = "0"
		RegWrite("HKEY_CURRENT_USER\Software\Microsoft\CTF\LangBar", "ShowStatus", "REG_DWORD", "4")
EndSelect

Func ONF1()
Exit
EndFunc

TrayTip("Quick Launch Classic 7", "Наслаждайся!", 30, 2)
MsgBox(4095, "Running.", "Quick Launch Classic 7", 1)
Sleep(2000)

Creat0R, если не будет активности в теме, тогда удаляйте её.

Последний раз редактировалось sov44, 06-02-2014 в 21:02.

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

Отправлено: 22:41, 07-01-2012 | #5


Аватара для kaster

Старожил


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

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


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

-------
Русское сообщество пользователей AutoIt
autoit@conference.jabber.ru - Конференция на jabber.ru

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

Отправлено: 22:46, 07-01-2012 | #6


Новый участник


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

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


Вложения
Тип файла: zip QuickLaunchClassic_1.05_ru.zip
(956.3 Kb, 61 просмотров)

Что ж, делали делали и не доделали. 11 месяцев прошло, а работающий результат поленились выложить. И скрипт для русификации старый выбрали, хотя на тот момент уже был новый, не требующий перезагрузки.
Короче, всё сначала:

1) Идём на официальную страничку разработчика Quick Launch Classic 7 Tool 1.0.5 на MSFN
и качаем оттуда QuickLaunchClassic_1.05.zip .


Для локализации (русификации) QuickLaunchClassic7.au3 необходимо знать:

2) - стандартные коды локализации: Country Code Language List
в частности: "Russia - Russian", "ru-RU"

3)
- локализованные названия классов из Explorer.exe. Интересует класс "MSTaskSwWClass". Его можно узнать, запустив EnumShell.exe,
в частности для русской Windows 7 получаем class = "MSTaskSwWClass" title = "Выполнение приложений"

4) Добавляем полученные данные локализации (русский) в QuickLaunchClassic7.au3 в раздел, где выбирается язык
Цитата:
Select
;Case $Lang = English
Case $Lang = "en-US"
$title = "New Toolbar - Choose a folder"
$programs = "[CLASS:MSTaskListWClass; TEXT:Running applications]"

;...

;Case $Lang = Russian
Case $Lang = "ru-RU"
$title = "Новая панель инструментов - Выбор папки"
$programs = "[CLASS:MSTaskListWClass; TEXT:Выполнение приложений]"
EndSelect

5) Качаем последнюю версию AutoIt и компилируем правленный файл.

Результат см во вложении. Работоспособность проверялась только на x32 системе. По окончании работы скрипта открываются окна Изменения настроек даты и времени и Языковая панель, т.к. они мешают перемещению QuickLaunch к кнопке Пуск, их нужно просто закрыть.
P.S. не судите строго, я тоже не программер
Это сообщение посчитали полезным следующие участники:

Отправлено: 05:11, 26-12-2012 | #7


Новый участник


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

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


Прошу прощения, а слона-то я и не увидел - в шапке тоже версия 1.05.
читать дальше »
На эту страницу зашёл по ссылке из гугля, а он процитировал только файл QuickLaunchClassic7_mod.7z от 07.01.2012, в котором лежит сильно покоцанная и не работающая версия.
Т.к. это единственная найденная мною страница по QuickLaunchClassic7 в Рунете, да и та без результата, пришлось потратить несколько часов на изучение, т.к. впервые встречаюсь с компилятором скриптов AutoIt.
Надеюсь, от моего варианта хуже не будет.

Жаль, что возникают такие сложности с переводом. Автор QuickLaunchClassic7 осилил лишь несколько европейских языков.
Например строку $title = "Новая панель инструментов - Выбор папки" вычислить автоматически не удалось, названия определены вручную по заголовку окна "Панель задач - Панели - Создать панель инструментов".

Отправлено: 05:53, 26-12-2012 | #8


Аватара для segamaster

Новый участник


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

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


А как не сдвигать панель так далеко налево ? Какой параметр за это отвечает? Хочу чтоб сдвигалась влево на несколько сантиметров в зависимости от разрешения экрана.

Отправлено: 08:50, 14-08-2018 | #9



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » AutoIt » [решено] Создание и настройка Quick Launch в Windows 7

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

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
Интерфейс - Quick Launch с большими значками. tomberg Microsoft Windows 7 2 09-05-2009 09:17
Удаление ярлыков из Quick Launch ChVL Автоматическая установка Windows 2000/XP/2003 16 22-05-2007 06:03
Quick Launch ranik Microsoft Windows 95/98/Me (архив) 6 25-09-2004 14:28
Непонятки с Quick Launch Kent Microsoft Windows NT/2000/2003 12 25-10-2003 03:48
Пропала панель Quick Launch в XP HUNTERXP Microsoft Windows 2000/XP 6 24-09-2003 19:41




 
Переход