A. 易语言网络注册登录
三次握手就搞定了。
先把分上了,给你写个!
刚才写的代码,不是很完善,.
.版本 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=&t=exs_ftn_download&code=d6d96612
B. 易语言怎么做一个网站登录器
1、打开易语言编辑软件,然后新建一个Windows窗口程序
2、调整窗口大小并画上一些组件,如图。
版本2
.如果真(编辑框1.内容=“”)
信息框(“请输入账号!”,0,)
返回()
.如果真结束
.如果真(编辑框2.内容=“”)
信息框(“请输入密码!”,0,)
返回()
.如果真结束
.如果真(编辑框1.内容=“123456”且编辑框2.内容=“654321”)
信息框(“登陆成功!”,0,)
结束()
5、点击上方三角形按钮调试运行程序。
这样只有账号是 123456 且密码是 654321才能登陆成功,否则没办法登陆成功的。
详细图文教程:
http://jingyan..com/article/5d6edee22a448699eadeeccb.html
易语言制作简单的一个登陆器 网络经验
C. 如何用易语言打开某个网站,并自动输入账号密码登陆
楼主你好
可以用超文本浏览框打开,然后用精易模块的网页填表实现
精易模块网页填表的填表教程可以在网络上找~~~~~~~~~
D. 易语言如何实现软件登录网页,并取网页每个页面的源代码,取出想要的信息到超级列表框,求大哥帮帮忙!
先用POST取到登陆的那个提交信息,也就是账号的信息,实现登陆!登陆后获取网页源码! 然后在用正则取需要的信息,并显示在超级列表框中!