为了省去每次都输入密码用户名，我写了一个脚本，让大家只需要输入验证码就可以了，我也是刚学的脚本，所以有不当之处，大家别骂我啊，呵呵（大家把下面的代码复制到记事本里面保存为xxx.vbs,然后双击运行按说明操作即可）
rem 使用的时候要耐心等待，页面完全载入后账号密码才会自动输入，因为这些邮箱都是频繁登陆所以我就设置登陆两边，大家等着页面上账号密码已输入，同时要求输入验证码时，输入验证码时输入验证码并点确定即可
Dim who,num
who = InputBox("如果你要进入YY小说吧公用邮箱请输入1，如果你要进入fuhei邮箱请输入2","邮箱类型")
num = inputbox("请输入你要进入第几个邮箱，YY小说吧5个，fuhei四个","邮箱号码")
SET ie=createobject("InternetExplorer.Application")
set ws=createobject("WScript.Shell")
set fi=createobject("Scripting.FileSystemObject")
ie.Width=800
ie.Height=600
ie.visible=true
ie.navigate "http://mail.qq.com/cgi-bin/loginpage"
if who=1 then
         who="wunaidatang_0"+who
         num="tangzong03"
     While ie.busy Or ie.readystate <> 4  
     Wend
         ie.document.getElementById("uin").focus
         ie.document.getElementById("uin").value=who
         ie.document.getElementById("pp").focus
         ie.document.getElementById("pp").value=num
         ie.document.forms(0).submit
     while ie.busy Or ie.readystate <> 4
     Wend
         ie.document.getElementById("uin").focus
         ie.document.getElementById("uin").value=who
         ie.document.getElementById("pp").focus
         ie.document.getElementById("pp").value=num
     else if who=2 then
         who="fuhei0"+num
         num=who
     While ie.busy Or ie.readystate <> 4  
     Wend
         ie.document.getElementById("uin").focus
         ie.document.getElementById("uin").value=who
         ie.document.getElementById("pp").focus
         ie.document.getElementById("pp").value=num
         ie.document.forms(0).submit
     while ie.busy Or ie.readystate <> 4
     Wend
         ie.document.getElementById("uin").focus
         ie.document.getElementById("uin").value=who
         ie.document.getElementById("pp").focus
         ie.document.getElementById("pp").value=num
     else
         msgbox("请按提示正确输入！")
end if
set ws=nothing
set ie=nothing
set fi=nothing
end if
WScript.Quit(1)