为编程爱好者分享易语言教程源码的资源网
三叶资源网易语言免费公开课
三叶资源网官方③群:33301895 三叶资源网解压密码 C全站文字广告,诚邀与您合作 三叶资源网培训教程视频 花呗变现,花呗变现
三叶资源网官方③群:33301895 三叶资源网访问导航 B全站文字广告,诚邀与您合作 三叶资源网培训教程视频 花呗变现,花呗变现

网站首页 按键精灵相关 按键精灵Q语言 正文

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

三叶资源网 2018-11-01 按键精灵Q语言 159 ℃ 0 评论
三叶资源网易语言免费公开课

按键精灵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


Tags:

来源:三叶资源网,欢迎分享,公众号:iisanye,(三叶资源网官方③群:33301895

本文暂时没有评论,来添加一个吧(●'◡'●)

欢迎 发表评论:

百度站内搜索
交流QQ群:33301895
三叶资源网官方③群:33301895
加群全凭信仰,群里有的资源网站也会有。
群里只是能及时交流,群主会尽力解答一些会的问题。
设置付费入群,只是为了过滤一些小号无意义广告。
所以不必要为了1块钱加群又退出
群主在群内发的红包都够你抢回来还有的多,更何况还能交流学习。
网站分类
随机tag
web浏览器群排名因特网服务支持库http访问易语言常见错误编码转换支持库微信加人刺激战场辅助自绘荒野行动app协议图像处理模块酷Q插件超文本浏览框支持库JSONJS改写SubLime Text教程链接器雷电模拟器
最新评论