目标
vbs脚本实现模拟键盘输出13种语言拜年，朗读拜年语音，之后打开浏览器显示支付宝收钱码，索要红包（厚脸皮
vbs拜年文件直接下载传送门，喜欢干货的可以直接出发了
准备
玩vbs有一段时间了，对原理感兴趣的可以看一下我上一篇vbs的博客，这篇我会讲的快一点，没有基础的话可能理解有点困难，上一篇传送门
记事本
老规矩了，记事本写vbs模拟键盘代码生成器
vbs的模拟键盘功能至今没有找到方便的方法，只能一个字母一个字母去模拟，但是我们可以用自己写程序的方法，把想说的话，转化成vbs模拟键盘代码，这次更深入了解模拟键盘的一些小细节以后，更新了vbs模拟代码生成器的代码，如下：
#include
#include
using namespace std;
int main() {
ifstream ifile;
ifile.open("D:\\in.txt");
ofstream ofile;
ofile.open("D:\\out.txt");
char str[100];
while (ifile.getline(str, 100)) {
if (str[0] == '\0') {
ofile << "WS.SendKeys \"{ENTER}\"" << endl << endl< AutoTime是两个键之间的敲击间隔，可以自由设置，具体看下文
开工
创建vbs文件，做初步准备
在桌面创建记事本文件，改扩展名为vbs，不会改后缀名的请去百度，键入以下代码
CreateObject("SAPI.SpVoice").Speak"过年好啊,我要用13种语言给您拜年啦"
Dim AutoTime
AutoTime = 50
Set WS=WScript.CreateObject("WScript.Shell")
WS.run("notepad"),3
WScript.Sleep 500
WS.AppActivate("notepad")
WS.SendKeys "+"第一行朗读拜年内容，可以自己设置，从第二行到最后都是为了模拟键盘输入做准备，建立对象，设置间隔变量AutoTime，打开记事本，停顿0.5s，获取记事本焦点（这个非常重要),切换输入法为英文WS.SendKeys "+"这个是模拟键盘按shift的意思，因为我们要用代码拜年，开头就是用英文写的
生成模拟键盘vbs代码
懂c++的同学可能已经注意到了，上面的“模拟键盘代码生成器”中涉及到了一个in.txt文件和一个out.txt文件，in就是要显示的文件，而out用来存放根据in生成的vbs代码，接下来在D盘创建in.txt(out.txt程序会自动生成，不用手动创建),键入以下内容，保存关闭
print_r('+xinniankuaile1+');
var_dump('+xinniankuaile1+');
NSLog(@"+xinniankuaile1+");
System.out.println("+xinniankuaile1+");
console.log("+xinniankuaile1+");
print("+xinniankuaile1+");
printf("+xinniankuaile1+");
cout<<"+xinniankuaile1+"<< endl;
Console.WriteLine("+xinniankuaile1+");
fmt.Println("+xinniankuaile1+");
Response.Write("+xinniankuaile1+");
alert("+xinniankuaile1+")
echo"+xinniankuaile1+"顺便说一下，我们要显示的东西时这样子的
print_r('新年快乐');
var_dump('新年快乐');
NSLog(@"新年快乐");
System.out.println("新年快乐");
console.log("新年快乐");
print("新年快乐");
printf("新年快乐");
cout<<"新年快乐"<< endl;
Console.WriteLine("新年快乐");
fmt.Println("新年快乐");
Response.Write("新年快乐");
alert("新年快乐")
echo"新年快乐"以第一行in的文件为例print_r('+xinniankuaile1+');，括号中出现的+号如上文所说，代表shift键，前面已经切成了英文输入法，现在再切回去，打xinniankuaile，因为输入法自带的联想词语功能，新年快乐就出现在了第一个（按说谁的输入法都会这样，按说，，，）,然后按1就正好打出了汉字“新年快乐”，在上一篇博客已经说过了，vbs是不能直接模拟键盘输入中文的，因为键盘上没有中文键（什么沙雕逻辑），所以只能用这种看起来符合日常习惯的方法进行模拟输入，把新年快乐敲出来以后再一个+，把输入法切回英文，下面的同理
保存以后运行“模拟键盘代码生成器”，这时候D盘就多了out.txt文件，打开以后出现的7,8百行代码就是我们需要的东西（对，就是这么多，你以为呢），把这个文件中的所有代码复制，粘贴到我们上一步新建立的vbs文件中
打开支付宝二维码网页，索要红包（
这之前首先先说几句祝福的话，再要钱啊，跟着上面的内容，键入以下内容
CreateObject("SAPI.SpVoice").Speak"祝您猪年诸事大吉，身体健康，万事如意，恭喜发财，红包拿来，扫码即可哦"
WScript.Sleep 200Sleep 是暂停，暂停200ms，给系统一点反应时间，不然会出bug，下面我们做支付宝收钱码链接
先把收钱码上传到图床（可以把自己的图片挂在网上）上面，图床传送门
根据提示上传好后，保存链接备用
继续，跟着上面的内容，键入以下代码
link()
Function link()
Set Seven = WScript.CreateObject("WScript.Shell")
strDesktop = Seven.SpecialFolders("Desktop")
set oShellLink = Seven.CreateShortcut(strDesktop & "\Titordong.url")
oShellLink.TargetPath = "https://ww1.sinaimg.cn/large/007i4MEmgy1fzviwg4l7uj30u01aoag3.jpg"
oShellLink.Save
Set oShellLink=Nothing
strDesktop = Seven.SpecialFolders(4)
mypath=strDesktop&"\Titordong.url"
Seven.run mypath
End Function第一句是调用函数，后面是函数的内容，用来实现，在桌面创建一个快捷方式并自动打开，显示你的支付宝收钱码，注意这行oShellLink.TargetPath = "https://ww1.sinaimg.cn/large/007i4MEmgy1fzviwg4l7uj30u01aoag3.jpg"
这后面的链接，是我的收钱码在图床上的链接，这时候就把刚才保存的你自己的收钱码链接替换上去，就成自己的了！
搞定收工，保存退出，双击运行即可，记得在运行时鼠标不要点击任何地方，会出bug，学会的小伙伴们，可以拿去给别人拜年收钱了（233
后记
模拟键盘输入科技感十足，有一小部分小伙伴电脑不能运行，呜呜，没办法了，正常情况下windows都可以直接运行的
2019/2/5 15:42:19