代码如下:
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文件运行就可以了。