有很多的朋友在网吧上网，看到旁边有个MM在和Q上的人聊得火热，自己苦苦窥视到MM的QQ，兴奋地点击查找，点加为好友，然后就弹出一个验证对话框，是不是很烦啊？
现在，你可以不用加Q就可以直接和对方聊了（当然，前提是你要知道对方的QQ）。
先新建一个文本文档，在里面输入以下内容：
ON ERROR RESUME NEXT

Dim QQ_NUM
if Wscript.arguments.count<1 then
QQ_NUM=InputBox("在下面输入QQ号进行聊天"&vbCr&vbCr&" "&vbCr&vbCr&" ","QQ强行聊天器VBS版","10000")
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
然后再另存为.vbs格式的文件就行了。。


希望大家顶一下```



屙尿ing。。。。。。。。。。。