QQ强聊代码

呼唤远山

聊天时突然蹦出一个对话框,他是怎么作到的?下面看...
Dim QQ_NUM
if wscrip.arguments.count<l then
     QQ_NUM=Inputbox(""&vbcr&vbr&"欢迎大家进人黑暗空间：http://573214738.q-zone.qq.com"&vbcr&vbr&"","QQ强制聊天器VBS","输入你想要聊天的QQ号码，如：123456789")
if QQ_NUM="" then
wscript_.quit
end if
wlse
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",o
      用记事本把这代码复制进去  把格式改VBS

ジ葓麨デ

自己一个  我晕