易语言怎么POST发送封包求下源码 怎么可以识别封包的某些数据例如封包是11XX11怎么识别这个XX 50
2个回答
展开全部
.版本 2
.支持库 spec
.子程序 帐号登陆提交, 文本型
.参数 提交地址, 文本型
.参数 提交数据1, 文本型
.参数 提交数据2, 文本型
.参数 提交数据3, 文本型
.参数 成功关键字, 文本型
.参数 帐号错误文本, 文本型
.参数 密码错误文本, 文本型
.局部变量 局_提交数据, 文本型
.局部变量 局_返回文本, 文本型
局_提交数据 = 提交数据1 + 删全部空 (组合框_帐号.内容) + 提交数据2 + 删全部空 (编辑框_密码.内容) + 提交数据3
局_返回文本 = 到文本 (网页_访问 (提交地址, 1, , , 到字节集 (局_提交数据), )) .判断开始 (寻找文本 (局_返回文本, 成功关键字, , 假) ≠ -1)
返回 (#登陆成功)
.判断 (寻找文本 (局_返回文本, 帐号错误文本, , 假) ≠ -1)
返回 (#帐号错误)
.判断 (寻找文本 (局_返回文本, 密码错误文本, , 假) ≠ -1)
返回 (#密码错误)
.默认
调试输出 (局_返回文本)
.判断结束
返回 (#未知错误)
’用到精易模块。。这是我写登陆器的部分代码,太长。不好粘贴出来
.支持库 spec
.子程序 帐号登陆提交, 文本型
.参数 提交地址, 文本型
.参数 提交数据1, 文本型
.参数 提交数据2, 文本型
.参数 提交数据3, 文本型
.参数 成功关键字, 文本型
.参数 帐号错误文本, 文本型
.参数 密码错误文本, 文本型
.局部变量 局_提交数据, 文本型
.局部变量 局_返回文本, 文本型
局_提交数据 = 提交数据1 + 删全部空 (组合框_帐号.内容) + 提交数据2 + 删全部空 (编辑框_密码.内容) + 提交数据3
局_返回文本 = 到文本 (网页_访问 (提交地址, 1, , , 到字节集 (局_提交数据), )) .判断开始 (寻找文本 (局_返回文本, 成功关键字, , 假) ≠ -1)
返回 (#登陆成功)
.判断 (寻找文本 (局_返回文本, 帐号错误文本, , 假) ≠ -1)
返回 (#帐号错误)
.判断 (寻找文本 (局_返回文本, 密码错误文本, , 假) ≠ -1)
返回 (#密码错误)
.默认
调试输出 (局_返回文本)
.判断结束
返回 (#未知错误)
’用到精易模块。。这是我写登陆器的部分代码,太长。不好粘贴出来
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询