QQ强制聊天器! 制作____菜鸟版

1.进入文件夹选项,把隐藏文件后缀名 一项 取消
2.建立一个 文本 在里面输入:
ON ERROR RESUME NEXT

Dim QQ_NUM
if Wscript.arguments.count<1 then
    QQ_NUM=InputBox("制作:青年在线  QQ：285185490"&vbCr&vbCr&"    http://www.hnue.com     "&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强制聊天器.vbs
双击运行 看看! OK了