HTA, VBS: Ярлык на панель задач с запуском от имени администратора (Страница 2 из 2)

У меня 10 rus. Подойдет из неё? Или надо другие языки?

Flasher
Что-то у меня ваш скрипт на 10 вылетает с ошибкой:

Сценарий:	G:\XP\MyInstallers\7z\!!!Tools\1.vbs
Строка:	20
Символ:	27
Ошибка:	Недопустимый вызов или аргумент процедуры
Код:	800A0005
Источник: 	Ошибка выполнения Microsoft VBScript

Opera.exe и в Program Files и в Program Files(x86).
Вот shell32.dll.mui из моей системы.
Немного не понял про смену локали - вы имеете в виду систему с несколькими языками?

Flasher
Попробовал исправленный скрипт - ошибки нет, но не прикрепляется... Скрипт просто завершается без видимых последствий...
Про смену локали - у меня не установлено ни одной мультиязычной системы. На моих системах предлагается изменить язык системы только для программ не поддерживающих Юникод.

Flasher
Я, конечно же, предварительно открепил оперу от панели задач. Потом ещё запустил поиск ярлыков оперы в C:\Users - ничего не нашел.
Проверил на 8 - все работает. Может у меня 10 загаженная? Попробую завтра установить начисто на виртуалке...

Я вставил туда

msgbox(Link)
msgbox(WSS.Environment("Process")("PROGRAMFILES") & "\Opera\Opera.exe")

Все отображается - и путь к ярлыку и путь к опере. Поэтому я и грешу на загаженость системы.

Flasher
На первый вопрос - ответ "да".

Выдает "&Закрепить на панели задач".

Flasher
Задержка не помогла. Вставил ещё один Msgbox:

....
 		For Each V In Opera.Verbs
Msgbox V.Name
 			If V.Name = Verb Then V.DoIt : Exit For
 		Next
....

И вот, что интересно - "&Закрепить на панели задач" не появилось. Посмотрел по ПКМ - удивительно, но в Проводнике "&Закрепить на панели задач" есть, а в TotalCommander-e  - нет.

Вот и я грешу на свою систему, а не на скрипт... Буду экспериментировать.
Теперь вопрос, как преобразовать ваш скрипт в однострочник? Меня смущает Exit For в 16 и 20 строках...

koros

Set WSS=CreateObject("WScript.Shell"):VPlus=WSS.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\CurrentVersion")>"5.1":Set Opera=CreateObject("Shell.Application").NameSpace(0).ParseName(WSS.Environment("Process")("PROGRAMFILES")&"\Opera\Opera.exe"):If VarType(Opera)=9 Then WSH.Quit:End If:If VPlus Then Chain="User Pinned\TaskBar\":End If:Desc=Opera.ExtendedProperty("FileDescription"):Link=WSS.Environment("Process")("APPDATA")&"\Microsoft\Internet Explorer\Quick Launch\"&Chain&Desc&".lnk":If Not CreateObject("Scripting.FileSystemObject").FileExists(Link) Then:If VPlus Then:With CreateObject("MSXML2.XMLHTTP"):.Open "GET","res://shell32.dll/6/337",False:.Send:B=.ResponseBody:.Abort:End With:For i=1 To LenB(B):n=n+1:L=AscB(MidB(B,i,2)):If n=11 Then Verb=MidB(B,i+2,L*2):Exit For End If:i=i+L*2+1:Next:For Each V In Opera.Verbs:If V.Name=Verb Then V.DoIt:Exit For End If:Next:Else:With WSS.CreateShortcut(Link):.TargetPath=Opera.Path:.Description=Desc:.Save:End With:End If:End If

В ParseName располагается путь относительно NameSpace. Поэтому там может быть как полный путь (при 0-е), так и относительный.
С 0-м запись короче. И в ряде случаев, когда перебираешь файлы в структуре, куда проще подставлять переменную с путём к уже полученному объекту папки.

koros
Не понял, в чём состоит основоположность (кроме записи в переменную там ничего по сути нет), ну ладно.
Я бы рад помочь с mshta, но у меня там другой описанный ранее глюк с выводом окна. Никаких ошибок нв Win7 не наблюдаю.
Кстати, без mshta работает?

Немного модифицировал код Flasher-a в плане чтения.

mshta vbscript:execute("With CreateObject(""CDO.Message"").AddAttachment(""res://shell32.dll/6/337"").GetDecodedContentStream:.Type=1:B=.Read:End With:For i=1 To LenB(B):n=n+1:L=AscB(MidB(B,i,2)):If n=11 Then Verb=MidB(B,i+2,L*2):Exit For End If:i=i+L*2+1:Next:msgbox b:Close")

У меня на Win 10 выдаёт:

Flasher,

Ааа, вот оно в чём дело. Не обратил внимания. А у Вас в коде "MsgBox b" используется для отладки ?

Решил попробовать собрать свой вариант:

mshta vbscript:execute("With CreateObject(""CDO.Message"").AddAttachment(""res://shell32.dll/6/337"").GetDecodedContentStream:.Type=1:Do While Not.EOS:l=AscB(.Read(2))*2:n=n+1:if l>0 Then v=.Read(l):if n=11 Then msgbox v:Exit Do:End if:End if:Loop:End With:Close")

Ваш целиковый код работает.

