|
|
|
|
| Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » AutoIt » [решено] Закрепление ярлыков в меню "Пуск" в ХР |
|
|
[решено] Закрепление ярлыков в меню "Пуск" в ХР
|
Ветеран Сообщения: 753 |
Добрый день !
Есть статья Закрепление ярлыков в меню "Пуск" и статья Hey, Scripting Guy! Can I Pin a File to the Start Menu by Using a Script?. Возможно ли, более подходящую вторую статью, сделать так в AutoIt ? |
|
|
------- Отправлено: 10:10, 04-05-2012 |
|
Ветеран Сообщения: 753
|
Профиль | Отправить PM | Цитировать Цитата Iska:
и ничего не добовляется. В C:\Documents and Settings\UserName\Главное меню должен тоже ярлык лежать на этот файл или ехе должен быть? |
|
|
------- Отправлено: 20:13, 05-05-2012 | #11 |
|
Ветеран Сообщения: 27449
|
Профиль | Отправить PM | Цитировать Получается, что не в курсе.
Ладно. Замените все «ConsoleWriteError()» на «MsgBox()». |
|
Отправлено: 22:12, 05-05-2012 | #12 |
|
Ветеран Сообщения: 753
|
Профиль | Отправить PM | Цитировать Цитата Iska:
|
|
|
------- Отправлено: 09:20, 07-05-2012 | #13 |
|
Ветеран Сообщения: 27449
|
Профиль | Отправить PM | Цитировать TERMINAL, сожалею, у меня нет идей. Ждите более опытных коллег.
|
|
Отправлено: 10:28, 07-05-2012 | #14 |
|
Старожил Сообщения: 200
|
TERMINAL, поищите файл Skype.lnk в папке с профилями пользователей, скорее всего найдёте его в профиле "All Users", то бишь правильный вариант в данном случае будет несколько иной. Проверено на [addon] Skype 5.10.32.114 Business Edition
|
|
Последний раз редактировалось _syd_, 30-04-2021 в 08:42. Отправлено: 00:40, 15-07-2012 | #15 |
|
Ветеран Сообщения: 753
|
Профиль | Отправить PM | Цитировать _syd_, вроде бы работает, а вот можно закрепить с другим именем как я хочу, например на русском языке-Скайп ?
|
|
------- Отправлено: 19:00, 16-07-2012 | #16 |
|
Ветеран Сообщения: 900
|
Профиль | Отправить PM | Цитировать Всем здравствуйте.
Моя ОС: MS Windows 7 SP1 Pro x64 Rus 1) Здесь есть код Autoit Скрытый текст
Код:
 AutoItSetOption("MustDeclareVars", 1)
Local $oShell = ObjCreate("Shell.Application")
Local $oFolder = $oShell.Namespace("shell:Start Menu")
Local $oFolderItem
Local $oVerb
If Not ObjName($oFolder) = "" Then
$oFolderItem = $oFolder.ParseName("Программы")
If Not ObjName($oFolderItem) = "" Then
If $oFolderItem.IsFolder Then
$oFolder = $oFolderItem.GetFolder
If Not ObjName($oFolder) = "" Then
$oFolderItem = $oFolder.ParseName("Internet Explorer.lnk")
If Not ObjName($oFolderItem) = "" Then
For $oVerb In $oFolderItem.Verbs
; &Закрепить в меню "Пуск"
; &Изъять из меню "Пуск"
If $oVerb.Name = "&Закрепить в меню ""Пуск""" Then
$oVerb.DoIt()
EndIf
Next
Else
ConsoleWriteError("Can't parse name [Internet Explorer.lnk]" & @CRLF)
EndIf
Else
ConsoleWriteError("Can't get folder from item [Программы]" & @CRLF)
EndIf
Else
ConsoleWriteError("Folder item [Программы] is not a folder" & @CRLF)
EndIf
Else
ConsoleWriteError("Can't parse name [Программы]" & @CRLF)
EndIf
Else
ConsoleWriteError("Can't get folder [Start Menu]" & @CRLF)
EndIf
Exit(0)
2) Создал пустой файл C:\1.au3 3) В файл C:\1.au3 вставил целиком/полностью код AutoIt Скрытый текст
Код:
AutoItSetOption("MustDeclareVars", 1)
Local $oShell = ObjCreate("Shell.Application")
Local $oFolder = $oShell.Namespace("shell:Start Menu")
Local $oFolderItem
Local $oVerb
If Not ObjName($oFolder) = "" Then
$oFolderItem = $oFolder.ParseName("Программы")
If Not ObjName($oFolderItem) = "" Then
If $oFolderItem.IsFolder Then
$oFolder = $oFolderItem.GetFolder
If Not ObjName($oFolder) = "" Then
$oFolderItem = $oFolder.ParseName("Internet Explorer.lnk")
If Not ObjName($oFolderItem) = "" Then
For $oVerb In $oFolderItem.Verbs
; &Закрепить в меню "Пуск"
; &Изъять из меню "Пуск"
If $oVerb.Name = "&Закрепить в меню ""Пуск""" Then
$oVerb.DoIt()
EndIf
Next
Else
ConsoleWriteError("Can't parse name [Internet Explorer.lnk]" & @CRLF)
EndIf
Else
ConsoleWriteError("Can't get folder from item [Программы]" & @CRLF)
EndIf
Else
ConsoleWriteError("Folder item [Программы] is not a folder" & @CRLF)
EndIf
Else
ConsoleWriteError("Can't parse name [Программы]" & @CRLF)
EndIf
Else
ConsoleWriteError("Can't get folder [Start Menu]" & @CRLF)
EndIf
Exit(0)
4) В файле C:\1.au3 заменил только Internet Explorer.lnk на Блокнот.lnk 5) Получилось так Скрытый текст
Код:
AutoItSetOption("MustDeclareVars", 1)
Local $oShell = ObjCreate("Shell.Application")
Local $oFolder = $oShell.Namespace("shell:Start Menu")
Local $oFolderItem
Local $oVerb
If Not ObjName($oFolder) = "" Then
$oFolderItem = $oFolder.ParseName("Программы")
If Not ObjName($oFolderItem) = "" Then
If $oFolderItem.IsFolder Then
$oFolder = $oFolderItem.GetFolder
If Not ObjName($oFolder) = "" Then
$oFolderItem = $oFolder.ParseName("Блокнот.lnk")
If Not ObjName($oFolderItem) = "" Then
For $oVerb In $oFolderItem.Verbs
; &Закрепить в меню "Пуск"
; &Изъять из меню "Пуск"
If $oVerb.Name = "&Закрепить в меню ""Пуск""" Then
$oVerb.DoIt()
EndIf
Next
Else
ConsoleWriteError("Can't parse name [Блокнот.lnk]" & @CRLF)
EndIf
Else
ConsoleWriteError("Can't get folder from item [Программы]" & @CRLF)
EndIf
Else
ConsoleWriteError("Folder item [Программы] is not a folder" & @CRLF)
EndIf
Else
ConsoleWriteError("Can't parse name [Программы]" & @CRLF)
EndIf
Else
ConsoleWriteError("Can't get folder [Start Menu]" & @CRLF)
EndIf
Exit(0)
6) Скомпилировал файл C:\1.au3 в exe, получился файл C:\1.exe 7) Запускаю файл C:\1.exe 8. Перезагрузил ПК 9) Нажимаю кнопку "Пуск", строки Блокнот нету 10) Файл-ярлык Блокнот.lnk, который надо закрепить в меню "Пуск", у меня находится в папке: C:\Users\-\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Accessories Что я сделал не так, пожалуйста, помогите мне. |
|
Отправлено: 05:26, 07-09-2015 | #17 |
|
Ветеран Сообщения: 900
|
Профиль | Отправить PM | Цитировать Пожалуйста, сделайте в этом коде - чтобы прописать путь к файлу-ярлыку:
1) прописал путь C:\Users\-\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Accessories\Блокнот.lnk 2) скомпилировал в exe файл скрипт au3 3) запустил exe файл 4) в меню "Пуск" закреплен файл-ярлык Блокнот |
|
Отправлено: 18:53, 07-09-2015 | #18 |
|
Старожил Сообщения: 352
|
Профиль | Отправить PM | Цитировать SharkyEXE, FileCreateShortcut(@WindowsDir & "\NOTEPAD.EXE", @ProgramsCommonDir & "\Блокнотик.lnk", @WindowsDir, "", "Это блокнот", "", "", @SW_MINIMIZE)
|
|
Отправлено: 11:44, 14-10-2015 | #19 |
|
Участник сейчас на форуме |
 |
Участник вне форума |
 |
Автор темы |
 |
Сообщение прикреплено |
| |||||
| Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
| [решено] Как удалить ярлыки (в меню "Пуск" - "Программы", с рабочего стола, и т. д.) | Craager | Автоматическая установка Windows 2000/XP/2003 | 167 | 08-05-2015 02:50 | |
| Интерфейс - [решено] Исчез список программ в подменю "Все программы" меню "Пуск" | sewell | Microsoft Windows 7 | 23 | 21-03-2011 16:51 | |
| CMD/BAT - Нужен bat для удаления ИЗМЕНЁННЫХ папок и программ (ярлыков) из меню "Пуск-Программы" | Nun-Nun | Скриптовые языки администрирования Windows | 15 | 18-03-2011 10:14 | |
| Запретить/удалить пункт "Programs" ("Программы") из меню кнопки "Start" ("Пуск") | submaster | Microsoft Windows NT/2000/2003 | 5 | 13-09-2006 12:29 | |
| Пункт "Завершение сеанса..." в меню "Пуск" при входе в домен. | Andrik | Microsoft Windows NT/2000/2003 | 3 | 13-12-2005 11:31 | |
|
|
Время: 17:21. | © OSzone.net 2001-
|
|
Powered by: vBulletin Copyright ©2000 - 2025, Jelsoft Enterprises Ltd. |
3.3.6.1):D:\Program Files\AutoIt3\autoit3.exe "C:\tets.au3" 
