使用vbs脚本实现多条消息在活动对话框快速发送以及ANSI编码

使用vbs脚本实现多条消息在活动对话框快速发送

• 应用：比如在QQ或者微信聊天窗口中连续快速发送消息

这次系统学习vbs是在某一次视频中看到了一个vbs的小应用，然后就来了兴趣去学了一下VBS，之前虽然也看到过但是没有学，这次花了点时间学习了一下。学过代码的可能学的快一点，没学过的也不要紧很简单的

 1. VBScript 是微软公司出品的脚本语言。
 2. VBScript 是ASP (Active Server Pages)默认使用的脚本语言。
 3. VBScript 是一个动态脚本语言。
 4. VBScript 是一种脚本语言
 5. 脚本语言是一种轻量级的编程语言
 6. VBScript 是微软的编程语言 Visual Basic 的轻量级的版本

下面就是正题了：

每次发送都计数

Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.AppActivate"要发送的对象名称"
WScript.sleep 2000 
for i = 1 to 5  
	WScript.Sleep 99
	WshShell.SendKeys "^v"
	WshShell.SendKeys i
	WshShell.SendKeys "%s"
Next

发送时不计数

Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.AppActivate"要发送的对象名"
WScript.sleep 2000 
for i = 1 to 5  
	WScript.Sleep 99
	WshShell.SendKeys "^v"
	WshShell.SendKeys "%s"
Next

带注释的完整代码

'注意vbs运行时 编码方式是 ANSI 否则运行不成功

Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.AppActivate"要发送的对象名"    '发送对象的名称备注也可以直接点击要发给谁的对话框，比如QQ可以直接发送而微信等需要双击完vbs文件之后再点击对话框

WScript.sleep 2000    '在这里停留2秒钟，双击完vbs文件之后 给点击活动窗口时间

REM 循环次数  rem后面也是注释但是这个注释是注释一整行
for i = 1 to 5  
	WScript.Sleep 99          '间隔时间 vbs中英文单引号后面的是注释
	WshShell.SendKeys "^v"    '这里是复制完的内容，在打开要发送人的聊天窗口后，双击文件就可以连续发送了
	WshShell.SendKeys i       '每次发送都计数
	WshShell.SendKeys "%s"
Next

注意：

• vbs代码不区分大小写
• 注意vbs运行时 编码方式是 ANSI 否则运行不成功
• 注释：1. REM 循环次数 rem后面也是注释但是这个注释是注释 一整行。
• 注释：2. 'vbs 中英文 单引号后面 的是注释