ON ERROR RESUME NEXT 
Dim QQ_NUM 
if Wscript.arguments.count<1 then 
    QQ_NUM=InputBox(""&vbCr&vbCr&"技术交流论坛：bbs.51iter.com"&vbCr&vbCr&"","QQ空间浏览  51iter:猪猪","输入你想要看空间的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 "http://"+QQ_NUM+".qzone.js.cn:88/",0