home *** CD-ROM | disk | FTP | other *** search
/ PC World 2005 May / PCWorld_2005-05_cd.bin / software / vyzkuste / zastupci / zastupci.exe / pcwWinScreen.vbs < prev   
Text File  |  2005-03-13  |  2KB  |  60 lines
  1. Set MyArgs=wscript.arguments
  2. set MyShell=CreateObject("Wscript.Shell")
  3. set MyFiles=CreateObject("Scripting.FileSystemObject")
  4. Set AppShell = Wscript.CreateObject ("Shell.Application")
  5. on error resume next
  6. modus=MyArgs(0)
  7.  
  8. select case modus
  9.  
  10. case "-Minimize"
  11.     AppShell.MinimizeAll
  12.  
  13. case "-UndoMinimize"
  14.     AppShell.UndoMinimizeAll
  15.  
  16. case "-Cascade"
  17.     AppShell.CascadeWindows
  18.  
  19. case "-TileVertically"
  20.     AppShell.TileVertically
  21.  
  22. case else
  23.     verz=MyShell.SpecialFolders("Startmenu") & "\Programy\WinScreen"
  24.     MyFiles.CreateFolder(verz)
  25.     thisScript=Wscript.ScriptFullname
  26.     set thisscript=MyFiles.GetFile(thisScript)
  27.     thisscript.copy(verz & "\pcwWinScreen.vbs")
  28.  
  29.     set link=MyShell.CreateShortcut(verz & "\Min.lnk")
  30.     link.TargetPath=verz & "\pcwWinScreen.VBS"
  31.     link.arguments="-Minimize"
  32.     link.Hotkey="CTRL+Alt+EXT+Down"
  33.     link.save
  34.  
  35.     set link=MyShell.CreateShortcut(verz & "\MinUndo.lnk")
  36.     link.TargetPath=verz & "\pcwWinScreen.VBS"
  37.     link.arguments="-UndoMinimize"
  38.     link.Hotkey="CTRL+Alt+EXT+Up"
  39.     link.save
  40.  
  41.     set link=MyShell.CreateShortcut(verz & "\Cascade.lnk")
  42.     link.TargetPath=verz & "\pcwWinScreen.VBS"
  43.     link.arguments="-Cascade"
  44.     link.Hotkey="CTRL+Alt+EXT+Left"
  45.     link.save
  46.  
  47.     set link=MyShell.CreateShortcut(verz & "\Tile.lnk")
  48.     link.TargetPath=verz & "\pcwWinScreen.VBS"
  49.     link.arguments="-TileVertically"
  50.     link.Hotkey="CTRL+Alt+EXT+Right"
  51.     link.save
  52.  
  53. msgbox "NovΘ klßvesovΘ zkratky: " & verz & chr(13) &_
  54.         "CTRL-ALT-Üipka dol∙" & chr(9) & "               Minimalizovat vÜe" & chr(13) &_
  55.         "CTRL-ALT-Üipka nahoru" & chr(9) & "Undo k minimalizovßnφ" & chr(13) &_
  56.         "CTRL-ALT-Üipka vlevo" & chr(9) & "KaskßdovΘ uspo°ßdßnφ oken" & chr(13) &_
  57.         "CTRL-ALT-Üipka vpravo" & chr(9) & "Okna pod sebou" & chr(13)
  58. end select
  59.  
  60.