QQ自动发消息的VBS脚本

效果:
可以自动发送消息,利用ctrl+v的粘贴

使用方法:
将需要发送的消息的文件复制一下,然后切换到发送的窗口,运行这个vbs脚本即可开始自动发送消息

将下面的代码保存为 .vbs的后缀,如1.vbs

代码如下:

Set WshShell= WScript.Createobject("WScript.Shell")
for i=1 to 10
WScript.Sleep 1000
WshShell.SendKeys"^v"
WshShell.SendKeys "%s"
next

代码解释:
for i=1 to 10 这里的10就是发送10次
WScript.Sleep 1000 这里的1000就是间隔时间,单位是毫秒,英文:ms,1000毫秒等于1秒

Related Posts