|
楼主 |
发表于 2011-6-5 19:39:59
|
显示全部楼层
四川省广安市
fanfubing 发表于 2011-6-5 19:38
源码都没有怎么知道啊
.版本 2
.支持库 shellEx
.程序集 窗口程序集1
.程序集变量 界面库_窗口, 界面库_窗口, , , 将子类实例化
.程序集变量 柔化标签, 界面库_柔化标签
.程序集变量 信息框, 界面库_信息框
.程序集变量 输入次数, 整数型
.子程序 __启动窗口_创建完毕
界面库_去除调试字样 (“111eyuyan1632126”)
界面库_窗口.创建 (取窗口句柄 (), { 0 }, 真, 真, 真, 真)
柔化标签.创建自标签 (界面库_窗口, 标签1)
柔化标签.创建自标签 (界面库_窗口, 标签2)
柔化标签.创建自标签 (界面库_窗口, 标签3)
柔化标签.创建自标签 (界面库_窗口, 标签4)
柔化标签.创建自标签 (界面库_窗口, 标签5)
柔化标签.创建自标签 (界面库_窗口, 标签6)
用户名编辑框.获取焦点 ()
添加提示 (登陆按钮.取窗口句柄 (), “可以尝试登陆三次,如果验证错误,系统将会自动关闭。 ”, 假, 假)
.子程序 _颜色选择器1_颜色被改变
界面库_全局设置_设置窗口底图_自颜色 (颜色选择器1.颜色)
.子程序 _按钮1_被单击
.如果真 (通用对话框1.打开 ())
界面库_全局设置_设置窗口底图 (读入文件 (通用对话框1.文件名))
.如果真结束
.子程序 _按钮2_被单击
界面库_去除调试字样 (“111eyuyan1632126”) ' 使其编译后不显示警告提示
信息框.创建 (取窗口句柄 (), “关于本程序”, “本登陆窗口借鉴部分网络代码,作者:Believe”, #信息图标, )
.子程序 _按钮3_被单击
界面库_去除调试字样 (“111eyuyan1632126”) ' 使其编译后不显示警告提示
信息框.创建 (取窗口句柄 (), “温馨提示”, “本程序仅供交流学习,请勿作它用!”, #信息图标, 1)
.子程序 _按钮4_被单击
载入 (窗口1, , 假)
.子程序 _标签3_反馈事件, 整数型
.参数 参数一, 整数型
.参数 参数二, 整数型
.子程序 _登陆按钮_被单击
.如果 (用户名编辑框.内容 = “”)
信息框.创建 (取窗口句柄 (), “提醒”, “请输入用户名!!”, #信息图标, )
输入次数 ()
返回 ()
.否则
.如果结束
.如果 (用户名编辑框.内容 = “xxxxxx”)
.如果 (密码编辑框.内容 = “”)
信息框.创建 (取窗口句柄 (), “提醒”, “请输入密码!!”, #信息图标, )
输入次数 ()
返回 ()
.否则
.如果结束
.如果 (密码编辑框.内容 = “xxxxxx”)
_启动窗口.销毁 ()
.判断开始 (编辑框4.内容 = 编辑框5.内容)
信息框 (“验证成功!”, 0, “提示”)
打开 (“LOVE”, , 真, , , , )
.默认
信息框 (“验证码错误!”, 0, “警告”)
结束 ()
.判断结束
.否则
信息框 (“密码错误!”, #信息图标, )
输入次数 ()
.如果结束
.否则
信息框.创建 (取窗口句柄 (), “警告”, “用户名错误!”, #信息图标, )
输入次数 ()
.如果结束
.子程序 输入次数, , , 记录错误输入次数,错误输入3次后,关闭程序
.局部变量 次数, 整数型
输入次数 = 输入次数 + 1
.如果真 (输入次数 ≥ 3)
信息框 (“您还没有权限进入该程序!”, 0 + #错误图标, “警告”)
结束 ()
.如果真结束
返回 ()
.子程序 用户名编辑框_按下某键, , , 目的就是回车键
.参数 键代码, 整数型
.参数 功能键状态, 整数型
.如果真 (键代码 = #回车键)
.如果 (密码编辑框.内容 = “”)
密码编辑框.获取焦点 ()
.否则
_登陆按钮_被单击 ()
.如果结束
.如果真结束
.子程序 密码编辑框_按下某键, 逻辑型, , 回车作用等同于登陆按钮被按下
.参数 键代码, 整数型
.参数 功能键状态, 整数型
.如果真 (键代码 = #回车键)
_登陆按钮_被单击 ()
.如果真结束
.子程序 _取消按钮1_被单击
结束 ()
.子程序 _登陆窗口_可否被关闭, 逻辑型
_取消按钮1_被单击 ()
.子程序 _刷新_被单击
画板1.清除 (0, 0, 画板1.宽度, 画板1.高度)
置随机数种子 ()
画板1.写文本行 (子程序1 ())
画板1.画笔粗细 = 1
.计次循环首 (取随机数 (10, 25), )
画板1.画笔颜色 = 取随机数 (2, 255)
画板1.画直线 (取随机数 (1, 画板1.宽度), 取随机数 (1, 画板1.宽度), 取随机数 (1, 画板1.宽度), 取随机数 (1, 画板1.宽度))
.计次循环尾 ()
.计次循环首 (2000, )
画板1.画点 (取随机数 (1, 200), 取随机数 (1, 200), 取随机数 (1, 255))
.计次循环尾 ()
连续赋值 (假, 编辑框4.禁止, 登陆按钮.禁止)
编辑框4.获取焦点 ()
.子程序 子程序1, 文本型
.局部变量 取的用户, 文本型
.计次循环首 (5, )
取的用户 = 取的用户 + 取文本中间 (“QWRTyuiYUO78PASDKLZXCVNMqw123ertoFGEHJpasdfghjklzxcvbnm45I690”, 取随机数 (1, 62), 1)
.计次循环尾 ()
编辑框5.内容 = 取的用户
返回 (取的用户)
取的用户 = “”
.子程序 _主页分组框1_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
.子程序 _画板1_绘画
.参数 重画区左边, 整数型
.参数 重画区上边, 整数型
.参数 重画区右边, 整数型
.参数 重画区下边, 整数型
画板1.清除 (0, 0, 画板1.宽度, 画板1.高度)
置随机数种子 ()
画板1.写文本行 (子程序1 ())
画板1.画笔粗细 = 1
.计次循环首 (取随机数 (10, 25), )
画板1.画笔颜色 = 取随机数 (2, 255)
画板1.画直线 (取随机数 (1, 画板1.宽度), 取随机数 (1, 画板1.宽度), 取随机数 (1, 画板1.宽度), 取随机数 (1, 画板1.宽度))
.计次循环尾 ()
.计次循环首 (2000, )
画板1.画点 (取随机数 (1, 200), 取随机数 (1, 200), 取随机数 (1, 255))
.计次循环尾 ()
连续赋值 (假, 编辑框4.禁止, 登陆按钮.禁止)
编辑框4.获取焦点 ()
|
|