qq强聊器

Dim QQ_NUM

if Wscript.arguments.count<1 then

QQ_NUM=InputBox("by:作者 QQ：作者QQ"&vbCr&vbCr&" "&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 "/msgrd?V=1&Uin="+QQ_NUM,0

-------------------------------------------------

的把上面的代码复制到记事本里面，保存再把文件拓展名改成VBS就可以了