中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客: 注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »

中国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

请注意：您目前尚未注册或登录，请您注册或登录以使用论坛的各项功能，例如发表和回复帖子等。

可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题

论坛跳转: