【2021.08.24】易语言学习打卡-服务器客户端网络验证学习笔记

2463308417

今天开始打卡记录一下自己学习的动态。
易语言学习了几天，基本的逻辑语法学起来很快。目前正在学易锦1091易语言post的视频，跟着视频学习到屏幕监控这一课了。
马上易语言基础部分就学习完成了，不过总感觉不是非常全面，只能说学了些用到的东西吧！
还有四五节课就开始post部分了，最近感觉自己越来越没有耐心去学习了，也许是天气炎热，
坐久了就枯燥想睡觉。为了勉励自己，所以从今天开始打卡学习。

今天跟着视频学了网络验证，下面分享一下自己的思路：

网络验证：
1.控制端生成卡密
2.把卡密卖给用户
3.用户在软件端进行登录
4.朝着控制端把卡密发送过去
5.控制端验证这张卡密，并返回信息
6.用户端判断返回的信息并决定是否进入软件界面

如何实现？
服务端放在服务器上，客户端生成给用户使用。
服务端生成卡密信息，保存到数据库。
客户端发送信息给服务端，服务端取客户发送的信息数据判断和数据库内数据是否相同

卡密：一连串不规则数组+字母组成的字符串
登录：通过网络传输把卡密发送到服务端
验证：将生成的卡密存储在数据库，等待登录后发送卡密过来进行验证
返回：服务器将验证的结果发送回客户端
判断：客户端判断对发送的结果进行判断

服务端-代码如下：

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_窗口1
变量名	类 型	数组	备 注
服务端	远程服务

子程序名	返回值类型	公开	备 注
_窗口1_创建完毕

判断 (服务端.启动 (8919, &处理函数, 假))
标题 ＝ “启动成功”
标题 ＝ “启动失败”

判断 (打开 (“卡密数据库.edb”, , , , , , ))
标题 ＝ 标题 ＋ “----数据库启动成功”
标题 ＝ 标题 ＋ “----数据库启动失败”

子程序名	返回值类型	公开	备 注
处理函数
参数名	类 型	参考	可空	数组	备 注
消息地址	整数型

变量名	类 型	静态	数组	备 注
消息类型	整数型
请求代码	文本型
请求信息	字节集
数据库的卡密数组	文本型		0
i	整数型
现在的时间	日期时间型
卡时间	整数型

