按键精灵163邮箱注册脚本源码

按键精灵163邮箱注册脚本源码

运行环境：分辨率：1366x768 色深：32位 操作系统：Windows 7 Ultimate 按键精灵版本：9.50.11632

@themisland2013/1/18

Delay 1000  
Call Plugin.Web.Bind("wqm.exe")  
//<>===================================================打开网页免费申请  
Call Plugin.Web.Tips("打开申请界面")  
Plugin.Web.ClearCookie   
Call Plugin.Web.Go("http://reg.email.163.com/unireg/call.do?cmd=register.entrance&from=email163®Page=163")  
Call Plugin.Web.SetSize(1024,850)  
//iehwnd=Plugin.Web.GetHwnd()  
//Call Plugin.Window.Max(iehwnd)   
Delay 1000  
//<>===================================================输入名字  
Call Plugin.Web.LeftClick(200,250)  
Delay 500  
name = Lib.算法.随机字符串(8)  
pwd = name & Lib.算法.随机数字串(4)  
//保存注册信息  
Text = Plugin.File.ReadFileEx("c:\163mail.txt")  
fileLen=Plugin.File.GetFileLength("c:\163mail.txt")     
handle = Plugin.File.OpenFile("c:\163mail.txt")  
Call Plugin.File.WriteFile(handle, Text & chr(13) & pwd)  
Call Plugin.File.CloseFile(handle)    
//保存信息结束  
Call Plugin.Web.HtmlInput(pwd, "id:nameIpt")  
//<>===================================================输入密码  
Call Plugin.Web.LeftClick(200,317)  
Delay 500  
Call Plugin.Web.Tips("输入密码，默认密码：a111111")  
Call Plugin.Web.KeyPress(69)  
For 4  
    Call Plugin.Web.KeyPress(49)  
Next  
 Call Plugin.Web.KeyPress(55)  
Delay 500  
//<>===================================================确认密码  
Call Plugin.Web.LeftClick(200,387)  
Delay 500  
Call Plugin.Web.KeyPress(69)  
For 4  
    Call Plugin.Web.KeyPress(49)  
Next  
 Call Plugin.Web.KeyPress(55)   
Delay 500  
//<>==================================================输入验证码  
Call Plugin.Web.LeftClick(220,470)  
Call Plugin.Web.Tips("等待输入验证码,结束按回车键")  
Delay 500  
Rem 等待  
key=WaitKey()  
//<>===================================================按回车键即可提交申请  
If key=13 Then  
    Goto 离开  
End If   
Goto 等待  
Rem 离开  
//<>===================================================确定并同意以下条款  
Call Plugin.Web.Tips("注册提交")  
Call Plugin.web.HtmlClick("id:mobileRegA")  
Call Plugin.web.HtmlClick("id:mobileRegA_d")  
Call Plugin.Web.LeftClick(230,590)  
Delay 500  
//<>===================================================判断是否注册成功，如果成功就结束就完成本次注册。如果不是继续验证码信息  
url = Plugin.Web.GetURL  
url_reg = "reg.email.163.com"  
url_login = "cwebmail.mail.163.com"   
url_num = 0  
url_num = Instr(1, url, url_reg)  
//TracePrint url_num  
If url_num>0 then  
    Call Plugin.Web.LeftClick(405,405)  
    Call Plugin.Web.Tips("等待再次输入验证码,结束按回车键")  
    Delay 500  
    Rem 等待2  
    key = WaitKey()  
    If key=13 Then  
        Goto 离开2  
    End If   
    Goto 等待2  
    Rem 离开2  
    Call Plugin.Web.Tips("注册提交")  
    Call Plugin.web.HtmlClick("id:mobileRegA")  
    Call Plugin.web.HtmlClick("id:mobileRegA_d")  
    Call Plugin.Web.LeftClick(420,470)  
    Delay 500  
End If  
EndScript   
Sub OnScriptExit()  
    Call Plugin.Web.Tips("脚本停止运行")  
End Sub