人人视频注册源码

.版本 2
.支持库 spec

.程序集 窗口程序集_启动窗口

.子程序 __启动窗口_创建完毕



.子程序 发码, 逻辑型
.参数 手机号, 文本型
.局部变量 http, WinHttpW
.局部变量 发码结果, 文本型
.局部变量 json, zyJsonValue

http.Auto ()
http.Open (“POST”, “https://api.rr.tv/auth/captcha/sms”)
http.SetRequestHeader (“clientVersion”, “4.7.2”)
http.SetRequestHeader (“clientType”, “android_RRMJ”)
http.Send (“countryCode=86&mobile=” ＋ 手机号)
发码结果 ＝ http.GetResponseTextA ()
调试输出 (发码结果)
json.解析 (发码结果)
.判断开始 (json.取文本 (“msg”) ＝ “Success”)
    返回 (真)
.默认
    返回 (假)
.判断结束


.子程序 注册, 逻辑型
.参数 手机号, 文本型
.参数 验证码, 文本型
.局部变量 http, WinHttpW
.局部变量 注册结果, 文本型
.局部变量 json, zyJsonValue

http.Auto ()
http.Open (“POST”, “https://api.rr.tv/auth/login/mobile”)
http.SetRequestHeader (“clientVersion”, “4.7.2”)
http.SetRequestHeader (“clientType”, “android_RRMJ”)
http.Send (“captchaSms=” ＋ 验证码 ＋ “&mobile=” ＋ 手机号)
注册结果 ＝ http.GetResponseTextA ()
调试输出 (注册结果)
json.解析 (注册结果)
.判断开始 (json.取文本 (“msg”) ＝ “Success”)
    返回 (真)
.默认
    返回 (假)
.判断结束


.子程序 _按钮_发码_被单击

发码 (编辑框_手机号.内容)

.子程序 _按钮_注册_被单击

注册 (编辑框_手机号.内容, 编辑框_验证码.内容)

@见了水星