小白易语言注册机post 取短信内容、单线程实战，软件日志 day06

取短信内容

代码如下：

这里是引用.版本 2
.支持库 iext
.支持库 spec

.计次循环首 (30, i)

超级列表框1.置标题 (N, 4, “第【” ＋ 到文本 (i) ＋ “】取码”)

短信内容 ＝ 取短信 (号码)
调试输出 (短信内容, “短信内容”)

验证码 ＝ 文本_取出中间文本 (短信内容, “今】您的验证码为：”, “，如非本”, , )  ' 这对数据处理  【环今】您的验证码为：1808，如非本人操作，请忽略本短信！
调试输出 (验证码, “验证码”)

.如果真 (验证码 ≠ “”)

    超级列表框1.置标题 (N, 4, “取到的验证码:” ＋ 验证码)

    跳出循环 ()

.如果真结束

程序_延时 (5000, )

.计次循环尾 ()

单线程实战

代码如下：

发送代码

.版本 2

.子程序 发送, 文本型, , 本命令由【精易网页调试助手】生成，请配合精易模块使用。
.参数 号码, 文本型
.局部变量 局_网址, 文本型
.局部变量 局_方式, 整数型
.局部变量 局_提交数据, 文本型
.局部变量 ADD_协议头, 类_POST数据类
.局部变量 局_提交协议头, 文本型
.局部变量 局_结果, 字节集
.局部变量 局_返回, 文本型

’ https://app.xxxx.cn//api/login/sendsms.html
局_网址 ＝ “https://app.xxxxx.cn//api/login/sendsms.html”
局_方式 ＝ 1
’ mobile=15975355566
局_提交数据 ＝ “mobile=” ＋ 号码
ADD_协议头.添加 (“User-Agent”, “Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/534.57.2 (KHTML, like Gecko) Version/5.1.7 Safari/534.57.2”, )

局_提交协议头 ＝ ADD_协议头.获取协议头数据 ()

局_结果 ＝ 网页_访问 (局_网址, 局_方式, 局_提交数据, , , 局_提交协议头, , , , , , , )
局_返回 ＝ 到文本 (编码_编码转换对象 (局_结果, , , ))
返回 (局_返回)

注册代码：

.版本 2

.子程序 注册, 文本型, , 本命令由【精易网页调试助手】生成，请配合精易模块使用。
.参数 号码, 文本型
.参数 验证码, 文本型
.参数 注册密码, 文本型
.局部变量 局_网址, 文本型
.局部变量 局_方式, 整数型
.局部变量 ADD_数据包, 类_POST数据类
.局部变量 局_提交数据, 文本型
.局部变量 ADD_协议头, 类_POST数据类
.局部变量 局_提交协议头, 文本型
.局部变量 局_结果, 字节集
.局部变量 局_返回, 文本型

’ https://app.xxx.cn//api/login/register.html
局_网址 ＝ “https://app.xxxx.cn//api/login/register.html”
局_方式 ＝ 1

ADD_数据包.添加 (“mobile”, 号码, )

ADD_数据包.添加 (“smscode”, 验证码, )

ADD_数据包.添加 (“password”, 注册密码, )
ADD_数据包.添加 (“confirm_pwd”, 注册密码, )

ADD_数据包.添加 (“invite_code”, 编辑框邀请码.内容, )

局_提交数据 ＝ ADD_数据包.获取Post数据 ()
ADD_协议头.添加 (“User-Agent”, “Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/534.57.2 (KHTML, like Gecko) Version/5.1.7 Safari/534.57.2”, )

局_提交协议头 ＝ ADD_协议头.获取协议头数据 ()

局_结果 ＝ 网页_访问 (局_网址, 局_方式, 局_提交数据, , , 局_提交协议头, , , , , , , )
局_返回 ＝ 到文本 (编码_编码转换对象 (局_结果, , , ))
返回 (局_返回)

主程序 （看看流程）

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

.子程序 主程序
.局部变量 号码, 文本型
.局部变量 N, 整数型
.局部变量 注册密码, 文本型
.局部变量 交易密码, 文本型
.局部变量 返回值, 文本型
.局部变量 i, 整数型
.局部变量 验证码, 文本型
.局部变量 短信内容, 文本型

’ 抓包分析
’ 取号
’ 过人机验证
’ 生成密码
’ 发送
’ 取验证码
’ 注册
号码 ＝ 取码 ()
N ＝ 超级列表框1.插入表项 (, , , , , ) ’ 获取行数，插入一个行数返回一个位置

超级列表框1.置标题 (N, 0, 到文本 (N ＋ 1)) ’ 序号

超级列表框1.置标题 (N, 1, 号码) ’ 账户
软件日志 (“号码” ＋ 号码)

.如果 (选择框随机密码.选中 ＝ 真)

注册密码 ＝ 文本_取随机字母 (5, ) ＋ 文本_取随机数字 (3, )

超级列表框1.置标题 (N, 2, 注册密码)  ' 账户

软件日志 (“注册密码” ＋ 注册密码)

.否则
注册密码 ＝ 编辑框注册密码.内容
超级列表框1.置标题 (N, 2, 注册密码)
软件日志 (“注册密码” ＋ 注册密码)
.如果结束
.如果 (选择框随机交易密码.选中 ＝ 真)

交易密码 ＝ 文本_取随机数字 (6, )
超级列表框1.置标题 (N, 3, 交易密码)
软件日志 (“交易密码” ＋ 交易密码)

.否则
超级列表框1.置标题 (N, 3, 交易密码)
交易密码 ＝ 编辑框交易密码.内容
软件日志 (“交易密码” ＋ 交易密码)
.如果结束
返回值 ＝ 发送 (号码) ’ 如果发送成功取验证码，不成功呢？

.如果 (寻找文本 (返回值, “成功”, , 假) ＝ -1)
’ 等于-1 就是没找到 没法送成功
超级列表框1.置标题 (N, 4, 拉黑 (号码)) ’ 账户

.否则
’ 不等于-1就走这里

.计次循环首 (30, i)


    超级列表框1.置标题 (N, 4, “第【” ＋ 到文本 (i) ＋ “】取码”)

    软件日志 (“第【” ＋ 到文本 (i) ＋ “】取码”)

    短信内容 ＝ 取短信 (号码)
    软件日志 (短信内容)

    调试输出 (短信内容, “短信内容”)

    验证码 ＝ 文本_取出中间文本 (短信内容, “今】您的验证码为：”, “，如非本”, , )  ' 这对数据处理  【环今】您的验证码为：1808，如非本人操作，请忽略本短信！

    调试输出 (验证码, “验证码”)

    .如果真 (验证码 ≠ “”)


        超级列表框1.置标题 (N, 4, “取到的验证码:” ＋ 验证码)

        软件日志 (“取到的验证码:” ＋ 验证码)

        跳出循环 ()

    .如果真结束

    程序_延时 (5000, )

.计次循环尾 ()

.如果结束

.如果真 (验证码 ＝ “”)
超级列表框1.置标题 (N, 4, “取码失败:” ＋ 号码)

软件日志 (“取码失败:” ＋ 号码)

.如果真结束

返回值 ＝ 注册 (号码, 验证码, 注册密码)

超级列表框1.置标题 (N, 4, “注册返回值:” ＋ 返回值)

软件日志 (“注册返回值:” ＋ 返回值)