例程1是关闭程序, 例程2是打开软件. 两个都可以单独运行。 但是要实现一键重启软件, 例程3总是出错,改怎么写例程3 ?
例程1
Sub Close
Set Wshh = CreateObject("WScript.Shell")
Wshh.Run "taskkill /f /im cncnet5.exe",0
End Sub
例程2
Sub Open
Set Wsh = CreateObject("Wscript.Shell")
Wsh.Run "cncnet5.exe"
End Sub
例程3:
Sub Restart
Close
Open
End Sub
或者这样?
例程3??
Sub Restart
Set Wshh = CreateObject("WScript.Shell")
Wshh.Run "taskkill /f /im cncnet5.exe",0
Set Wsh = CreateObject("Wscript.Shell")
Wsh.Run "cncnet5.exe"
End Sub
例程1
Sub Close
Set Wshh = CreateObject("WScript.Shell")
Wshh.Run "taskkill /f /im cncnet5.exe",0
End Sub
例程2
Sub Open
Set Wsh = CreateObject("Wscript.Shell")
Wsh.Run "cncnet5.exe"
End Sub
例程3:
Sub Restart
Close
Open
End Sub
或者这样?
例程3??
Sub Restart
Set Wshh = CreateObject("WScript.Shell")
Wshh.Run "taskkill /f /im cncnet5.exe",0
Set Wsh = CreateObject("Wscript.Shell")
Wsh.Run "cncnet5.exe"
End Sub