视QQ~~~~~~之强行聊天！
聊QQ的朋友都遇到过这样的情况：想和没有通过验证的QQ好友的人聊天，而对方又禁止了陌生人聊天。有些朋友在网上看到一些强行聊天工具，可是这些工具大部分都含有恶意软件程序，弹出窗口插件等等。其实我们自己就可以用“记事本”来打造自己的“强行聊天工具”。具体方法如下：
第一步：在桌面点右键，选择“新建”--“记事本”，然后在其中输入以下代码：
ON ERROR RESUME NEXT
Dim QQ_NUM
if Wscriptarguments.count<1 then
QQ_NUM=InputBox(""&vbCr&vbCr&"请输入对方QQ号码"&vbCr&vbCr&"","QQ强行聊天","")
if QQ_NUM=""then
Wscript_.quit
end if
else
VQQ_NUM=Wscriptarguments.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”保存类型选择“所有文件”。
好了，大功告成。去你保存的地方，双击程序就可以实现强行聊天了。
