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就可以了