奇怪的微信聊天（微信全自动聊天轰炸机来了）

奇怪的微信聊天（微信全自动聊天轰炸机来了）WScript.Sleep 1000wshobj.Run "cmd.exe /c echo " & code & "| clip.exe" vbHidefunction send(say)Set wshobj=WScript.CreateObject("WScript.Shell")code=say

前几天我在文章《黑客用10行代码给你量身打造一个微信、QQ的聊天轰炸机》中写了一个QQ聊天轰炸机，你用来网络吵架也行，用来给女神表白也可以，网络吵架会让人无法短时间回复，给女神表白，把事先准备好的话一条一条地迅速发出去，女神都反应不过来，估计会愣住吧。我也在文章中提出，你可以用我的方法写一个微信聊天轰炸机，但是等了好久，也没有读者给我回馈，那还是我来给你们写一个电脑版全自动的微信聊天轰炸机吧。

首先下载一个电脑版的微信，下载地址在http://weixin.qq.com/cgi-bin/readtemplate?t=win_weixin，在本机上扫码登陆。然后让微信的主窗口最小化，只弹出一个单独的聊天窗口，记住窗口上的你想要的聊天名字。

其次，请把以下代码保存成vbs后缀：

Sname=inputbox("请输入要发送的名字")

function send(say)

Set wshobj=WScript.CreateObject("WScript.Shell")

code=say

wshobj.Run "cmd.exe /c echo " & code & "| clip.exe" vbHide

WScript.Sleep 1000

wshobj.AppActivate Sname

wshobj.SendKeys "^v"

WScript.Sleep 1000

wshobj.SendKeys "(~)"

set wshobj=nothing

end function

call send("我们来试一下")

call send("微信测试聊天一")

call send("微信测试聊天二")

call send("微信测试聊天三")

然后，你先双击你保存的Vbs文件，输入你要发送的聊天人的名字，就是窗口上的名字，程序里的话就自动发送过去了。以下是动画演示，像我发送给的是文件传输助手：

另外，要注意一点的是，你发送的时候，要把微信主窗口最小化，只留一个聊天窗口，并且发送时要乘着没有其它聊天消息时发送，否则不会成功。另外，如果你大量发送，被微信封号，海阳顶端头条号概不负责。

海阳顶端头条号，一个认真写作黑客文章的创作者，每篇文章都是实例测试的，每篇文章都是黑客干货，希望得到你的关注和喜欢。老规矩，最后为了让头条机器人把文章分类到黑客领域，再加一张黑客酷图，所以结尾我又加了5个黑客识别关键词，不信你数一数这句话上有几个黑客，是不是够了5个黑客词组了？