vbs 中调用shell.application 简单函数
导读：收集整理的这篇文章主要介绍了vbs 中调用shell.application 简单函数，觉得挺不错的，现在分享给大家，也给大家做个参考。 Set os=CreateObject("wsc...
收集整理的这篇文章主要介绍了vbs 中调用shell.application 简单函数，觉得挺不错的，现在分享给大家，也给大家做个参考。 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
声明：本文内容由网友自发贡献，本站不承担相应法律责任。对本内容有异议或投诉，请联系2913721942#qq.com核实处理，我们将尽快回复您，谢谢合作！
若转载请注明出处： vbs 中调用shell.application 简单函数
本文地址： https://pptw.com/jishu/609675.html