请教个VBS提示框的问题~ - DOS批处理 & 脚本技术（批处理室） - 中国DOS联盟论坛

作者:

标题: 请教个VBS提示框的问题~

77720666
初级用户

积分 59
发帖 46
注册 2007-4-10
状态离线

『楼主』: 请教个VBS提示框的问题~

if msgbox ("提示内容",vbRetryCancel,"标题") = vbRetry then dim bag,pipe set bag=getobject("winmgmts:\\.\root\cimv2") set pipe=bag.execquery("select * from win32_process where name='QQ.exe'") for each i in pipe i.terminate() next Set Ws=WScript.CreateObject("WScript.Shell") Ws.run "QQ.exe" else end if 请问改成按"重试"执行我的代码后返回对话框~按"取消"就退出！那位大大帮忙改改~找了百度想了很久也搞不定~

2007-4-21 15:59

查看资料发送邮件发短消息网志

编辑帖子回复引用回复

lxmxn
版主

积分 11386
发帖 4938
注册 2006-7-23
状态离线

『第 2 楼』:

试试这个，没有测试。

if msgbox ("提示内容",vbRetryCancel,"标题") = vbRetry then
dim bag,pipe
set bag=getobject("winmgmts:\\.\root\cimv2")
set pipe=bag.execquery("select * from win32_process where name='QQ.exe'")
for each i in pipe
i.terminate()
next
Set Ws=WScript.CreateObject("WScript.Shell")
Ws.run "QQ.exe"
else wscript.quit(0)
end if

2007-4-21 16:43

查看资料发送邮件发短消息网志

编辑帖子回复引用回复

slore
铂金会员

积分 5212
发帖 2478
注册 2007-2-8
状态离线

『第 3 楼』:

Dim Go2End Do If Msgbox ("提示内容",vbRetryCancel,"标题") = vbRetry Then Dim bag,pipe Set bag=Getobject("winmgmts:\\.\root\cimv2") Set pipe=bag.execquery("Select * from win32_process where name='QQ.exe'") For Each i In pipe i.terminate() Next Set Ws=WScript.Createobject("WScript.Shell") Ws.run "QQ.exe" Go2End=False Else Go2End=True End If Loop Until Go2End=True

此帖被 +1 点积分点击查看详情

2007-4-21 21:59

查看资料发短消息网志

编辑帖子回复引用回复

77720666
初级用户

积分 59
发帖 46
注册 2007-4-10
状态离线

『第 4 楼』:

二楼的试过了~不行~谢了~ 三楼的可以了~非常感谢~ PS请问哪里有VBS的基础教程？

2007-4-22 15:21

查看资料发送邮件发短消息网志

编辑帖子回复引用回复