vbs中的msgbox 我需要点击后能产生四种返回值 怎么设置 点击button或者关闭都无所谓 只要有四种返回值就OK

Question

请大大们不要把msgbox的那些说明文档拿过来 那个没用。
a =msgbox("xxx",vbsYesNoCancel,"xxx") 这样的配置中，直接关掉和点击cancel的返回值是一样的， a=msgbox("xxx",vbsAbortRetryIgnore,"xxx") 这样的配置，对话框上的关闭按钮是灰掉的 都是只有三种返回值 求设置啊

Answer 1

要做出有四个按钮的msgbox可以（如下），但要有四种返回值，用msgbox真的是做不到了。
MsgBox "Data is not valid", vbYesNoCancel + vbDefaultButton4, "tt", "helpfolder/helpfile.hlp", 71

通过InputBox可以获取4种及以上的返回值（借助对输入内容的判断）。
很奇怪为什么你会有这样的需求，也许我了解原因后可以帮你找到其他的解决方法。

Answer 2

strComputer = "."
Set objWMIService = GetObject("Winmgmts:\\"& strComputer &"\root\cimv2")
Set colProcess = objWMIService.ExecQuery("Select * From Win32_Process where name='wscript.exe'","WQL",48)
For Each proces In colProcess
proces.Terminate
Next