On Error Resume Nextif inputbox("输入")="WANG" thenmsgbox("输入正确")Set objShell = CreateObject("Wscript.Shell")objShell.Run "notepad"end if注意:你必须输入大写的WANG才能执行通过。以上代码在电脑上新建个文本文件,将上面的内容复制进去然后保存成一个vbs后缀的文件,运行即可。