|
|
|
|
| Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » Любой язык - Изъять программЫ из панели задач |
|
|
Любой язык - Изъять программЫ из панели задач
|
|
Ветеран Сообщения: 900 |
Всем здравствуйте
Операционная система: Microsoft Windows 7 Professional Service Pack 1 x64 Russian Вот здесь перейти скопировал код Скрытый текст
Код:
 Option Explicit
Const CSIDL_APPDATA = &H1A
Dim objShell
Dim objFolder
Dim objFolderItem
Dim objVerb
Dim objCurrentUserAppData
Dim strCurrentUserAppData
Set objShell = CreateObject("Shell.Application")
Set objCurrentUserAppData = objShell.NameSpace(CSIDL_APPDATA)
strCurrentUserAppData = objCurrentUserAppData.Self.Path
'===================''==================='
' - Remove All Pinned Items -
'===================''==================='
Set objFolder = objShell.Namespace(strCurrentUserAppData & "\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar")
For Each objFolderItem in objFolder.Items
For Each objVerb in objFolderItem.Verbs
If Replace(objVerb.name, "&", "") = "Unpin from Taskbar" Then objVerb.DoIt
Next
Next
После запуска файла все значки, которые закреплены на панели задач - не изъялись из панели задач Пожалуйста, поправьте код, что в нем не так Спасибо. |
|
|
Отправлено: 18:00, 02-11-2019 |
|
Ветеран Сообщения: 900
|
Профиль | Отправить PM | Цитировать Iska
Здравствуйте. Пожалуйста, можете выложить еще одну версию Вашего скрипта http://forum.oszone.net/post-2894577-9.html в котором после строки Код:
Option Explicit Код:
Rem Если не существует папка "%UserProfile%\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar\" , то If Not Exist "%UserProfile%\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar\" ( Rem Создать папку "%UserProfile%\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar\" Md "%UserProfile%\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar\" Rem Присвоить папке "%UserProfile%\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar\" атрибут "только чтение" "%SystemDrive%\Windows\System32\Attrib.exe" +R "%UserProfile%\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar\" ) |
|
Отправлено: 14:17, 14-12-2019 | #11 |
|
Ветеран Сообщения: 27449
|
Профиль | Отправить PM | Цитировать SharkyEXE, а в чём глубинный смысл? Как может данный каталог не существовать, если там есть изначально закреплённые элементы?! И зачем присваивать каталогу атрибут «Только для чтения»?
|
|
Отправлено: 16:14, 15-12-2019 | #12 |
|
Участник сейчас на форуме |
 |
Участник вне форума |
 |
Автор темы |
 |
Сообщение прикреплено |
| |||||
| Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
| Общее - [решено] Изъять программу из панели задач | The_Immortal | Автоматическая установка Windows 11 / 10 / 8 / 7 / Vista | 13 | 13-12-2023 12:22 | |
| CMD/BAT - Батник и программы из панели задач | Полина_Комиссарова@vk | Скриптовые языки администрирования Windows | 6 | 07-02-2017 12:44 | |
| Разное - [решено] Win 8.1 Pro - ЗНАЧОК "Изъять программу из панели задач" | Lirik Nivas | Microsoft Windows 8 и 8.1 | 2 | 19-08-2015 13:50 | |
| Слетел значок программы из панели задач и в пуске | Usso | Хочу все знать | 4 | 29-07-2013 23:18 | |
| Интерфейс - После перезагрузки исчезли доп.панели с кнопками из панели задач (Win7). | BombJack | Microsoft Windows 7 | 2 | 20-04-2013 20:12 | |
|
|
Время: 20:06. | © OSzone.net 2001-
|
|
Powered by: vBulletin Copyright ©2000 - 2025, Jelsoft Enterprises Ltd. |
