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

运行环境：分辨率：1366×768 色深：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