求助

q22123

.版本 2
        .判断开始 (编辑框4.内容 ＝ 编辑框5.内容)
            信息框 (“验证成功！”, 0, “提示”)
            打开 (“LOVE”, , 真, , , , )
        .默认
            信息框 (“验证码错误!”, 0, “警告”)
            结束 ()
        .判断结束
为什么输入正确用户名与密码与验证码后打不开LOVE窗口
不输入验证码也不出现提示

う网淅乄

源码都没有怎么知道啊{:3_244:}

q22123

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.获取焦点 ()

exit11

给完整的代码,这个看不懂

fzb0225

你的  编辑框4.内容 ＝ 编辑框5.内容 在那个窗口里？ 最好把源码附件传上来 要不你就只把有问题的那一块做个附件传上来我们看看

fzb0225

对了 你是载入本程序的窗口么 如果是的话  你把打开 (“LOVE”, , 真, , , , )    换成   载入 (窗口1, , 真)试试

小马过河

如果（密码编辑框。内容=“******” 且 账号编辑框。内容=“******”且编辑框4。内容=编辑框5。内容）
运行（）
不行吗？
{:3_226:}

精益俠

简单的登陆密码验证.zip (8.45 KB, 下载次数: 4)

2011-6-6 13:25 上传

点击文件名下载附件 给你个源码看看，希望能帮助你。