易语言帐号密码服务器代码,如何用易语言制作一个帐号密码输入和登录功能？...

[e].版本 2

.支持库 iext

登录 (账号, 密码)

.子程序 _超级列表框1_当前表项被改变

到首记录 ()

账号 ＝ 超级列表框1.取标题 (超级列表框1.现行选中项, )

.判断开始 (查找 (读 (“id”) ＝ 删首尾空 (账号)) ＝ 真)

密码 ＝ 读 (“pass”)

.默认

.判断结束

.子程序 登录

.参数 username, 文本型

.参数 password, 文本型

.局部变量 临时文本, 文本型

ShellExecute (0, “open”, 路径, “”, “”, #SW_SHOW)  ' 运行

延时 (1000)

Pass_hwnd ＝ 0

EnumWindows (&子程序1, 0)  ' 枚举

.如果真 (Parent_hwnd ＝ 0)

延时 (1000)

EnumWindows (&子程序1, 0)  ' 枚举

.如果真 (Parent_hwnd ＝ 0)

延时 (1000)

EnumWindows (&子程序1, 0)  ' 枚举

.如果真 (Parent_hwnd ＝ 0)

信息框 (“未找到登陆框！”, #警告图标, )

.如果真结束

.如果真结束

.如果真结束

SendMessage_String (User_hwnd, #wm_settext, 0, username)

临时文本 ＝ #vds

临时文