八零网络验证收费系统含数据加密等模块

易语言 2020-07-15 19:22:12

八零网络验证收费系统含数据加密等模块

.如果真 (编辑框_充值卡.内容 = “” 或 超级列表框卡类.现行选中项 = -1)
信息框 (“必须选择一项可以修改的卡号”, #错误图标, )
返回 ()
.如果真结束
.如果真 (超级列表框卡类.取标题 (超级列表框卡类.现行选中项, 1) ≠ 编辑框_充值卡.内容)
信息框 (“修改失败,请重新选择一张卡后再修改”, #错误图标, )
连续赋值 (“”, 编辑框_充值卡.内容, 编辑框_卡密码.内容, 编辑框_充值时间.内容, 编辑框_充值帐号.内容, 编辑框_备注1.内容)
返回 ()
.如果真结束
.如果真 (到整数 (编辑框_充值时间.内容) = 0)
信息框 (“不能把卡号的时间修改成0”, #错误图标, )
返回 ()
.如果真结束
按钮_修改卡数据.禁止 = 真
tem_ = 到文本 (Post_ (#URL, “data=YO01FA|666|” + admin_pass + “|” + 超级列表框卡类.取标题 (超级列表框卡类.现行选中项, 0) + “|” + 删首尾空 (编辑框_充值时间.内容) + “|” + 删首尾空 (编辑框_充值帐号.内容) + “|” + ??? ())) '
.如果真 (tem_ = “err”)
信息框 (“提交数据失败,管理密码错误”, #错误图标, )
.如果真结束
.如果 (到整数 (tem_) = 8)
连续赋值 (“”, 编辑框_充值时间.内容, 编辑框_充值卡.内容, 编辑框_卡密码.内容, 组合框_卡类型.内容, 编辑框_充值帐号.内容, 编辑框_备注1.内容)
卡号刷新记录数_ (刷新状态_, 假)
信息框 (“ok”, 0, )
.否则
信息框 (“修改数据失败”, #错误图标, )