[HTML] 纯文本查看 复制代码
.版本 2
.支持库 spec
.子程序 _按钮1_被单击
.局部变量 返回, 字节集
.局部变量 返回文本, 文本型
.局部变量 分割文本, 文本型, , "0"
.局部变量 i, 整数型
.局部变量 分割文本2, 文本型, , "0"
.局部变量 j, 整数型
.局部变量 提交内容, 文本型
编辑框1.加入文本 (“=========以下是自己独占VIP=======” + #换行符)
提交内容 = 子文本替换 (#自己VIP, “iiiidddd”, 编辑框2.内容, , , 真)
返回 = 网页访问底层 (“http://120.24.231.37:81/XunLeiWebService.asmx”, “POST”, , , , “Content-Type: text/xml;charset=utf-8” + #换行符 + “SOAPAction: http://tempuri.org/GetOneUserNameList” + #换行符 + “User-Agent: Dalvik/1.6.0 (Linux; U; Android 4.0.4; GT-I9300 Build/IMM76D)”, , , , , , , , , 到字节集 (提交内容))
返回文本 = 编码_Utf8到Ansi (返回)
' 调试输出 (返回文本)
分割文本 = 分割文本 (返回文本, “GetOneUserNameListResult”, )
.计次循环首 (取数组成员数 (分割文本), i)
.判断开始 (寻找文本 (分割文本 [i], “PassWord”, , 假) > 0)
' 调试输出 (分割文本 [i])
分割文本 [i] = 子文本替换 (分割文本 [i], #引号, , , , 真)
分割文本2 = 分割文本 (分割文本 [i], “},{”, )
.计次循环首 (取数组成员数 (分割文本2), j)
分割文本2 [j] = 子文本替换 (子文本替换 (分割文本2 [j], “>[{”, , , , 真), “}]</”, , , , 真)
调试输出 (分割文本2 [j])
编辑框1.加入文本 (分割文本2 [j] + #换行符)
.计次循环尾 ()
.默认
.判断结束
.计次循环尾 ()
调试输出 (“=========完美分割线=======”)
编辑框1.加入文本 (“================” + #换行符)
编辑框2.禁止 = 假
.子程序 _按钮2_被单击
.局部变量 返回, 字节集
.局部变量 返回文本, 文本型
.局部变量 分割文本, 文本型, , "0"
.局部变量 i, 整数型
.局部变量 分割文本2, 文本型, , "0"
.局部变量 j, 整数型
编辑框1.加入文本 (“=========以下是免费12小时VIP=======” + #换行符)
返回 = 网页访问底层 (“http://120.24.231.37:81/XunLeiWebService.asmx”, “POST”, , , , “Content-Type: text/xml;charset=utf-8” + #换行符 + “SOAPAction: http://tempuri.org/GetXunLeiVipList” + #换行符 + “User-Agent: Dalvik/1.6.0 (Linux; U; Android 4.0.4; GT-I9300 Build/IMM76D)”, , , , , , , , , 到字节集 (#VIP列表))
返回文本 = 编码_Utf8到Ansi (返回)
' 调试输出 (返回文本)
分割文本 = 分割文本 (返回文本, “GetXunLeiVipListResult”, )
.计次循环首 (取数组成员数 (分割文本), i)
.判断开始 (寻找文本 (分割文本 [i], “PassWord”, , 假) > 0)
调试输出 (分割文本 [i])
分割文本 [i] = 子文本替换 (分割文本 [i], #引号, , , , 真)
分割文本2 = 分割文本 (分割文本 [i], “},{”, )
.计次循环首 (取数组成员数 (分割文本2), j)
分割文本2 [j] = 子文本替换 (子文本替换 (分割文本2 [j], “>[{”, , , , 真), “}]</”, , , , 真)
调试输出 (分割文本2 [j])
编辑框1.加入文本 (分割文本2 [j] + #换行符)
.计次循环尾 ()
.默认
.判断结束
.计次循环尾 ()
' 调试输出 (编码_Utf8到Ansi (返回))
' 调试输出 (到文本 ())
编辑框1.加入文本 (“=========完美分割线=======” + #换行符)
调试输出 (“================”)
.子程序 _按钮3_被单击
.局部变量 返回, 字节集
.局部变量 返回文本, 文本型
.局部变量 提交内容, 文本型
提交内容 = 子文本替换 (#申请VIP, “iiiidddd”, 编辑框2.内容, , , 真)
返回 = 网页访问底层 (“http://120.24.231.37:81/XunLeiWebService.asmx”, “POST”, , , , “Content-Type: text/xml;charset=utf-8” + #换行符 + “SOAPAction: http://tempuri.org/OneUserNameApply” + #换行符 + “User-Agent: Dalvik/1.6.0 (Linux; U; Android 4.0.4; GT-I9300 Build/IMM76D)”, , , , , , , , , 到字节集 (提交内容))
返回文本 = 编码_Utf8到Ansi (返回)
调试输出 (返回文本)
.如果 (返回文本 ≠ “”)
编辑框1.加入文本 (“申请成功!请查看自己12小时VIP!” + #换行符)
.否则
.如果结束
编辑框2.禁止 = 真
调试输出 (“================”)