Серый форум — HTA, VBS: Ярлык на панель задач с запуском от имени администратора

Re: HTA, VBS: Ярлык на панель задач с запуском от имени администратора

null@example.com (koros) — Fri, 03 Mar 2017 12:42:32 +0000

Flasher и Xameleon, большое вам спасибо. В окончательном виде это применено здесь (если не сочтете за рекламу).

Re: HTA, VBS: Ярлык на панель задач с запуском от имени администратора

null@example.com (Flasher) — Thu, 02 Mar 2017 08:19:28 +0000

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

Re: HTA, VBS: Ярлык на панель задач с запуском от имени администратора

null@example.com (koros) — Thu, 02 Mar 2017 08:00:29 +0000

Flasher
Прошу прощения, что долго не отвечаю - сейчас в командировке и интернет доступен не регулярно.
Спасибо - так работает. Ещё вопросик: C08AFD90-F2A1-11D1-8455-00A0C91F3880 - это должно работать во всех Windows?

Re: HTA, VBS: Ярлык на панель задач с запуском от имени администратора

null@example.com (Flasher) — Mon, 27 Feb 2017 19:45:37 +0000

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")

Re: HTA, VBS: Ярлык на панель задач с запуском от имени администратора

null@example.com (koros) — Mon, 27 Feb 2017 11:50:08 +0000

Flasher
Да, добавляет....

Flasher пишет:

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

Прошу прощения.

Re: HTA, VBS: Ярлык на панель задач с запуском от имени администратора

null@example.com (Flasher) — Mon, 27 Feb 2017 09:48:51 +0000

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

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

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

Re: HTA, VBS: Ярлык на панель задач с запуском от имени администратора

null@example.com (koros) — Mon, 27 Feb 2017 09:26:52 +0000

Да этот код дает число 1.

Re: HTA, VBS: Ярлык на панель задач с запуском от имени администратора

null@example.com (Flasher) — Mon, 27 Feb 2017 09:23:30 +0000

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

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

Re: HTA, VBS: Ярлык на панель задач с запуском от имени администратора

null@example.com (koros) — Mon, 27 Feb 2017 07:07:30 +0000

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

Re: HTA, VBS: Ярлык на панель задач с запуском от имени администратора

null@example.com (Flasher) — Tue, 21 Feb 2017 05:32:50 +0000

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-ке какой-то хотфикс их отламывает. Советую проверить.
Про эти и другие глаголы.

Re: HTA, VBS: Ярлык на панель задач с запуском от имени администратора

null@example.com (Flasher) — Wed, 15 Feb 2017 15:02:47 +0000

koros пишет:

На самом деле панель Quick Launch в привычном для нас виде присутствует не только в ХР, но и в системах после ХР, просто она там отключена.

Она не совсем в привычном виде. Чтобы её привести к должному виду, нужно ещё снять пару галок в меню и сдвинуть к меню Пуск, но в любом случае она останется неоткрепляемой и неизменной по числу рядов, как было ранее.

koros пишет:

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

Так в прежних системах на панель задач отдельно от быстрого запуска ничего не крепилось. Логично, что там должна быть "аналогия" при установке.

Насчёт остального ясно.

Re: HTA, VBS: Ярлык на панель задач с запуском от имени администратора

null@example.com (koros) — Wed, 15 Feb 2017 13:50:31 +0000

Flasher пишет:

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

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

Flasher пишет:

Так а где она в приведённом коде учтена?

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

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")

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

Flasher пишет:

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

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

Flasher пишет:

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

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

Re: HTA, VBS: Ярлык на панель задач с запуском от имени администратора

null@example.com (Xameleon) — Wed, 15 Feb 2017 12:53:41 +0000

Flasher, ну для этих целей да. ) Всё отлично. Вот думаю допилить для двухбайтных.

Пока прикинул для ULONG.


Function b2un(b)
    Dim i: For i = 1 To LenB(b)
        b2un = b2un + AscB(MidB(b, i, 1)) * 2 ^ ((i - 1) * 8)
    Next
End Function

Но вдруг там будет знаковый LONG.... И тогда....

Но, пардон - это уже оффтоп в этой теме... Пойду думать в другую. )

Re: HTA, VBS: Ярлык на панель задач с запуском от имени администратора

null@example.com (Flasher) — Wed, 15 Feb 2017 12:25:50 +0000

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

Re: HTA, VBS: Ярлык на панель задач с запуском от имени администратора

null@example.com (Xameleon) — Wed, 15 Feb 2017 12:14:50 +0000

Flasher,

Теперь подтверждаю. Всё в порядке. smile

Гут ! ) Значит всё не зря.

Я вот только всё думаю об одном моменте.... Там под размер вроде 2 байта выделено. , а у меня код читает только 1 байт. Т.е по идее при определённой длине строки может быть неожиданный результат.