windows vbs启动多个应用程序并使程序最小化（显示桌面）

转载须注明原作者及出处！

此类文章发布地址变更至：https://www.jianshu.com/u/45a4c4696c9a

windows vbs启动多个应用程序并使程序最小化（显示桌面）

Created by Marydon on 2018-07-26 11:27

1.应用场景

　　每天开机后，都需要打开平常所需要的软件，又不想将程序设为开机启动，能不能开机后，同时启动多个程序呢？

2.代码实现

　　第一步：新建一个文本文件

　　桌面–>右键–>新建–>文本文档–>双击打开

　　第二步：编辑命令

　　语法：

　　Dim shell
　　Set shell = CreateObject(“WScript.Shell”)

　　shell.Run “””你的应用程序的绝对路径”””

Dim shell
Set shell = CreateObject("WScript.Shell")
'1.启动qq
shell.Run """E:\TIM-x86\Bin\TIM.exe"""
'2.启动chrome
shell.Run """E:\ChromePortable-65-PE\App\Google Chrome\chrome.exe"""
'3.启动eclipse
shell.Run """D:\eclipse-2018-x86\eclipse.exe"""
'4.启动notepad++
shell.Run """D:\Notepad++-7.3-PE\notepad++.exe"""
'5.显示桌面
Set shell = CreateObject("Shell.Application")
shell.ToggleDesktop
'6.将变量置空 这一步可以不要
Set shell = Nothing

　　说明：虽然vbs有最小化的命令，但是效果不明显，因此，第5，6步相当于没有起作用，可以忽略。

　　第三步：文件–>另存为–>vbs文件

　　

　　第四步：删除刚才新建的txt文件

　　以后直接双击运行即可

出现错误对话框 Windows Script Host

开机就会弹出错误对话框：

Windows Script Host

脚本 C:\Users\a\AppData\Local\SystemService.vbs

行 3

字符 1

错误 系统找不到指定的文件

代码 80070002

源 （null）

您好！

感谢您联系微软技术支持。

我了解到您使用系统出现的问题。

请问您使用的操作系统的具体版本，查看方法：设置-系统-关于。

请您尝试以下的方法：

1、保持联网状态，在Cortana搜索框输入windows powershell，鼠标右击windows powershell以管理员运行，复制粘贴以下命令运行：

DISM.exe /Online /Cleanup-image /Scanhealth
DISM.exe /Online /Cleanup-image /Checkhealth
DISM.exe /Online /Cleanup-image /Restorehealth