消息类型 ＝ 服务端.取消息类型 (消息地址)
判断 (消息类型 ＝ 0)
' 链接
判断 (消息类型 ＝ 1)
' 断开
判断 (消息类型 ＝ 2)
' 收到消息
服务端.取请求字节集 (消息地址, 请求代码, 请求信息)
计次循环首 (取记录数 (), i)
跳到 (i)
判断 (读 (1) ＝ 到文本 (请求信息))
判断 (读 (“到期时间”) ＝ [1899年12月30日])
现在的时间 ＝ 取现行时间 ()
卡时间 ＝ 读 (“卡时间”)
写 (“到期时间”, 增减时间 (现在的时间, #分钟, 卡时间))
服务端.发送字节集 (请求代码, 到字节集 (“卡密正确”))
跳出循环 ()
判断 (取时间间隔 (取现行时间 (), 读 (“到期时间”), #秒 ) ≥ 1)
服务端.发送字节集 (请求代码, 到字节集 (“卡密到期”))
跳出循环 ()
服务端.发送字节集 (请求代码, 到字节集 (“卡密正确”))
跳出循环 ()




计次循环尾 ()
判断 (消息类型 ＝ -1)
' 出错

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
数字随机数	文本型
小写字母随机数	文本型
大写字母随机数	文本型
位置随机数	整数型
总卡密	文本型
写出卡密	文本型

计次循环首 (到整数 (编辑框1.内容), )
计次循环首 (32, )
置随机数种子 ()
位置随机数 ＝ 取随机数 (1, 3)
判断 (位置随机数 ＝ 1)
数字随机数 ＝ 到文本 (取随机数 (0, 9))
总卡密 ＝ 总卡密 ＋ 数字随机数
判断 (位置随机数 ＝ 2)
大写字母随机数 ＝ 字符 (取随机数 (65, 90))
总卡密 ＝ 总卡密 ＋ 大写字母随机数
判断 (位置随机数 ＝ 3)
小写字母随机数 ＝ 字符 (取随机数 (97, 122))
总卡密 ＝ 总卡密 ＋ 小写字母随机数



计次循环尾 ()
加空记录 ()
写 (“卡密”, 总卡密)
写 (“卡时间”, 到整数 (编辑框2.内容))
写出卡密 ＝ 写出卡密 ＋ 总卡密 ＋ #换行符
总卡密 ＝ “”
计次循环尾 ()
通用对话框1.打开 ()
写到文件 (通用对话框1.文件名, 到字节集 (写出卡密))

子程序名	返回值类型	公开	备 注
_窗口1_将被销毁

关闭 (“卡密数据库.edb”)

i支持库列表	支持库注释
Exmlrpc	远程服务支持库

.版本 2<br /> .支持库 Exmlrpc<br /> <br /> .程序集 窗口程序集_窗口1<br /> .程序集变量 服务端, 远程服务<br /> <br /> .子程序 _窗口1_创建完毕<br /> <br /> .判断开始 (服务端.启动 (8919, &处理函数, 假))<br />     标题 ＝ “启动成功”<br /> .默认<br />     标题 ＝ “启动失败”<br /> .判断结束<br /> <br /> .判断开始 (打开 (“卡密数据库.edb”, , , , , , ))<br />     标题 ＝ 标题 ＋ “----数据库启动成功”<br /> .默认<br />     标题 ＝ 标题 ＋ “----数据库启动失败”<br /> .判断结束<br /> <br /> <br /> .子程序 处理函数<br /> .参数 消息地址, 整数型<br /> .局部变量 消息类型, 整数型<br /> .局部变量 请求代码, 文本型<br /> .局部变量 请求信息, 字节集<br /> .局部变量 数据库的卡密数组, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 现在的时间, 日期时间型<br /> .局部变量 卡时间, 整数型<br /> <br /> 消息类型 ＝ 服务端.取消息类型 (消息地址)<br /> .判断开始 (消息类型 ＝ 0)<br />     ' 链接<br /> .判断 (消息类型 ＝ 1)<br />     ' 断开<br /> .判断 (消息类型 ＝ 2)<br />     ' 收到消息<br />     服务端.取请求字节集 (消息地址, 请求代码, 请求信息)<br />     .计次循环首 (取记录数 (), i)<br />         跳到 (i)<br />         .判断开始 (读 (1) ＝ 到文本 (请求信息))<br />             .判断开始 (读 (“到期时间”) ＝ [1899年12月30日])<br />                 现在的时间 ＝ 取现行时间 ()<br />                 卡时间 ＝ 读 (“卡时间”)<br />                 写 (“到期时间”, 增减时间 (现在的时间, #分钟, 卡时间))<br />                 服务端.发送字节集 (请求代码, 到字节集 (“卡密正确”))<br />                 跳出循环 ()<br />             .判断 (取时间间隔 (取现行时间 (), 读 (“到期时间”), #秒) ≥ 1)<br />                 服务端.发送字节集 (请求代码, 到字节集 (“卡密到期”))<br />                 跳出循环 ()<br />             .默认<br />                 服务端.发送字节集 (请求代码, 到字节集 (“卡密正确”))<br />                 跳出循环 ()<br />             .判断结束<br /> <br />         .默认<br /> <br />         .判断结束<br /> <br />     .计次循环尾 ()<br /> .判断 (消息类型 ＝ -1)<br />     ' 出错<br /> .默认<br /> <br /> .判断结束<br /> <br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 数字随机数, 文本型<br /> .局部变量 小写字母随机数, 文本型<br /> .局部变量 大写字母随机数, 文本型<br /> .局部变量 位置随机数, 整数型<br /> .局部变量 总卡密, 文本型<br /> .局部变量 写出卡密, 文本型<br /> <br /> .计次循环首 (到整数 (编辑框1.内容), )<br />     .计次循环首 (32, )<br />         置随机数种子 ()<br />         位置随机数 ＝ 取随机数 (1, 3)<br />         .判断开始 (位置随机数 ＝ 1)<br />             数字随机数 ＝ 到文本 (取随机数 (0, 9))<br />             总卡密 ＝ 总卡密 ＋ 数字随机数<br />         .判断 (位置随机数 ＝ 2)<br />             大写字母随机数 ＝ 字符 (取随机数 (65, 90))<br />             总卡密 ＝ 总卡密 ＋ 大写字母随机数<br />         .判断 (位置随机数 ＝ 3)<br />             小写字母随机数 ＝ 字符 (取随机数 (97, 122))<br />             总卡密 ＝ 总卡密 ＋ 小写字母随机数<br />         .默认<br /> <br />         .判断结束<br /> <br />     .计次循环尾 ()<br />     加空记录 ()<br />     写 (“卡密”, 总卡密)<br />     写 (“卡时间”, 到整数 (编辑框2.内容))<br />     写出卡密 ＝ 写出卡密 ＋ 总卡密 ＋ #换行符<br />     总卡密 ＝ “”<br /> .计次循环尾 ()<br /> 通用对话框1.打开 ()<br /> 写到文件 (通用对话框1.文件名, 到字节集 (写出卡密))<br /> <br /> .子程序 _窗口1_将被销毁<br /> <br /> 关闭 (“卡密数据库.edb”)

客户端-代码如下：

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_窗口1
变量名	类 型	数组	备 注
客户端	请求客户端

子程序名	返回值类型	公开	备 注
_窗口1_创建完毕

判断 (客户端.连接 (8919, “127.0.0.1”, 真, &处理函数))  ' 真=tcp 准确性高
标题 ＝ “启动成功”
标题 ＝ “启动失败”

子程序名	返回值类型	公开	备 注
处理函数
参数名	类 型	参考	可空	数组	备 注
消息地址	整数型

变量名	类 型	静态	数组	备 注
消息类型	整数型
接收返回的结果	字节集

消息类型 ＝ 客户端.取消息类型 (消息地址)
判断 (消息类型 ＝ 0)
' 断开
判断 (消息类型 ＝ 1)
' 收到消息
判断 (消息类型 ＝ -1)
' 出错

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
接收返回结果	字节集
发送字节集返回值	整数型

发送字节集返回值 ＝ 客户端.同步发送字节集 (到字节集 (编辑框1.内容), 接收返回结果, 1000)
判断 (到文本 (接收返回结果) ＝ “卡密正确”)
调试输出 (“登录成功”)
信息框 (到文本 (接收返回结果), 0, , )

i支持库列表	支持库注释
Exmlrpc	远程服务支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 Exmlrpc<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_窗口1<br /> .程序集变量 客户端, 请求客户端<br /> <br /> .子程序 _窗口1_创建完毕<br /> <br /> .判断开始 (客户端.连接 (8919, “127.0.0.1”, 真, &处理函数))  ' 真=tcp 准确性高<br />     标题 ＝ “启动成功”<br /> .默认<br />     标题 ＝ “启动失败”<br /> .判断结束<br /> <br /> <br /> .子程序 处理函数<br /> .参数 消息地址, 整数型<br /> .局部变量 消息类型, 整数型<br /> .局部变量 接收返回的结果, 字节集<br /> <br /> 消息类型 ＝ 客户端.取消息类型 (消息地址)<br /> .判断开始 (消息类型 ＝ 0)<br />     ' 断开<br /> .判断 (消息类型 ＝ 1)<br />     ' 收到消息<br /> .判断 (消息类型 ＝ -1)<br />     ' 出错<br /> .默认<br /> <br /> .判断结束<br /> <br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 接收返回结果, 字节集<br /> .局部变量 发送字节集返回值, 整数型<br /> <br /> 发送字节集返回值 ＝ 客户端.同步发送字节集 (到字节集 (编辑框1.内容), 接收返回结果, 1000)<br /> .判断开始 (到文本 (接收返回结果) ＝ “卡密正确”)<br />     调试输出 (“登录成功”)<br /> .默认<br />     信息框 (到文本 (接收返回结果), 0, , )<br /> .判断结束

PS：如果有服务器，可以把服务端挂载服务器上，然后吧客户端连接的ip改成服务器ip就可以了。

18595475935

加油啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊

2463308417

18595475935 发表于 2021-8-25 17:25
加油啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊

一起加啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊

mingming

楼主发贴辛苦了，谢谢楼主分享！我觉得易语言吧是注册对了！

祝声

6666666666666666666

cmcc11

这个帖子不回对不起自己！我想我是一天也不能离开易语言吧。

小雷子

这个帖子不回对不起自己！我想我是一天也不能离开易语言吧。

柴星宇

楼主发贴辛苦了，谢谢楼主分享！我觉得易语言吧是注册对了！

清风如水

楼主太厉害了！楼主，我爱你！我觉得易语言吧真是个好地方！

田磊

楼主发贴辛苦了，谢谢楼主分享！我觉得易语言吧是注册对了！