为了省去每次都输入密码用户名,我写了一个脚本,让大家只需要输入验证码就可以了,我也是刚学的脚本,所以有不当之处,大家别骂我啊,呵呵(大家把下面的代码复制到记事本里面保存为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)
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)