- 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
vbs 中调用shell.application 简单函数
2020-07-22 13:51VBS代码网 VBS
vbs实现的调用系统命令执行的函数,可以根据用户选择运行指定的程序
延伸 · 阅读
- 2022-03-11Python 函数装饰器应用教程
- 2022-03-11Python全栈之文件函数和函数参数
- 2022-03-10C++ 函数的介绍
- 2022-03-10Python全栈之路正则函数
- 2022-03-10详解Python的函数与异常
- 2022-03-09C语言system函数使用方法详解
精彩推荐
- VBS
VBS教程:属性-AvailableSpace 属性
VBS教程:属性-AvailableSpace 属性 ...
- VBS
VBS教程:正则表达式简介 -建立正则表达式
建立正则表达式 构造正则表达式的方法和创建数学表达式的方法一样。也就是用多种元字符与操作符将小的表达式结合在一起来创建更大的表达式。 可以...
- VBS
可以定时自动关机的vbs脚本
这篇文章主要分享一段可以定时自动关机的vbs脚本代码,有需要的童鞋可以学习下...
- VBS
vbs base64 解密脚本代码
解密base64的vbs小函数,支持英文与数字不支持中文。...
- VBS
脚本 MsAgent组件 微软精灵 揪出系统自带的宠物
你知道系统里有一个隐藏的宠物吗? 将以下代码保存为后缀为.vbs的文件,再双击运行,看看出来什么?一个可爱的魔法老人!还会说话、移动、吹喇叭…...
- VBS
VBS教程:对象-Folders 集合
VBS教程:对象-Folders 集合...
- VBS
提供个可以显示农历的VBS代码
本文主要分享一段可以显示农历的VBS代码,具有一定的参考价值,有需要的朋友可以了解一下...
- VBS
VBS教程:属性-VolumeName 属性
VBS教程:属性-VolumeName 属性...