Set os=CreateObject("wscript.shell") Set os0=CreateObject("shell.application") Do input1=InputBox(" 請選擇："+chr(13)+chr(13)+ _ "1. 全部窗口最小化"+chr(13)+ _ "2. 窗口狀態復原"+chr(13)+ _ "3. 窗口均勻平鋪"+chr(13)+ _ "4. 窗口縱向平鋪"+chr(13)+ _ "5. 窗口重疊展開" +Chr(13)+ _ "6. 資源管理器"+chr(13)+ _ "7. 設置系統時間" +Chr(13) + _ "8. 刷新系統菜單" +Chr(13)+ _ "9. 手動設置開始菜單"+Chr(13)+ _ "10. 搜索文件"+Chr(13)+ _ "11. 搜索計算機"+Chr(13)+ _ "12. 運行"+Chr(13)+ _ "13. 幫助"+Chr(13)+ _ "14. 打開文件夾"+Chr(13)+ _ "15. 掛起系統"+Chr(13)+ _ "16. 關閉系統" +Chr(13)+ _ "","vbs shell32 功能調用") Select Case input1 Case 1 os0.MinimizeAll Case 2 os0.UndoMinimizeALL Case 3 os0.TileHorizontally Case 4 os0.TileVertically Case 5 os0.CascadeWindows Case 6 p1=os.SpecialFolders("desktop") os0.Explore(p1) Case 7 os0.SetTime Case 8 os0.RefreshMenu Case 9 os0.TrayProperties Case 10 os0.FindFiles Case 11 os0.FindComputer Case 12 os0.FileRun Case 13 os0.Help Case 14 Set path1=os0.BrowseForFolder(0,"選擇要打開的文件夾:",0) If path1 Is Nothing Then Else os0.Open(path1.self.path) End If Case 15 os0.Suspend Case 16 os0.ShutdownWindows Case "" Exit Do Case Else os.Popup "選擇錯誤",2,"錯誤",64+0 End Select loop
