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