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