windows vbs启动多个应用程序并使程序最小化(显示桌面)
CreationTime--2018年7月26日11点18分
Author:Marydon
1.应用场景
每天开机后,都需要打开平常所需要的软件,又不想将程序设为开机启动,能不能开机后,同时启动多个程序呢?
2.代码实现
第一步:新建一个文本文件
桌面-->右键-->新建-->文本文档-->双击打开
第二步:编辑命令
语法:
Dim shell
Set shell = CreateObject("WScript.Shell")
shell.Run """你的应用程序的绝对路径"""
Dim shell Set shell = CreateObject("WScript.Shell") '1.启动qq shell.Run """E:TIM-x86BinTIM.exe""" '2.启动chrome shell.Run """E:ChromePortable-65-PEAppGoogle Chromechrome.exe""" '3.启动eclipse shell.Run """D:eclipse-2018-x86eclipse.exe""" '4.启动notepad++ shell.Run """D:Notepad++-7.3-PE otepad++.exe""" '5.显示桌面 Set shell = CreateObject("Shell.Application") shell.ToggleDesktop '6.将变量置空 这一步可以不要 Set shell = Nothing
说明:虽然vbs有最小化的命令,但是效果不明显,因此,第5,6步相当于没有起作用,可以忽略。
第三步:文件-->另存为-->vbs文件
第四步:删除刚才新建的txt文件
以后直接双击运行即可