VBS实现的163邮箱登录器

前不久看到一个朋友用bat写的163登录器，现在我来玩一个vbs的：
'------------------------------------------------
dim name,pass
Set Wshell=WScript.CreateObject("WScript.Shell")
name = Inputbox("请输入你的用户名:","用户名")
pass = Inputbox("请输入你的密码:","密码")
const a="http://reg.163.com/in.jsp?url=http://fm163.163.com/coremail/fcg/ntesdoor2?verifycookie=1&language=-1&style=-1&username="
const b="&password="
Wshell.Run a&name&b&pass
'-------------------------------------------------
另存为vbs文件就可以了，我就不上传附件了。