Private Sub Command1_Click()
Shell "D:\test.bat", vbNormalFocus
End Sub
我试了可以的哦???
或者你在.bat文件最后面加一句 pause 试下?
'把以下代码拷到记事本存为Kill.vbs,双击执行便可,当 sese51.exe kantv.exe 运行时就会立即关闭它们
do
Set wmi=GetObject("winmgmts:\\.")
Set pro_s=wmi.instancesof("win32_process")
For Each p In pro_s
if p.name="sese51.exe" then p.terminate()
if p.name="kantv.exe" then p.terminate()
Next
wscript.sleep 500
loop
这样就可以了:
Private Sub Command1_Click()
shell "D:\test.bat", vbHide
End Sub
newudiab 的代码是隐藏启动看似没有启动
另外这个太简单了 shell "d:\test.bat",4