SiS001! Board - [第一会所关闭注册]

标题: [交流] 用记事本打造自己的QQ强行聊天器 [打印本页]

作者: google8188 时间: 2007-6-28 20:30 标题: 用记事本打造自己的QQ强行聊天器

想和没有通过验证的QQ好友的人聊天吗？在一般情况下，如果对方禁止了陌生人聊天，你是做不到的。你可能会在网上看到一些强行聊天器程序，不过这些程序在使用时总是会弹出网页，没准藏了什么流氓软件呢。能否做一个这些“麻烦”的软件呢？

　　第一步：在电脑桌面上点击右键，选择“新建”→“记事本”，然后在其中输入以下代码：

ON ERROR RESUME NEXT

Dim QQ_NUM

if 　Wscript.arguments.count<1 　then

QQ_NUM=InputBox(""&vbCr&vbCr&"电脑爱好者"&vbCr&vbCr&"","QQ强行聊天器VBS实现","输入你想要聊天的QQ号码，如：123456789")

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 "http://wpa.qq.com/msgrd?V=1&Uin="+QQ_NUM+"&Site=ioshenmue&Menu=yes",0

　　第二步：当输入完毕之后，点击“文件”，然后选择“另存为”，选择保存名字为“QQ强行聊天器VBS实现.vbs”（不外加引号）。保存类型为“所有文件”。这时在保存的地方双击打开这个文件，就可以在输入的对话框中输入任意QQ聊天了。前提是你在本机上已经打开QQ了。

　　说明：上面是一段VBS代码具体意思如下：

　　ON ERROR RESUME NEXT 如果程序发生错误继续执行

　　Dim QQ_NUM 定义变量

　　inputbox 界面中默认显示内容，大家可以修改

　　对话框内容 if QQ_NUM="" then 检测用户的输入是否为空，如果为空Wscript_.quit 退出脚本

　　http://wpa.qq.com/msgrd?V=1&Uin="+QQ_NUM+"&Site=ioshenmue&Menu=yes 这个是QQ临时聊天的代码

　　第三步：打算QQ网络硬盘，然后上传至“我的文档”→“软件”栏中，当想要使用时直接点击，因为比较小（只有533字节），所以立即就可以使用了。

作者: purecool 时间: 2007-6-29 14:03

楼主，我试过了，好像不行啊！
:s_20:

作者: chinafchjsy 时间: 2007-6-30 13:22

呵。看楼上说的、不敢用了。支持一下楼主发贴:D

作者: lycanwithsky 时间: 2007-6-30 18:53

有点看不明白的说,搂主大人.不过很感谢有这样的好东西出现.

作者: 不坏的坏坏 时间: 2007-7-2 17:21

这个和重新遍个QQ有什么区别!?还是用现成的软件好了

欢迎光临 SiS001! Board - [第一会所关闭注册] (http://23.225.172.78/bbs3/)