home *** CD-ROM | disk | FTP | other *** search
- Set MyArgs=wscript.arguments
- set MyShell=CreateObject("Wscript.Shell")
- set MyFiles=CreateObject("Scripting.FileSystemObject")
- Set AppShell = Wscript.CreateObject ("Shell.Application")
- on error resume next
- modus=MyArgs(0)
-
- select case modus
-
- case "-Minimize"
- AppShell.MinimizeAll
-
- case "-UndoMinimize"
- AppShell.UndoMinimizeAll
-
- case "-Cascade"
- AppShell.CascadeWindows
-
- case "-TileVertically"
- AppShell.TileVertically
-
- case else
- verz=MyShell.SpecialFolders("Startmenu") & "\Programme\WinScreen"
- MyFiles.CreateFolder(verz)
- thisScript=Wscript.ScriptFullname
- set thisscript=MyFiles.GetFile(thisScript)
- thisscript.copy(verz & "\pcwWinScreen.vbs")
-
- set link=MyShell.CreateShortcut(verz & "\Min.lnk")
- link.TargetPath=verz & "\pcwWinScreen.VBS"
- link.arguments="-Minimize"
- link.Hotkey="CTRL+Alt+EXT+Down"
- link.save
-
- set link=MyShell.CreateShortcut(verz & "\MinUndo.lnk")
- link.TargetPath=verz & "\pcwWinScreen.VBS"
- link.arguments="-UndoMinimize"
- link.Hotkey="CTRL+Alt+EXT+Up"
- link.save
-
- set link=MyShell.CreateShortcut(verz & "\Cascade.lnk")
- link.TargetPath=verz & "\pcwWinScreen.VBS"
- link.arguments="-Cascade"
- link.Hotkey="CTRL+Alt+EXT+Left"
- link.save
-
- set link=MyShell.CreateShortcut(verz & "\Tile.lnk")
- link.TargetPath=verz & "\pcwWinScreen.VBS"
- link.arguments="-TileVertically"
- link.Hotkey="CTRL+Alt+EXT+Right"
- link.save
-
- msgbox "Neue Hotkeys unter " & verz & chr(13) &_
- "STRG-ALT-Cursor_unten" & chr(9) & "Alle minimieren" & chr(13) &_
- "STRG-ALT-Cursor_oben" & chr(9) & "Undo minimieren" & chr(13) &_
- "STRG-ALT-Cursor_links" & chr(9) & "Fensterkaskade" & chr(13) &_
- "STRG-ALT-Cursor_rechts" & chr(9) & "Fenster in Spalten" & chr(13)
- end select
-
-