VBS 打开第三方程序或操作计算机关机重启

版权声明：如有雷同请告知我，我会第一时间下架。如有转载请标明出处。 https://blog.csdn.net/qq_40191093/article/details/84757777

效果动画演示

 

 实现步骤

第一步： 创建窗口==>拖拽4个按钮，1个文本框，1个标签

第二步：按钮“电脑关机”事件

msgResult = MsgBox ("请确认关闭所有程序，是否确认关机？", 65, "系统关机")
If CInt(msgResult)=1 then
	CreateObject("Wscript.Shell").run "cmd.exe /c shutdown -s -t 0"
	MsgBox "正在关机中，请耐心等待...."
End If

 第三步：按钮“电脑重启”事件

msgResult = MsgBox ("请确认关闭所有程序，是否确认电脑重启？", 65, "系统重启")
If CInt(msgResult)=1 then
	CreateObject("Wscript.Shell").run "cmd.exe /c shutdown -r -t 0"
	MsgBox "正在重启中，请耐心等待...."
End If

第四步：按钮“打开计算器”事件

set shell=CreateObject("WScript.shell")
shell.Run "calc"

第五步：按钮“打开第三方程序”事件

 a) 窗口 事件 “打开时”

'获取当前bat程序文件的绝对路径
batPath=Sys.ProjectDir&"\执行文件.bat" 
文本框0.Text=batPath

 b) 按钮“打开第三方程序”事件

runPath=Trim(文本框0.Text)
set shell=CreateObject("WScript.shell")
shell.run runPath,false,false
MsgBox "正在打开中，请耐心等待..."

c) 如何修改第三方程序执行的路径

 进入编辑页面

d) 如何找到要执行文件的 执行路径

选中快捷图标，右击鼠标“属性”，找到目标 路径复制即可