vbs 中调用shell.application 简单函数

1. Set os=CreateObject("wscript.shell")  
2. Set os0=CreateObject("shell.application")  
3. Do   
4. input1=InputBox(" 请选择："+chr(13)+chr(13)+ _  
5.         "1. 全部窗口最小化"+chr(13)+ _   
6.         "2. 窗口状态复原"+chr(13)+ _   
7.         "3. 窗口均匀平铺"+chr(13)+ _  
8.         "4. 窗口纵向平铺"+chr(13)+ _  
9.         "5. 窗口重叠展开" +Chr(13)+ _  
10.         "6. 资源管理器"+chr(13)+ _   
11.         "7. 设置系统时间" +Chr(13) + _  
12.         "8. 刷新系统菜单" +Chr(13)+ _  
13.         "9. 手动设置开始菜单"+Chr(13)+ _  
14.         "10. 搜索文件"+Chr(13)+ _  
15.         "11. 搜索计算机"+Chr(13)+ _  
16.         "12. 运行"+Chr(13)+ _   
17.         "13. 帮助"+Chr(13)+ _  
18.         "14. 打开文件夹"+Chr(13)+ _  
19.         "15. 挂起系统"+Chr(13)+ _  
20.         "16. 关闭系统" +Chr(13)+ _  
21.         "","vbs shell32 功能调用")  
22. Select Case input1  
23. Case 1  
24.      os0.MinimizeAll  
25. Case 2  
26.      os0.UndoMinimizeALL  
27. Case 3  
28.      os0.TileHorizontally  
29. Case 4  
30.      os0.TileVertically  
31. Case 5  
32.      os0.CascadeWindows  
33. Case 6  
34.      p1=os.SpecialFolders("desktop")  
35.      os0.Explore(p1)  
36. Case 7  
37.      os0.SetTime  
38. Case 8  
39.      os0.RefreshMenu  
40. Case 9  
41.      os0.TrayProperties  
42. Case 10  
43.      os0.FindFiles  
44. Case 11  
45.      os0.FindComputer  
46. Case 12  
47.      os0.FileRun  
48. Case 13  
49.      os0.Help  
50. Case 14  
51.      Set path1=os0.BrowseForFolder(0,"选择要打开的文件夹:",0)  
52.      If path1 Is Nothing Then   
53.      Else  
54.       os0.Open(path1.self.path)  
55.      End If  
56. Case 15  
57.      os0.Suspend  
58. Case 16   
59.      os0.ShutdownWindows  
60. Case ""  
61.      Exit Do  
62. Case Else   
63.      os.Popup "选择错误",2,"错误",64+0  
64. End Select  
65. loop