Question

VBS inputbox 参数问题

如何定义VBS inputbox 里的取消按钮
点击取消后自己退出，下面是我的代码，大家看看，改改
do
dim wind
wind= inputbox("输入进程名:","添加")
set fs =createobject("scripting.filesystemobject")
set f =fs.opentextfile("c:\WINDOWS\System32\list.dat",8)
f.writeblanklines(0)
f.writeline wind
f.close
set ws=createobject("wscript.shell")
c=msgbox(wind & "添加成功,点是继续,点否退出",VByesno+64,"添加")
if c=vbno then WScript.Quit
loop
我想问该怎么写，我不会的

Answer 1

inputbox 用户点击取消时返回的是空""，可用通过这个来做一定的判断，注意是一定的，因为用户不输入东西时按确定同样是空，所以完全达到还不容易啊。
如果是空，有可能是点的取消，有可能是没输入东西。最好判断一下，如果为空，用msgbox提示是否取消输入。和你后面写的那段就一样了。

Answer 2

do
dim wind
wind= inputbox("输入进程名:","添加")
if wind="" then WScript.Quit
set fs =createobject("scripting.filesystemobject")
set f =fs.opentextfile("c:\WINDOWS\System32\list.dat",8)
f.writeblanklines(0)
f.writeline wind
f.close
set ws=createobject("wscript.shell")
c=msgbox(wind & "添加成功,点是继续,点否退出",VByesno+64,"添加")
if c=vbno then WScript.Quit
loop