- 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-06-28Python简明讲解filter函数的用法
- 2022-04-25VBS 批量Ping的项目实现
- 2022-04-21教你用vbs实现微信自动发送消息功能
- 2022-04-21利用 Pandas 进行分类数据编码的十种方式
- 2022-04-20抖音很火的vbs表白代码(简单实用!)
- 2022-04-19VBS脚本基础语法实例讲解
- VBS
VBS教程:正则表达式简介 -正则表达式语法
正则表达式语法 一个正则表达式就是由普通字符(例如字符 a 到 z)以及特殊字符(称为元字符)组成的文字模式。该模式描述在查找文字主体时待匹配的...
- VBS
灵活实用VBS入门教程应用篇
上一篇文章我们了解了VBS编程的一些基础知识,要更深入地学习还要学习选择结构和循环结构。 ...
- VBS
WINDOWS脚本实践:为SAP补丁制作的VBS脚本代码
本文主要分享WINDOWS脚本实践:为SAP补丁制作的VBS脚本代码,有需要的童鞋可以参考下...
- VBS
Adsutil.vbs 在脚本攻击中的妙用[我非我原创]
adsutil.vbs是什么?相信用过IIS的网管员不会不知道。这是IIS自带的提供于命令行下管理IIS的一个脚本。位于%SystemDrive%\Inetpub\AdminScripts目录下。...
- VBS
雷客图ASP站长安全助手vbs测试版代码
雷客图ASP站长安全助手是一个基于ASP的帮助站长维护网站安全的程序。这个版本(vbs测试版)主要用于服务器本地运行以查找ASP木马。此版本为测试版,希...
- VBS
VBS数组深入浅出
VBS数组在应用中没有像其他语句那么广泛,VBS数组存在不少功能上的局限性(如二维数组的定义、赋值),在使用上也没有java等语言那么便捷...
- VBS
VBS文本文件操作实现代码
这篇文章主要介绍了VBS文本文件操作实现代码,需要的朋友可以参考下...
- VBS
VBS编程教程 (第1篇)
VBScript的全称是:Microsoft Visual Basic Script Editon.(微软公司可视化BASIC脚本版). 正如其字面所透露的信息, VBS(VBScript的进一步简写)是基于Visual Basic的脚本语言....