4_4_ Ñîçäàíèå ÿðëûêîâ - ÷àñòü 2
JScript:
//Ñîçäàåì îáúåêò WshShell:
var WshShell = new ActiveXObject(“WScript.Shell”);
//ïîëó÷àåì ïóòü ê íàøåìó ðàáî÷åìó ñòîëó:
var DesktopPath = WshShell.SpecialFolders(“Desktop”);
//ñîçäàåì ÿðëûê:
var NShortcut = WshShell.CreateShortcut(DesktopPath + “\\Áëîêíîò.lnk”);
Íà âòîðîì ýòàïå ìû äîëæíû óñòàíîâèòü ñëåäóþùèå ñâîéñòâà ÿðëûêà, òàêèå êàê:
TargetPath – èìÿ ðåñóðñà íà êîòîðûé ññûëàåòñÿ ÿðëûê.
WindowStyle – ñòèëü çàïóñêàåìîãî îêíà.
Ìîæåò ïðèíèìàòü ñëåäóþùèå çíà÷åíèÿ:
1 – îòêðûòü êàê îáû÷íîå îêíî;
3 – ðàñêðûòü íà âåñü ýêðàí;
7 – çàïóñòèòü â ñâåðíóòîì âèäå.
HotKey – óñòàíàâëèâàåò êëàâèøè áûñòðîãî âûçîâà
IconLocation – ðàñïîëîæåíèå èêîíêè ÿðëûêà
Description – âñïëûâàþùàÿ ïîäñêàçêà (êîììåíòàðèé)
WorkingDirectory – óñòàíàâëèâàåò ðàáî÷èé êàòàëîã
È, íà ñàìîì ïîñëåäíåì ýòàïå ñîçäàíèÿ ÿðëûêà, ìû ñîõðàíÿåì óñòàíîâëåííûå ñâîéñòâà è ñàì ÿðëûê ìåòîäîì Save.
Òàêèì îáðàçîì, íàø ñöåíàðèé ïîëíîñòüþ áóäåò èìåòü ñëåäóþùèé âèä:
VBScript:
Dim WshShell, DesktopPath, Nshortcut
‘Ñîçäàåì îáúåêò WshShell:
Set WshShell = CreateObject(“WScript.Shell”)