• 企业400电话
  • 微网小程序
  • AI电话机器人
  • 电商代运营
  • 全 部 栏 目

    企业400电话 网络优化推广 AI电话机器人 呼叫中心 网站建设 商标✡知产 微网小程序 电商运营 彩铃•短信 增值拓展业务
    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
    上一篇:用vbs实现的瞬间关闭多个系统进程的脚本
    下一篇:vbs wmi获取电脑硬件信息实例
  • 相关文章
  • 

    © 2016-2020 巨人网络通讯 版权所有

    《增值电信业务经营许可证》 苏ICP备15040257号-8

    vbs 中调用shell.application 简单函数 vbs,中,调用,shell.application,