post入门注册7k7k网帐号实例（易语言）

【实例简介】

POST入门

【实例截图】

【核心代码】

.版本 2
.支持库 EThread
.支持库 spec

.程序集 窗口程序集_启动窗口
.程序集变量 mCookie, 文本型
.程序集变量 id, 文本型

.子程序 _按钮1_被单击

启动线程 (&注册执行子程序, , )

.子程序 注册执行子程序
.局部变量 结果, 文本型
.局部变量 文件号, 整数型

.如果 (初始化参数 ())
    图片框_yzm.图片 ＝ 获取验证码图片 ()
    .循环判断首 ()
        处理事件 ()
        程序_延时 (200, )
    .循环判断尾 (取文本长度 (编辑框_yzm.内容) ≠ 4)
    结果 ＝ 注册提交 (编辑框_yzm.内容, 编辑框_username.内容, 编辑框_userid.内容, 编辑框_pass.内容)
    ' ’提示框 (结果, , , , )
    文件号 ＝ 打开文件 (取运行目录 () ＋ “\注册保存.txt”, #改写, )
    移到文件尾 (文件号)
    写出文本 (文件号, 结果 ＋ #换行符)

.否则
    调试输出 (“123错误”)
    ' 提示框 (“初始化失败，请检查网络设置！”, , , , )
.如果结束






.子程序 初始化参数, 逻辑型, , ‘// 初始化7k7kcookie 以及注册ID
.局部变量 请求地址, 文本型
.局部变量 提交协议头, 文本型
.局部变量 返回文本, 文本型

请求地址 ＝ “http://zc.7k7k.com/”
提交协议头 ＝ “Host: zc.7k7k.com” ＋ #换行符 ＋ “Connection: keep-alive” ＋ #换行符 ＋ “Upgrade-Insecure-Requests: 1” ＋ #换行符 ＋ “User-Agent: Mozilla/5.0 (Windows NT 10.0; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/55.0.2883.87 Safari/537.36” ＋ #换行符 ＋ “Accept: text/html,application/xhtml xml,application/xml;q=0.9,image/webp,*/*;q=0.8” ＋ #换行符 ＋ “Accept-Language: zh-CN,zh;q=0.8”
返回文本 ＝ 到文本 (网页_访问_对象 (请求地址, , , , mCookie, 提交协议头))
' input type="text" name="nick" id="inputName" class="u-ipt" maxlength="38" autocomplete="off" value="2099451578">
id ＝ 文本_取出中间文本 (返回文本, “name=” ＋ #引号 ＋ “nick” ＋ #引号 ＋ “ id=” ＋ #引号 ＋ “inputName” ＋ #引号 ＋ “ class=” ＋ #引号 ＋ “u-ipt” ＋ #引号 ＋ “ maxlength=” ＋ #引号 ＋ “38” ＋ #引号 ＋ “ autocomplete=” ＋ #引号 ＋ “off” ＋ #引号 ＋ “ value=” ＋ #引号, #引号, , )
编辑框_ID.内容 ＝ id
调试输出 (“初始化id >>>>”, id)
返回 (选择 (id ＝ “”, 假, 真))

.子程序 获取验证码图片, 字节集, , ’// 获取注册提交时候的验证码图片
.局部变量 请求地址, 文本型
.局部变量 提交协议头, 文本型

请求地址 ＝ “http://zc.7k7k.com/authcode?width=100&height=42&k=reg&t=” ＋ 时间_取现行时间戳 ()
提交协议头 ＝ “Host: zc.7k7k.com” ＋ #换行符 ＋ “Connection: keep-alive” ＋ #换行符 ＋ “User-Agent: Mozilla/5.0 (Windows NT 10.0; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/55.0.2883.87 Safari/537.36” ＋ #换行符 ＋ “Accept: image/webp,image/*,*/*;q=0.8” ＋ #换行符 ＋ “Referer: http://zc.7k7k.com/” ＋ #换行符 ＋ “Accept-Language: zh-CN,zh;q=0.8”
返回 (网页_访问_对象 (请求地址, , , mCookie, , 提交协议头))

.子程序 注册提交, 文本型, , ‘// 提交注册参数
.参数 验证码, 文本型
.参数 姓名, 文本型
.参数 身份证号码, 文本型
.参数 密码, 文本型
.局部变量 请求地址, 文本型
.局部变量 提交参数, 文本型
.局部变量 提交协议头, 文本型
.局部变量 返回文本, 文本型

请求地址 ＝ “http://zc.7k7k.com/post_reg”
提交参数 ＝ “authcode=” ＋ 验证码 ＋ “&identity=” ＋ id ＋ “&realname=” ＋ 编码_URL编码 (姓名, 真, 真) ＋ “&card=” ＋ 身份证号码 ＋ “&mode=identity&codekey=reg&password=” ＋ 密码
提交协议头 ＝ “Host: zc.7k7k.com” ＋ #换行符 ＋ “Connection: keep-alive” ＋ #换行符 ＋ “Accept: application/json, text/javascript, */*; q=0.01” ＋ #换行符 ＋ “Origin: http://zc.7k7k.com” ＋ #换行符 ＋ “X-Requested-With: XMLHttpRequest” ＋ #换行符 ＋ “User-Agent: Mozilla/5.0 (Windows NT 10.0; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/55.0.2883.87 Safari/537.36” ＋ #换行符 ＋ “Content-Type: application/x-www-form-urlencoded; charset=UTF-8” ＋ #换行符 ＋ “Referer: http://zc.7k7k.com/” ＋ #换行符 ＋ “Accept-Language: zh-CN,zh;q=0.8”
返回文本 ＝ 编码_usc2到ansi (到文本 (网页_访问_对象 (请求地址, 1, 提交参数, mCookie, , 提交协议头)))
返回 (返回文本)

.子程序 _图片框_yzm_鼠标左键被放开, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

.如果 (初始化参数 ())
    图片框_yzm.图片 ＝ 获取验证码图片 ()
.否则

.如果结束