中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --
联盟域名：www.cn-dos.net　论坛域名：www.cn-dos.net/forum
游客 | 登录 | 注册 | 会员 | 搜索 | 中国DOS联盟
中国DOS联盟论坛
现在时间是 2026-08-04 06:55 		共 48,038 主题排行 / 350,123 发帖 / 今日 0 篇 / 48,251 会员排行
DOS批处理 & 脚本技术（批处理室） » 请教个VBS提示框的问题~
可打印版本 　1,033 / 3
第1楼　77720666 发表于 2007-04-21 15:59
初级用户　发帖 46　积分 59
请教个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

请问改成按"重试"执行我的代码后返回对话框~按"取消"就退出！

那位大大帮忙改改~找了百度想了很久也搞不定~
第2楼　lxmxn 发表于 2007-04-21 16:43
版主　发帖 4,938　积分 11,386
试试这个，没有测试。
第3楼　slore 发表于 2007-04-21 21:59
铂金会员　发帖 2,478　积分 5,212
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
第4楼　77720666 发表于 2007-04-22 15:21
初级用户　发帖 46　积分 59
二楼的试过了~不行~谢了~
三楼的可以了~非常感谢~

PS请问哪里有VBS的基础教程？
[ 联系联盟系统管理团队 - 中国DOS联盟 - 标准版 ]
Sponsored by ifanr Inc | © 2001–2023