易语言EXUI支持库制作红色简约网络验证UI界面的代码

  

<强>红色简约网络验证UI界面

        第2版。本   。支持库exui   。支持库规范   。程序集窗口程序集_启动窗口   。程序集变量用户名,文本型   。程序集变量状态码,文本型   ,子程序_头像_框架_鼠标左键按下   。参数xy坐标,整数型   。参数wp,整数型   _启动窗口。发送信息(161 2 0)   ,子程序_选择夹EX1_鼠标左键按下   。参数xy坐标,整数型   。参数wp,整数型   _启动窗口。发送信息(161 2 0)   ,子程序_登录_输入账号_鼠标左键按下   。参数xy坐标,整数型   。参数wp,整数型   。如果真(登录_输入账号。内容="输入账号”)   登录_输入账号。内容=" "   。如果真结束   ,子程序_登录_输入密码_鼠标左键按下   。参数xy坐标,整数型   。参数wp,整数型   。如果真(登录_输入密码。内容="输入密码”)   登录_输入密码。内容=" "   。如果真结束   ,子程序_登录_输入账号_焦点信息   。参数焦点类型,整数型   。参数保留参数2,整数型   。如果真(焦点类型=0)   。如果真(登录_输入账号。内容=" ")   登录_输入账号。内容="输入账号”   。如果真结束   。如果真结束   ,子程序_登录_输入密码_焦点信息   。参数焦点类型,整数型   。参数保留参数2,整数型   。如果真(焦点类型=0)   。如果真(登录_输入密码。内容=" ")   登录_输入密码。内容="输入密码”   。如果真结束   。如果真结束   ,子程序_控制_关闭_左键单击   配置_保存配置()   结束()   ,子程序配置_读取配置   。局部变量配置_账号,文本型   。局部变量配置_密码,文本型   置入代码({235,16,86,77,80,114,111,116,101,99,116年,32岁,98年,101年,103年,105年,110年,0})“VMP保护开始标志   配置_账号=读配置项(“配置。ini”、“根”、“名称”)   配置_密码=读配置项(“配置。ini”、“根”、“pwd”)   状态码=读配置项(“配置。ini”、“根”、“StatusCode”)   登录_输入账号。内容=配置_账号   登录_输入密码。内容=配置_密码   置入代码({235,14日,86,77,80,114,111,116,101,99,116年,32岁,101年,110年,100年,0})“VMP保护结束标志   ,子程序配置_保存配置   置入代码({235,16,86,77,80,114,111,116,101,99,116年,32岁,98年,101年,103年,105年,110年,0})“VMP保护开始标志   写配置项(“配置。ini”、“根”、“名称”,登录_输入账号。内容)   写配置项(“配置。ini”、“根”、“pwd”,登录_输入密码。内容)   写配置项(“配置。ini”、“根”、“StatusCode”状态码)   置入代码({235,14日,86,77,80,114,111,116,101,99,116年,32岁,101年,110年,100年,0})“VMP保护结束标志   ,子程序_分类_登录_左键单击   选择夹例1现行子夹=1   执行_小点(分类_登录)   ,子程序选择夹渐变,,,忽略   。参数目标子夹,整数型   我。局部变量,整数型   。局部变量现在所在子夹,整数型   。局部变量参数_延迟速度,整数型   现在所在子夹=选择夹EX1。现行子夹   参数_延迟速度=10   。如果真(现在所在子夹=1)“- - - - - - - - - - - - - - - -渐变隐藏按钮   计。次循环首(17,我)   登录_输入账号。透明度=255 -我×15   登录_输入密码。透明度=255 -我×15   分类_登录。透明度=255 -我×15   延迟(参数_延迟速度)   处理事件()   计。次循环尾()   。如果真结束   选择夹例1现行子夹=目标子夹   。如果真(目标子夹=1)“- - - - - - - - - - - - - - - -渐变显示按钮   计。次循环首(17,我)   登录_输入账号。透明度=我×15   登录_输入密码。透明度=我×15   分类_登录。透明度=我×15   延迟(参数_延迟速度)   处理事件()   计。次循环尾()   返回()   。如果真结束   “- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   。如果真(现在所在子夹=1)“- - - - - - - - - - - - - - - -渐变隐藏按钮   计。次循环首(17,我)   注册_输入账号。透明度=255 -我×15   注册_输入密码。透明度=255 -我×15   注册_重复输入密码。透明度=255 -我×15   注册_邮箱地址。透明度=255 -我×15   分类_注册。透明度=255 -我×15   延迟(参数_延迟速度)   处理事件()   计。次循环尾()   。如果真结束   选择夹例1现行子夹=目标子夹   。如果真(目标子夹=2)“- - - - - - - - - - - - - - - -渐变显示按钮   计。次循环首(17,我)   注册_输入账号。透明度=我×15   注册_输入密码。透明度=我×15   注册_重复输入密码。透明度=我×15   注册_邮箱地址。透明度=我×15   分类_注册。透明度=我×15   延迟(参数_延迟速度)   处理事件()   计。次循环尾()   返回()   。如果真结束   “- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   ,子程序执行_小点   。参数按钮,按钮   。局部变量按钮居中位置,整数型   。局部变量小点居中位置,整数型   。局部变量历史_小点位置,整数型   。局部变量小点_移动步数,文本型   。局部变量向左或向右移动,逻辑型,,,假=向右真=向左   我。局部变量   历史_小点位置=图片_小点。左边   按钮居中位置=按钮。左边+按钮。宽度÷2   小点居中位置=按钮居中位置-图片_小点。宽度÷2   小点_移动步数=到文本(到整数(小点居中位置,历史_小点位置))   。如果(寻找文本(小点_移动步数,“-”,假)≠1)   向左或向右移动=真   否,则   向左或向右移动=假   。如果结束   计。次循环首(到整数(子文本替换(小点_移动步数,“-”,,,,真)),我)   。如果真(向左或向右移动=真)   图片_小点。移动(图片_小点。左边- 1,,,)   。如果真结束   。如果真(向左或向右移动=假)   图片_小点。移动(图片_小点。左边+ 1,,,)   。如果真结束   延迟(1)   处理事件()   计。次循环尾()   ,子程序_分类_注册_左键单击   选择夹例1现行子夹=2   执行_小点(分类_注册)   ,子程序_分类_充值_左键单击   选择夹例1现行子夹=3   执行_小点(分类_充值)   ,子程序_分类_设置_左键单击   选择夹例1现行子夹=4   执行_小点(分类_设置)   ,子程序_注册_输入账号_鼠标左键按下   。参数xy坐标,整数型   。参数wp,整数型   。如果真(注册_输入账号。内容="输入账号”)   注册_输入账号。内容=" "   。如果真结束   ,子程序_注册_输入密码_鼠标左键按下   。参数xy坐标,整数型   。参数wp,整数型   。如果真(注册_输入密码。内容="输入密码”)   注册_输入密码。内容=" "   。如果真结束   ,子程序_注册_重复输入密码_鼠标左键按下   。参数xy坐标,整数型   。参数wp,整数型   。如果真(注册_重复输入密码。内容="重复输入密码”)   注册_重复输入密码。内容=" "   。如果真结束   ,子程序_注册_邮箱地址_鼠标左键按下   。参数xy坐标,整数型   。参数wp,整数型   。如果真(注册_邮箱地址。内容="邮箱地址”)   注册_邮箱地址。内容=" "   。如果真结束   ,子程序_注册_输入账号_焦点信息   。参数焦点类型,整数型   。参数保留参数2,整数型   。如果真(焦点类型=0)   。如果真(注册_输入账号。内容=" ")   注册_输入账号。内容="输入账号”   。如果真结束   。如果真结束   ,子程序_注册_输入密码_焦点信息   。参数焦点类型,整数型   。参数保留参数2,整数型   。如果真(焦点类型=0)   。如果真(注册_输入密码。内容=" ")   注册_输入密码。内容="输入密码”   。如果真结束   。如果真结束   ,子程序_注册_重复输入密码_焦点信息   。参数焦点类型,整数型   。参数保留参数2,整数型   。如果真(焦点类型=0)   。如果真(注册_重复输入密码。内容=" ")   注册_重复输入密码。内容="重复输入密码”   。如果真结束   。如果真结束   ,子程序_注册_邮箱地址_焦点信息   。参数焦点类型,整数型   。参数保留参数2,整数型   。如果真(焦点类型=0)   。如果真(注册_邮箱地址。内容=" ")   注册_邮箱地址。内容="邮箱地址”   。如果真结束   。如果真结束   ,子程序_充值_充值账号_鼠标左键按下   。参数xy坐标,整数型   。参数wp,整数型   (充。如果真值_充值账号。内容="充值账号”)   充值_充值账号。内容=" "   。如果真结束   ,子程序_充值_充值卡密_鼠标左键按下   。参数xy坐标,整数型   。参数wp,整数型   (充。如果真值_充值卡密。内容="充值卡密”)   充值_充值卡密。内容=" "   。如果真结束   ,子程序_充值_推荐人_鼠标左键按下   。参数xy坐标,整数型   。参数wp,整数型   (充。如果真值_推荐人。内容="推荐人*可空”)   充值_推荐人。内容=" "   。如果真结束   ,子程序_充值_充值账号_焦点信息   。参数焦点类型,整数型   。参数保留参数2,整数型   。如果真(焦点类型=0)   (充。如果真值_充值账号。内容=" ")   充值_充值账号。内容="充值账号”   。如果真结束   。如果真结束   ,子程序_充值_充值卡密_焦点信息   。参数焦点类型,整数型   。参数保留参数2,整数型   。如果真(焦点类型=0)   (充。如果真值_充值卡密。内容=" ")   充值_充值卡密。内容="充值卡密”   。如果真结束   。如果真结束   ,子程序_充值_推荐人_焦点信息   。参数焦点类型,整数型   。参数保留参数2,整数型   。如果真(焦点类型=0)   (充。如果真值_推荐人。内容=" ")   充值_推荐人。内容="推荐人*可空”   。如果真结束   。如果真结束   ,子程序_修改_用户账号_鼠标左键按下   。参数xy坐标,整数型   。参数wp,整数型   。如果真(修改_用户账号。内容="用户账号*必填”)   修改_用户账号。内容=" "   。如果真结束   ,子程序_修改_用户账号_焦点信息   。参数焦点类型,整数型   。参数保留参数2,整数型   。如果真(焦点类型=0)   。如果真(修改_用户账号。内容=" ")   修改_用户账号。内容="用户账号*必填”   。如果真结束   。如果真结束   ,子程序_修改_现在密码_鼠标左键按下   。参数xy坐标,整数型   。参数wp,整数型   。如果真(修改_现在密码。内容="现在密码”)   修改_现在密码。内容=" "   。如果真结束   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null

易语言EXUI支持库制作红色简约网络验证UI界面的代码