利用vbs脚本实现自动打字

每次在调试程序的时候都要反反复复的输入测试数据，真的神烦哪，听说可以用文件读写的方式输入测试数据，然而我相信你不愿额外花时间维护写文件部分的代码，所以，问题来了，让谁来帮我打字呢。

vbs can！

VBS是基于Visual Basic的脚本语言。VBS的全称是：Microsoft Visual Basic Script Editon。

它的基础语法和VB差不多，但今天我们不讲语法，我们讲对象。

我们先创建一个对象，然后让它帮我们打字~~

核心代码是一个函数：sendKeys "XXXX"

XXX就代表我们要打的字，这样我们只要在写vbs脚本的时候打一次字就行了。

方法，打开记事本，输入代码。

下面是代码：

Dim WshShell '定义一个对象，名字随便起'

Set WshShell=WScript.CreateObject("WScript.Shell")  '初始化对象'

WScript.Sleep 2000 '程序暂停2秒'

WshShell.sendKeys "3{ENTER}"   '模拟人工，按下3，然后按下ENTER键'

WScript.Sleep 2000 '程序暂停2秒'

WshShell.sendKeys "N123;Object-Oriented Programming;Dave Smith;2009;3{ENTER}"

WScript.Sleep 2000 '程序暂停2秒'

由于脚本运行起来特别快，所以可能会出现屏幕上正在输出，我们暂时无法输入，而导致的输入信息不完全。

这也就是程序暂停2秒的原因，当然如果你追求效率，可以试试把时间改到适合你为止。

写完vbs脚本代码之后，保存，修改后缀名为.vbs,然后打开你调试时要输入的窗口，然后双击启动脚本，

！！！！！！！！！！！！！！！！！！！高能预警！！！！！！！！！！！！！！！！！！！！！！！

一定要在第一个暂停的两秒之内、在sendKeys执行之前，唤醒你调试时要输入的窗口！！！！！

通俗点说，就是双击完vbs之后两秒之内要完成单击输入窗口\\个人觉得这个还是可以做到的//

其实一时疏忽没有切换窗口又或者忘了，又或者就是想试试看有什么后果、、、

后果就是会给你造成一点小小的麻烦，比如说切换窗口啦，关闭窗口啦，NUMBER LOCK啦之类的

嗯，最后再说一声，sendKeys的内容暂时还不支持中文，只能是字符串，如果真的真的一定要输入中文的话，

可以把中文复制后，用sendKe模仿Ctrl + V，至于怎么模拟Ctrl键以及把这两个组合起来，让百度告诉你吧。

sendKeys的功能还是比较强大的，可以模拟人的击键，单个键和组合键都可以，基于需求的原因，这里就不多说了。

另外，用vbs还能写出窗口化的程序，语法也不难，有兴趣的同学可以上网查查。