Так ошибок не возникает.
Xameleon большое спасибо - mshta заработало с

With CreateObject(""CDO.Message"").AddAttachment(""res://shell32.dll/6/337"").GetDecodedContentStream:.Type=1:B=.Read:End With

Поскольку mshta налагает ограничения на длину кода и путь я знаю заранее (C:\Program Files\Opera\Opera.exe - приведен для примера) и  будет автоматом подставляться в скрипт решил убрать проверки на версию системы за пределы mshta. Также скрипт разделяется на две части - создание ярлыка и присвоение ему прав администратора (с чего собственно все и начиналось), чтобы была возможность создавать ярлыки с и без прав администратора. В итоге получился такой скрипт для прикрепления программы к ранели задач без прав администратора:

mshta vbscript:execute("With CreateObject(""CDO.Message"").AddAttachment(""res://shell32.dll/6/337"").GetDecodedContentStream:.Type=1:B=.Read:End With:For i=1 To LenB(B):n=n+1:L=AscB(MidB(B,i,2)):If n=11 Then P=MidB(B,i+2,L*2):Exit For:End If:i=i+L*2+1:Next:For Each V In CreateObject(""Shell.Application"").NameSpace(0).ParseName(""C:\Program Files\Opera\Opera.exe"").Verbs:If V.Name=P Then V.DoIt::Exit For:End If:Next:Close")

Вроде все работает.
Насколько я понял для открепления от панели задач надо делать проверку на n=12?

Еще раз большое вам всем спасибо.

У себя дома? Или у других, где папка Program Files меняется?

Так а где она в приведённом коде учтена? И где в нём создание ярлыка на XP?

Это риторический вопрос?

Я могу проверять только отдельно от mshta. Так вот у меня скрипт отработал вхолостую.
Точки в посте проставьте.

Xameleon
А.. У меня два проверочных кода. Данный следовал за предыдущим и по какой-то причине не отрабатывал. Теперь подтверждаю. Всё в порядке.

Xameleon
Проверил на всех mui с 7-ки, что выложил koros, проблем нет.

Везде . Как я уже говорил - этот код нужен мне для конфигурационного файла для создания SFX 7-zip. Там вначале будет задаваться путь, а потом уже он будет использоваться для создания ярлыка. Например, путь будет задаваться, как %%T\Opera.exe. %%T - это внутренняя переменная модуля SFX 7-zip и она раскрывается, как путь, куда распаковывается содержимое архива.

Ну полная команда будет такова:

cmd /c VER|FIND "5.">nul||mshta vbscript:execute("With CreateObject(""CDO.Message"").AddAttachment(""res://shell32.dll/6/337"").GetDecodedContentStream:.Type=1:B=.Read:End With:For i=1 To LenB(B):n=n+1:L=AscB(MidB(B,i,2)):If n=11 Then P=MidB(B,i+2,L*2):Exit For:End If:i=i+L*2+1:Next:For Each V In CreateObject(""Shell.Application"").NameSpace(0).ParseName(""%%T\Opera.exe"").Verbs:If V.Name=P Then V.DoIt::Exit For:End If:Next:Close")

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

На самом деле панель Quick Launch в привычном для нас виде присутствует не только в ХР, но и в системах после ХР, просто она там отключена. Создавать ярлык в Quick Launch можно штатными средствами модуля  SFX 7-zip, не смотря на версию системы и он никак не связан с ярлыком на панели задач.

Да я вроде посмотрел, какие "глаголы" считываются и в каком порядке. "Открепить от панели задач" идет вслед за "Закрепить на панели задач" - поэтому проверка на n=12. Проверил на 7 - работает. Но решил для уверенности спросить у знающих людей...

koros
Кстати, до 10-ки были канонические глаголы taskbarpin и taskbarunpin (наравне с startpin и startunpin). Можно было бы сократить до:

cmd /c VER|FIND "5.">nul||mshta vbscript:execute("CreateObject(""Shell.Application"").NameSpace(&H26).ParseName(""Opera\Opera.exe"").InvokeVerb(""taskbarpin""):Close")

В своём коде сократил для разнообразия. В 10-ке какой-то хотфикс их отламывает. Советую проверить.
Про эти и другие глаголы.

koros
Понял. Ну, и на всякий случай проверьте, даст код число или нет:

MsgBox InStr(CreateObject("WScript.Shell").RegRead("HKCR\CLSID\{90AA3A4E-1CBA-4233-B8BB-535773D48449}\ImplementsVerbs"), "taskbarpin")

Хм. Интересно. А этот код блокнот (убрать, если есть) на таскбар не добавит?:

With GetObject("new:{C08AFD90-F2A1-11D1-8455-00A0C91F3880}")
   .document.Application.NameSpace(&H24).ParseName("notepad.exe").InvokeVerb "taskbarpin" : .Quit
End With

См. за точками.

koros
Ну, так за чем дело встало? Остаётся проверить на Опере:

mshta vbscript:Execute("Set WB=GetObject(""new:{C08AFD90-F2A1-11D1-8455-00A0C91F3880}""):WB.document.Application.NameSpace(&H26).ParseName(""Opera\Opera.exe"").InvokeVerb""taskbarpin"":WB.Quit:close")

koros
Да. Это Shell Browser Window (подробнее) от WebBrowser2.