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

时间:2021-11-29 15:41:46

红色简约网络验证UI界面

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
.版本 2
.支持库 exui
.支持库 spec
.程序集 窗口程序集_启动窗口
.程序集变量 用户名, 文本型
.程序集变量 状态码, 文本型
.子程序 _头像_框架_鼠标左键按下
.参数 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保护开始标志
配置_账号 = 读配置项 (“config.ini”, “root”, “name”, )
配置_密码 = 读配置项 (“config.ini”, “root”, “pwd”, )
状态码 = 读配置项 (“config.ini”, “root”, “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保护开始标志
写配置项 (“config.ini”, “root”, “name”, 登录_输入账号.内容)
写配置项 (“config.ini”, “root”, “pwd”, 登录_输入密码.内容)
写配置项 (“config.ini”, “root”, “StatusCode”, 状态码)
置入代码 ({ 235, 14, 86, 77, 80, 114, 111, 116, 101, 99, 116, 32, 101, 110, 100, 0 }) ' VMP保护结束标志
.子程序 _分类_登录_左键单击
选择夹EX1.现行子夹 = 1
执行_小点 (分类_登录)
.子程序 选择夹渐变, , , 忽略
.参数 目标子夹, 整数型
.局部变量 i, 整数型
.局部变量 现在所在子夹, 整数型
.局部变量 参数_延迟速度, 整数型
现在所在子夹 = 选择夹EX1.现行子夹
参数_延迟速度 = 10
.如果真 (现在所在子夹 = 1) ' --------------渐变隐藏按钮
  .计次循环首 (17, i)
    登录_输入账号.透明度 = 255 - i × 15
    登录_输入密码.透明度 = 255 - i × 15
    分类_登录.透明度 = 255 - i × 15
    延迟 (参数_延迟速度)
    处理事件 ()
  .计次循环尾 ()
.如果真结束
选择夹EX1.现行子夹 = 目标子夹
.如果真 (目标子夹 = 1) ' --------------渐变显示按钮
  .计次循环首 (17, i)
    登录_输入账号.透明度 = i × 15
    登录_输入密码.透明度 = i × 15
    分类_登录.透明度 = i × 15
    延迟 (参数_延迟速度)
    处理事件 ()
  .计次循环尾 ()
  返回 ()
.如果真结束
' -----------------------------------------------------------------------------------------------------------------------------
.如果真 (现在所在子夹 = 1) ' --------------渐变隐藏按钮
  .计次循环首 (17, i)
    注册_输入账号.透明度 = 255 - i × 15
    注册_输入密码.透明度 = 255 - i × 15
    注册_重复输入密码.透明度 = 255 - i × 15
    注册_邮箱地址.透明度 = 255 - i × 15
    分类_注册.透明度 = 255 - i × 15
    延迟 (参数_延迟速度)
    处理事件 ()
  .计次循环尾 ()
.如果真结束
选择夹EX1.现行子夹 = 目标子夹
.如果真 (目标子夹 = 2) ' --------------渐变显示按钮
  .计次循环首 (17, i)
    注册_输入账号.透明度 = i × 15
    注册_输入密码.透明度 = i × 15
    注册_重复输入密码.透明度 = i × 15
    注册_邮箱地址.透明度 = i × 15
    分类_注册.透明度 = i × 15
    延迟 (参数_延迟速度)
    处理事件 ()
  .计次循环尾 ()
  返回 ()
.如果真结束
' -----------------------------------------------------------------------------------------------------------------------------
.子程序 执行_小点
.参数 按钮EX, 按钮EX
.局部变量 按钮居中位置, 整数型
.局部变量 小点居中位置, 整数型
.局部变量 历史_小点位置, 整数型
.局部变量 小点_移动步数, 文本型
.局部变量 向左或向右移动, 逻辑型, , , 假 = 向右  真 = 向左
.局部变量 i
历史_小点位置 = 图片_小点.左边
按钮居中位置 = 按钮EX.左边 + 按钮EX.宽度 ÷ 2
小点居中位置 = 按钮居中位置 - 图片_小点.宽度 ÷ 2
小点_移动步数 = 到文本 (到整数 (小点居中位置 - 历史_小点位置))
.如果 (寻找文本 (小点_移动步数, “-”, , 假) ≠ -1)
  向左或向右移动 = 真
.否则
  向左或向右移动 = 假
.如果结束
.计次循环首 (到整数 (子文本替换 (小点_移动步数, “-”, , , , 真)), i)
  .如果真 (向左或向右移动 = 真)
    图片_小点.移动 (图片_小点.左边 - 1, , , )
  .如果真结束
  .如果真 (向左或向右移动 = 假)
    图片_小点.移动 (图片_小点.左边 + 1, , , )
  .如果真结束
  延迟 (1)
  处理事件 ()
.计次循环尾 ()
.子程序 _分类_注册_左键单击
选择夹EX1.现行子夹 = 2
执行_小点 (分类_注册)
.子程序 _分类_充值_左键单击
选择夹EX1.现行子夹 = 3
执行_小点 (分类_充值)
.子程序 _分类_设置_左键单击
选择夹EX1.现行子夹 = 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, 整数型
.如果真 (修改_现在密码.内容 = “现在密码”)
  修改_现在密码.内容 = “”
.如果真结束
.子程序 _修改_现在密码_焦点信息
.参数 焦点类型, 整数型
.参数 保留参数2, 整数型
.如果真 (焦点类型 = 0)
  .如果真 (修改_现在密码.内容 = “”)
    修改_现在密码.内容 = “现在密码”
  .如果真结束
.如果真结束
.子程序 _修改_新的密码_鼠标左键按下
.参数 xy坐标, 整数型
.参数 wp, 整数型
.如果真 (修改_新的密码.内容 = “新的密码”)
  修改_新的密码.内容 = “”
.如果真结束
.子程序 _修改_新的密码_焦点信息
.参数 焦点类型, 整数型
.参数 保留参数2, 整数型
.如果真 (焦点类型 = 0)
  .如果真 (修改_新的密码.内容 = “”)
    修改_新的密码.内容 = “新的密码”
  .如果真结束
.如果真结束
.子程序 _修改_邮箱地址_鼠标左键按下
.参数 xy坐标, 整数型
.参数 wp, 整数型
.如果真 (修改_邮箱地址.内容 = “邮箱地址”)
  修改_邮箱地址.内容 = “”
.如果真结束
.子程序 _修改_邮箱地址_焦点信息
.参数 焦点类型, 整数型
.参数 保留参数2, 整数型
.如果真 (焦点类型 = 0)
  .如果真 (修改_邮箱地址.内容 = “”)
    修改_邮箱地址.内容 = “邮箱地址”
  .如果真结束
.如果真结束
.子程序 _按钮_登录_左键单击
置入代码 ({ 235, 16, 86, 77, 80, 114, 111, 116, 101, 99, 116, 32, 98, 101, 103, 105, 110, 0 }) ' VMP保护开始标志
xx (“红色简约网络验证UI”)
' 自己写自己的网络验证登录命令
置入代码 ({ 235, 14, 86, 77, 80, 114, 111, 116, 101, 99, 116, 32, 101, 110, 100, 0 }) ' VMP保护结束标志
.子程序 xx
.参数 txt, 文本型
' Taohin_信息框 (2, txt, _启动窗口)
信息框EX (, “告警 :”, , txt, , , , , , , , , )
.子程序 _按钮_注册_左键单击
置入代码 ({ 235, 16, 86, 77, 80, 114, 111, 116, 101, 99, 116, 32, 98, 101, 103, 105, 110, 0 }) ' VMP保护开始标志
' 自己写自己的网络验证注册命令
置入代码 ({ 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保护开始标志
置入代码 ({ 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保护开始标志
置入代码 ({ 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保护开始标志
置入代码 ({ 235, 14, 86, 77, 80, 114, 111, 116, 101, 99, 116, 32, 101, 110, 100, 0 }) ' VMP保护结束标志

运行结果:

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

总结

以上就是这篇文章的全部内容了,希望本文的内容对大家的学习或者工作具有一定的参考学习价值,谢谢大家对服务器之家的支持。如果你想了解更多相关内容请查看下面相关链接