如何编写QQ强行聊天工具怎么制作自己的QQ强行聊天工具-米微资源分享网

如何编写QQ强行聊天工具怎么制作自己的QQ强行聊天工具

这个东西是很久以前写的最近加我QQ的人实在是象发大水,实在抗不住了你们可以用强行聊天工具直接给我流言或者说话

这样也可以不要加我了啊原理很简单就不叙述了把下面红色的代码

复制到txt文本文件,然后点另存为

强行聊天.vbs 也可以新建个TXT文件强行聊天.txt

把下面的红色代码复制进去保存然后把

强行聊天.txt

重命名为

强行聊天.vbs

代码如下:

ON ERROR RESUME NEXT

Dim QQ_NUM
if Wscript.arguments.count<1 then
    QQ_NUM=InputBox("制作:亮亮    QQ：6595504"&vbCr&vbCr&"   www.hackstudy.cn     "&vbCr&vbCr&" ","亮亮专用QQ强行聊天器","输入聊天对象的QQ号码")
   if QQ_NUM="" then
     Wscript.quit
   end if
else
   VQQ_NUM = Wscript.arguments.Item(0)
end if

set ws=wscript.createobject("wscript.shell")
ws.run "tencent://message/?uin="+QQ_NUM+"&Site=亮亮的博客&Menu=yes",0

保存好后点强行聊天.vbs

注意本站已经加入文章水印因此复制后有自己加一个连接大家就保留红色部分的就好

随便输入个QQ点确定就可以开始跟他聊天了

做不来的点下面我做好的

------------------------------点下面的迅雷连接下载-----------------------