RE: Plocha zastupce

From: Likavcan, Alexander (Alexander.Likavcan@volkswagen.sk)
Date: 28. 06. 2002, 08:52 CEST


Zdar a silu Dizzy, dna 27.06.2002 si napisal(a):

> Archiv jsem prolezl - bohuzel - nic jsem nenasel :-(
> 
> 
> > Projdi archiv konfery a hledej neco o VBS, popripade WSH.
> > Nekdo tu posilal (Alexxx?) jak udelat pomoci wbs scriptu zastupce www
> > stranky na plochu. Po mensi modifikaci bys to tem lidem mohl poslat jako
> > e-mailme prilohu *.vbs, ktera jim po spusteni vytvori zastupce na plose.
> > Teda doufam ;)
> >
> > -pp21-
> 

co o tom pise msdn:
pre subor:
'-----cut-------------
set WshShell = WScript.CreateObject("WScript.Shell") 
strDesktop = WshShell.SpecialFolders("Desktop") 
set oShellLink = WshShell.CreateShortcut(strDesktop & "\Shortcut.lnk") 
oShellLink.TargetPath = "path to file"
oShellLink.WindowStyle = 1 
oShellLink.Hotkey = "CTRL+SHIFT+F" 
oShellLink.IconLocation = "notepad.exe, 0" 
oShellLink.Description = "Name of Link" 
oShellLink.WorkingDirectory = strDesktop 
oShellLink.Save 
'-----end cut-----------

ak to ma byt urllink:

------cut--------------
set oUrlLink = WshShell.CreateShortcut(strDesktop & "\Obludarium.url") 
oUrlLink.TargetPath = "http://www.mix.sk/konfera/" 
oUrlLink.Save 
-----end cut-----------


s pozdravom
AleXXX
-- 

Remember: there are no strangers in the world,
only friends who have not yet met.



This archive was generated by hypermail 2.1.2 : 28. 06. 2002, 08:53 CEST