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