对话框快速发送以及ANSI编码"/>
使用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 99WshShell.SendKeys "^v"WshShell.SendKeys iWshShell.SendKeys "%s"
Next
发送时不计数
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.AppActivate"要发送的对象名"
WScript.sleep 2000
for i = 1 to 5 WScript.Sleep 99WshShell.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 中英文 单引号后面 的是注释
更多推荐
使用vbs脚本实现多条消息在活动对话框快速发送以及ANSI编码
发布评论