易语言网络注册登录

易语言网络注册登录

三次握手就搞定了。先把分上了，给你写个！ 刚才写的代码，不是很完善，..版本 2.程序集 窗口程序集1.子程序 __启动窗口_创建完毕.判断开始 (文件是否存在 (取运行目录 () ＋ “\data.edb”) ＝ 假) 写到文件 (取运行目录 () ＋ “\data.edb”, #初始数据库).默认.判断结束打开 (取运行目录 () ＋ “\data.edb”, , , , , , ).子程序 _按钮1_被单击.判断开始 (客户1.连接 (“127.0.0.1”, 19730) ＝ 真) .判断开始 (用户编辑框.内容 ≠ “”) .判断开始 (密码编辑框.内容 ≠ “”) 客户1.发送数据 (“登陆|&|!!” ＋ 用户编辑框.内容 ＋ “|&|!!” ＋ 密码编辑框.内容) .默认 .判断结束 .默认 .判断结束.默认.判断结束.子程序 _服务器1_数据到达.局部变量 返回文本, 文本型.局部变量 操作代码, 文本型返回文本 ＝ 到文本 (服务器1.取回数据 ())操作代码 ＝ 取文本左边 (返回文本, 9).判断开始 (操作代码 ＝ “登陆|&|!!”) ' 从这里开始判断，操作是登陆还是注册。这里判断为登陆！ 信息框 (返回文本, 0, ) 登陆 (返回文本).默认.判断结束.判断开始 (操作代码 ＝ “注册|&|!!”) ' 这里是注册操作的判断条件 注册 (返回文本).默认.判断结束.子程序 注册.参数 数据包, 文本型.局部变量 数组变量, 文本型, , "0".局部变量 注册用户名, 文本型.局部变量 注册密码, 文本型.局部变量 注册邮箱, 文本型.局部变量 循环数, 整数型.局部变量 可以注册, 逻辑型.局部变量 用户名, 文本型.局部变量 密码, 文本型.局部变量 邮箱, 文本型可以注册 ＝ 假循环数 ＝ 取记录数 ()数组变量 ＝ 分割文本 (数据包, “|&|!!”, )注册用户名 ＝ 数组变量 [2]注册密码 ＝ 数组变量 [3]注册邮箱 ＝ 数组变量 [4]到首记录 ().计次循环首 (循环数, ) 用户名 ＝ 读 (“用户”) 密码 ＝ 读 (“密码”) 邮箱 ＝ 读 (“邮箱”) .判断开始 (用户名 ＋ 密码 ＋ 邮箱 ≠ 注册用户名 ＋ 注册密码 ＋ 注册邮箱) 可以注册 ＝ 真 跳出循环 () .默认 跳过 () .判断结束.计次循环尾 ().判断开始 (可以注册 ＝ 真) 加空记录 () 写 (“用户”, 注册用户名) 写 (“密码”, 注册密码) 写 (“邮箱”, 注册邮箱) 服务器1.发送数据 (服务器1.取回客户 (), “注册成功!”, ).默认.判断结束.判断开始 (可以注册 ＝ 假) 服务器1.发送数据 (服务器1.取回客户 (), “有了!”, ).默认.判断结束.子程序 登陆, , , 验证登陆.参数 待处理数据, 文本型.局部变量 登陆用户, 文本型.局部变量 用户密码, 文本型.局部变量 数组, 文本型, , "0".局部变量 循环, 整数型.局部变量 数据库_用户, 文本型.局部变量 数据库_密码, 文本型.局部变量 记录数, 整数型.局部变量 以读取数, 整数型.局部变量 验证标签, 逻辑型.局部变量 验证邮箱, 文本型.局部变量 数据库_邮箱, 文本型记录数 ＝ 取记录数 ()验证标签 ＝ 假数组 ＝ 分割文本 (待处理数据, “|&|!!”, )登陆用户 ＝ 数组 [2]用户密码 ＝ 数组 [3]到首记录 ().计次循环首 (记录数, 以读取数) 数据库_用户 ＝ 读 (“用户”) 数据库_密码 ＝ 读 (“密码”) 数据库_邮箱 ＝ 读 (“邮箱”) .判断开始 (数据库_用户 ＋ 数据库_密码 ＝ 登陆用户 ＋ 用户密码) 验证标签 ＝ 真 跳出循环 () .默认 跳过 () .判断结束.计次循环尾 ().判断开始 (验证标签 ＝ 真) 服务器1.发送数据 (服务器1.取回客户 (), “登陆成功!”, ).默认 服务器1.发送数据 (服务器1.取回客户 (), “登陆失败!”, ).判断结束.子程序 _客户1_数据到达, , , 反馈登陆信息.判断开始 (到文本 (客户1.取回数据 ()) ＝ “登陆成功!”) 信息框 (“来自服务器的消息：登陆成功!”, 0, ).默认.判断结束.判断开始 (到文本 (客户1.取回数据 ()) ＝ “登陆失败!”) 信息框 (“来自服务器的消息：登陆失败!”, 0, ).默认.判断结束' ==============================================以上为登陆操作，下面是注册的=======================.判断开始 (到文本 (客户1.取回数据 ()) ＝ “有了!”) 信息框 (“来自服务器的消息：欲注册的用户已经存在!”, 0, ).默认.判断结束.判断开始 (到文本 (客户1.取回数据 ()) ＝ “注册成功!”) 信息框 (“来自服务器的消息：注册成功!”, 0, ).默认.判断结束.子程序 _按钮2_被单击, , , 客户1进行数据操作.局部变量 注册数据包, 文本型, , , 这是发送注册信息的完整的变量.局部变量 分割标签, 文本型, , , 将几个数据属性（用户、密码、邮箱）分开以保证服务器区别的特殊文本.局部变量 用户, 文本型.局部变量 密码, 文本型.局部变量 邮箱, 文本型分割标签 ＝ “|&|!!”.判断开始 (编辑框3.内容 ≠ “”) 用户 ＝ 编辑框3.内容 .判断开始 (编辑框4.内容 ≠ “”) .判断开始 (编辑框5.内容 ≠ “”) .判断开始 (编辑框6.内容 ≠ “”) 邮箱 ＝ 编辑框6.内容 .判断开始 (编辑框4.内容 ＝ 编辑框5.内容) 密码 ＝ 编辑框4.内容 .默认 .判断结束 .默认 .判断结束 .默认 .判断结束 .默认 .判断结束.默认.判断结束注册数据包 ＝ “注册|&|!!” ＋ 用户 ＋ 分割标签 ＋ 密码 ＋ 分割标签 ＋ 邮箱客户1.连接 (“127.0.0.1”, 19730)客户1.发送数据 (注册数据包)下载地址http://mail.qq.com/cgi-bin/ftnExs_download?k=5c36643910fbcecdc2d585291036031d54575d585403520249070708571b05055352495b5702501f075554010557060701035c5a363531034a536404&t=exs_ftn_download&code=d6d96612