大漠.键盘 字符录入的问题

煮饭幽火

.版本 2
.支持库 spec

.程序集 窗口程序集_启动窗口
.程序集变量 大漠, 大漠英文版

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

大漠.创建对象 ()
调试输出 (大漠.Ver ())


.子程序 _按钮_输入_被单击
.局部变量 i, 整数型
.局部变量 代码键, 整数型
.局部变量 单个文本, 文本型
.局部变量 大写, 文本型

编辑框_输入框.获取焦点 ()
.计次循环首 (取文本长度 (编辑框_初始数据.内容), i)
    单个文本 ＝ 取文本中间 (编辑框_初始数据.内容, i, 1)
    代码键 ＝ 取代码 (单个文本, )
    调试输出 (代码键)
    .判断开始 (代码键 ≥ 97 且 代码键 ≤ 122)
        大写 ＝ 到大写 (单个文本)
        调试输出 (大写)
        代码键 ＝ 取代码 (大写, )
    .判断 (单个文本 ＝ “@”)
        大漠.KeyDown (#Shift键)
        大漠.KeyDown (50)
        大漠.KeyUp (#Shift键)
        大漠.KeyUp (50)

    .判断 (单个文本 ＝ “.”)
        大漠.KeyPress (190)
    .默认


    .判断结束
    .如果真 (单个文本 ≠ “@” 且 单个文本 ≠ “.”)
        大漠.KeyPress (代码键)
    .如果真结束

    延时 (100)

.计次循环尾 ()

我想把编辑框_初始数据的内容：带有“@”   "."等一类字符录入到编辑框_输入框中，但是总是会有一部分字符随机的录入不从成功，请问是什么问题啊