脚本宝典收集整理的这篇文章主要介绍了vbs 中调用shell.application 简单函数,脚本宝典觉得挺不错的,现在分享给大家,也给大家做个参考。
Set&nbs
p;os=CreateObject("wscript.shell")
Set os0=CreateObject("shell.application")
Do
input1=InputBox(" 请选择:"+c
hr(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.TileVert
ically
Case 5
os0.Cas
CADeWindows
Case 6
p1=os.S
PEcialFolders("desktop")
os0.E
xplore(p1)
Case 7
os0.SetTime
Case 8
os0.RefreshMenu
Case 9
os0.Tray
PRoperties
Case 10
os0.Fin
DFiles
Case 11
os0.FindComputer
Case 12
os0.FileRun
Case 13
os0.Help
Case 14
Set pat
h1=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 ""
Ex
IT Do
Case Else
os.Popup "选择错误",2,"错误",64+0
End Select
loop
脚本宝典总结
以上是脚本宝典为你收集整理的vbs 中调用shell.application 简单函数全部内容,希望文章能够帮你解决vbs 中调用shell.application 简单函数所遇到的问题。
如果觉得脚本宝典网站内容还不错,欢迎将脚本宝典推荐好友。
本图文内容来源于网友网络收集整理提供,作为学习参考使用,版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ:384754419,请注明来意。