ON ERROR RESUME NEXT
Dim QQ_NUM
if Wscript.arguments.count<1 then
QQ_NUM=InputBox("制作:朋朋 QQ:839938688"&vbCr&vbCr&" www.zmsp.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
看看这个对你有什么好外吗