验证码生成源码例程

.版本 2

.程序集 窗口程序集_启动窗口
.程序集变量 验证码, 文本型

.子程序 _生成验证码按钮_被单击

生成验证码 ()

.子程序 生成验证码
.局部变量 i, 整数型
.局部变量 n, 整数型

画板1.清除 (, , , )
置随机数种子 ()
验证码 ＝ 取随机字母 (5)
.计次循环首 (取文本长度 (验证码), i)
    画板1.字体.字体大小 ＝ 取随机数 (20, 50)
    画板1.文本颜色 ＝ 多项选择 (取随机数 (1, 6), #红色, #黑色, #绿色, #青绿, #青蓝, #蓝灰)
    .如果 (i ＝ 1)
        画板1.定位写出 (1, 1, 取文本中间 (验证码, i, 1))
    .否则
        n ＝ n ＋ 40
        画板1.定位写出 (n, 取随机数 (1, 15), 取文本中间 (验证码, i, 1))
    .如果结束
    ' 本源码来自三叶资源网(www.sanye.cx)
.计次循环尾 ()
编辑框1.内容 ＝ 验证码
.计次循环首 (1000, )
    画板1.画点 (取随机数 (1, 192), 取随机数 (1, 192), 取随机数 (1, 192))
.计次循环尾 ()
.计次循环首 (30, )
    画板1.画笔颜色 ＝ 多项选择 (取随机数 (1, 6), #红色, #黑色, #绿色, #青绿, #青蓝, #蓝灰)
    画板1.画直线 (取随机数 (1, 192), 取随机数 (1, 192), 取随机数 (1, 192), 取随机数 (1, 192))
.计次循环尾 ()


.子程序 _提交验证码按钮_被单击

.如果 (编辑框1.内容 ＝ 验证码)
    信息框 (“验证码正确”, 0, , )
.否则
    信息框 (“验证码错误”, 0, , )
.如果结束


.子程序 取随机字母, 文本型
.参数 随机字母数量, 整数型
.局部变量 字母, 文本型
.局部变量 取出文本, 文本型
.局部变量 返回文本, 文本型
.局部变量 i, 整数型

字母 ＝ “abcdefghijklmnopqrstuvwxyz”
.计次循环首 (随机字母数量, i)
    取出文本 ＝ 取文本中间 (字母, 取随机数 (1, 26), 1)
    返回文本 ＝ 返回文本 ＋ 取出文本
.计次循环尾 ()
返回 (返回文本)

.子程序 __启动窗口_创建完毕

@终极易人