|

5精币
[e]
.版本 2
.支持库 eImgConverter
.支持库 EThread
.程序集 窗口程序集1
.程序集变量 注册帐号, 文本型
.程序集变量 注册密码, 文本型
.程序集变量 图片, 字节集
.子程序 __启动窗口_创建完毕
图片 = 彗星HTTP读文件 (“http://passport.m3guo.com/KeyCode.aspx”)
写到文件 (“C:\Temp.PNG”, 图片)
转换到BMP (“C:\Temp.PNG”, “C:\Temp.BMP”)
图片框1.图片 = 读入文件 (“C:\Temp.BMP”)
.子程序 _注册_被单击
启动线程 (&子程序1, , )
zhanghao.内容 = 注册帐号
.子程序 _图片框1_鼠标左键被放开, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
图片 = 彗星HTTP读文件 (“http://passport.m3guo.com/KeyCode.aspx”)
写到文件 (“C:\Temp.PNG”, 图片)
转换到BMP (“C:\Temp.PNG”, “C:\Temp.BMP”)
图片框1.图片 = 读入文件 (“C:\Temp.BMP”)
.子程序 子程序1
.局部变量 postdate, 文本型
.局部变量 conn, 文本型
注册帐号 = “msg” + 到文本 (取随机数 (100000, 200000))
postdate = “username=” + 注册帐号 + “&userpwd=” + mima.内容 + “&userconpwd=” + mima.内容 + “&userrealname=%E5%BC%A0%E4%BA%AE&usercard=230716198702080219&question=%E6%88%91%E5%A6%88%E5%A6%88%E7%9A%84%E7%94%9F%E6%97%A5%EF%BC%9F&customquestion=&answer=1234&tgyid=&tgm=null&hfTgy=0&valicode=” + yzm.内容 + “&sCheck=true&InviteId=0”
conn = 网页访问i (“http://passport.m3guo.com/register.aspx”, 1, postdate)
.判断开始 (寻找文本 (conn, “数字ID为”, , 假) ≠ -1)
信息框 (“注册成功”, 0, )
.默认
信息框 (“注册失败”, 0, )
.判断结束
[/e]
|
回答提醒:如果本帖被关闭无法回复,您有更好的答案帮助楼主解决,请发表至 源码区 可获得加分喔。 友情提醒:本版被采纳的主题可在 申请荣誉值 页面申请荣誉值,获得 1点 荣誉值,荣誉值可兑换荣誉会员、终身vip用户组。 快捷通道:申请荣誉值 →
|