代码实现QQ微信消息轰炸

04-21 524阅读 0评论

准备:(代码在目录2)

代码实现QQ微信消息轰炸

 代码

On Error Resume Next
Dim wsh,ye
set wsh=createobject("wscript.shell")
for i=1 to 200
wscript.sleep 10
wsh.AppActivate("36℃8")
wsh.sendKeys "^v"
wsh.sendKeys i
wsh.sendKeys "%s"
next
wscript.quit

操作:

打开和好友的聊天框,双击程序就行了!

代码实现QQ微信消息轰炸

注意:

如果双击程序后电脑上面有360提示,允许就可以了!

微信自动发送消息:

脚本会监控你的粘贴板信息,从而发送给你指定备注的人:

Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "备注的联系人"
for i = 1 to 100
WScript.Sleep 500
WshShell.SendKeys "^v"
'WshShell.SendKeys i
WshShell.SendKeys "%s"
Next


文章版权声明:除非注明,否则均为云梦博客原创文章,转载或复制请以超链接形式并注明出处。

发表评论

快捷回复: 表情:
评论列表 (暂无评论,524人围观)

还没有评论,来说两句吧...

取消
微信二维码
微信二维码
支付宝二维码