用记事本打造自己的ＱＱ强行聊天器
想和没有通过验证的QQ好友的人聊天吗？在一般情况下，如果对方禁止了陌生人聊天，你是做不到的。你可能会在网上看到一些强行聊天器程序，不过这些程序在使用时总是会弹出网页，没准藏了什么流氓软件呢。能否做一个没有这些“麻烦”的软件呢？第1步 在电脑桌面上点击右键，选择“新建”→“记事本”，然后在其中输入以下代码：
ON ERROR RESUME NEXT
Dim QQ_NUM
if Wscript.arguments.count<1 then
QQ_NUM=InputBox(""&vbCr&vbCr&"电脑爱好者全国发行量最大的电脑杂志 官方网站：[url]http://www.cfan.com.cn[/url] 欢迎大家到爱好者博墅作客"&vbCr&vbCr&"","QQ强行聊天器VBS实现","输入你想要聊天的QQ号码，如：123456789")
ｉｆ ＱＱ＿ＮＵＭ＝＂＂ ｔｈｅｎ
Ｗｓｃｒｉｐｔ＿．ｑｕｉｔ
ｅｎｄ ｉｆ
ｅｌｓｅ
ＶＱＱ＿ＮＵＭ ＝ Ｗｓｃｒｉｐｔ．ａｒｇｕｍｅｎｔｓ．Ｉｔｅｍ（０）
ｅｎｄ ｉｆ
ｓｅｔ ｗｓ＝ｗｓｃｒｉｐｔ．ｃｒｅａｔｅｏｂｊｅｃｔ（＂ｗｓｃｒｉｐｔ．ｓｈｅｌｌ＂）
ｗｓ．ｒｕｎ ＂ｈｔｔｐ：／／ｗｐａ．ｑｑ．ｃｏｍ／ｍｓｇｒｄ？Ｖ＝１＆Ｕｉｎ＝＂＋ＱＱ＿ＮＵＭ＋＂＆Ｓｉｔｅ＝ｉｏｓｈｅｎｍｕｅ＆Ｍｅｎｕ＝ｙｅｓ＂，０
第2步 当输入完毕之后，点击“文件”，然后选择“另存为”，选择保存名字为“QQ强行聊天器VBS实现.vbs”（不外加引号）。保存类型为“所有文件”。这时在保存的地方双击打开这个文件，就可以在输入的对话框中输入任意QQ聊天了。前提是你在本机上已经打开QQ了。
说明：上面是一段VBS代码，具体意思如下：
ON ERROR RESUME NEXT 如果程序发生错误继续执行
Dim QQ_NUM 定义变量
inputbox 界面中默认显示内容，大家可以修改
对话框内容 if QQ_NUM="" then 检测用户的输入是否为空，如果为空
Wscript_.quit 退出脚本
[url]http://wpa.qq.com/msgrd?V=1&Uin=[/url]"+QQ_NUM+"&Site=ioshenmue&Menu=yes 这个是QQ临时聊天的代码
第3步 打开QQ网络硬盘，然后上传至“我的文档”→“软件”栏中，当想要使用时直接点击，因为比较小（只有533字节），所以立即就可以使用了。 非常感谢lz,感谢楼主的好心分享 感谢楼主分享 只是下面这段代码括号内的内容是不是需要删除？
QQ_NUM=InputBox(""&vbCr&vbCr&"电脑爱好者全国发行量最大的电脑杂志 官方网站：[url]http://www.cfan.com.cn[/url] 欢迎大家到爱好者博墅作客"&vbCr&vbCr&"","QQ强行聊天器VBS实现","输入你想要聊天的QQ号码，如：123456789")
我是采鸟 正在学习 让你见笑了 嘿嘿
页:
[1]