[решено] Создание ярлыка с помощью VBS [Версия для КПК]

Показать полную графическую версию : [решено] Создание ярлыка с помощью VBS

Страниц : [1] 2 3 4

Dodakaedr

30-01-2014, 23:29

Подскажите пожалуйста скрипт который будет создавать закрепленный ярлык на панели задач.....Очень надо. Или какой-нибудь другой способ данного действия.

omegastripes

31-01-2014, 00:07

If WScript.Arguments.Count <> 1 Then
MsgBox "Drag'n'drop exe file to pin to taskbar", , "Pin to Taskbar"
WScript.Quit
End If

strPath = WScript.Arguments(0)
Set objShell = CreateObject("Shell.Application")
Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objFolder = objShell.NameSpace(objFSO.GetParentFolderName(strPath))
Set objFolderItem = objFolder.ParseName(objFSO.GetFileName(strPath))

If objFolderItem Is Nothing Then
MsgBox strPath & vbCrLf & "not found", , "Pin to Taskbar"
WScript.Quit
End If

Set colVerbs = objFolderItem.Verbs

bPinned = False
For Each objVerb In colVerbs
VerbName = Replace(objVerb.Name, "&", "")
If VerbName = "Закрепить программу в панели задач" Or VerbName = "Закрепить на панели задач" Or VerbName = "Pin to Taskbar" Then
objVerb.DoIt
bPinned = True
Exit For
End If
Next

If bPinned Then
Msgbox strPath & vbCrLf & "successfully pinned to taskbar"
Else
Msgbox strPath & vbCrLf & "pin error"
End If

Dodakaedr

31-01-2014, 19:46

Где прописывать путь к файлу? Как убрать диалоговое окно?

Dodakaedr

31-01-2014, 20:29

Мне нужно для инсталяции программы. А именно в Smart Install Maker

Iska

31-01-2014, 20:54

Где прописывать путь к файлу? »
Параметром скрипта.

Как убрать диалоговое окно? »
Укажете параметр — окна не будет.

Мне нужно для инсталяции программы. А именно в Smart Install Maker »
Без разницы. Хоть для WiX.

Dodakaedr

31-01-2014, 22:11

Параметром скрипта. »
каким параметром?
Укажете параметр — окна не будет. »
какой параметр?

Я в этом не разбираюсь.

Iska

31-01-2014, 23:05

каким параметром? »
Первым и единственным.

Вы сохранили вышеприведённый код в файл «Путь\Имя скрипта.vbs». Запустите скрипт с указанием параметра, например:
wscript.exe "Путь\Имя скрипта.vbs" "C:\WINDOWS\system32\notepad.exe"

В Вашем случае:
Мне нужно для инсталяции программы. А именно в Smart Install Maker »
Вы должны вместо «Путь\Имя скрипта.vbs» указать конкретный путь, куда у Вас будет извлечён этот скрипт, а вместо «C:\WINDOWS\system32\notepad.exe» — полный путь к исполняемому файлу, который Вы проинсталлируете.

Dodakaedr

01-02-2014, 13:09

Вы сохранили вышеприведённый код в файл «Путь\Имя скрипта.vbs». Запустите скрипт с указанием параметра, например:
Код:
wscript.exe "Путь\Имя скрипта.vbs" "C:\WINDOWS\system32\notepad.exe" »
а как насчет окна которое выскакивает? Как его убрать?

Dodakaedr

01-02-2014, 13:18

Вот сделал как ты описал, но ничего так и не получилось. Выскочило окошко Drag'n'drop exe file to pin to taskbar и все((

Iska

01-02-2014, 14:15

Вот сделал как ты описал, »
Вы сделали по-своему. Но неправильно.

У меня нет BitTorrent, посему в его качестве выступал Dropbox:
http://imageshack.com/a/img513/914/llsk.png
Используйте переменные вместо непосредственного написания путей.

Dodakaedr

01-02-2014, 14:41

Используйте переменные »
Спасибо!!! Все заработало))))

Iska

01-02-2014, 15:13

Dodakaedr, успехов! А я пойду удалять [«зачем мне пирамидон?!» ;)] свежеустановленный «Smart Install Maker».

Dodakaedr

04-02-2014, 17:45

http://savepic.net/4494860m.jpg (http://savepic.net/4494860.htm) http://savepic.net/4487695m.jpg (http://savepic.net/4487695.htm)

Iska, что я делаю не так?

omegastripes

04-02-2014, 19:16

что я делаю не так? »
Добавил в код во 2 посте проверку на наличие файла. Вероятно, это поможет разобраться.

Dodakaedr

04-02-2014, 19:32

omegastripes, ничего не понял...

omegastripes

04-02-2014, 19:46

ничего не понял... »
Dodakaedr, "Ошибка: Требуется объект: 'objFolderItem'" возникала в случае, когда указываемого вами в строке "Параметры" файла не существовало. Но теперь, после доработки, скрипт проверяет его наличие, и выдает информацию какой файл не удалось найти. Вместо приведенной на скриншоте строки "%InstallPath%\IceTorrent.exe" он покажет путь к файлу, если его не удастся найти. Именно это, вероятно, поможет разобраться.

Dodakaedr

04-02-2014, 20:14

"Ошибка: Требуется объект: 'objFolderItem'" возникала в случае, когда »

ага, сейчас попробую...

Dodakaedr

04-02-2014, 20:37

omegastripes, не помогло, просто выскакивает "Drag'n'drop exe file to pin to taskbar" и все....

omegastripes

04-02-2014, 20:44

выскакивает "Drag'n'drop exe file to pin to taskbar" »
Это означает, что скрипту не передан в параметре путь к файлу, который нужно закрепить в панели. Что у вас в строке "Параметры"? По всей видимости, придется выложить еще один скриншот...

Dodakaedr

04-02-2014, 20:46

так работает http://savepic.net/4502056m.jpg (http://savepic.net/4502056.htm)

а так нет http://savepic.net/4483624m.jpg (http://savepic.net/4483624.htm)

судя по всему скрипт не понимает переменную %InstallPatch%, если это так, можно как нибудь это исправить аналогичной командой которую понимает скрипт???

http://savepic.net/4511276m.jpg (http://savepic.net/4511276.htm)

И "%ProgramFiles%\IceTorrent\IceTorrent.exe" пробовал, выдает ошибку.