网站地图
【www.91debug.com--热门推荐】
如何编写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点确定就可以开始跟他聊天了
做不来的点下面我做好的
------------------------------点下面的迅雷连接下载-----------------------
------------------------------点下面的迅雷连接下载-----------------------