.版本 2
.支持库 spec
.程序集 窗口程序集1
.程序集变量 a, 文本型
.程序集变量 密码, 文本型
.子程序 _编辑框1_字符输入, 整数型
.参数 字符代码, 整数型
.如果真 (字符代码 ≠ 8 且 字符代码 ≠ 13)
a = 字符 (字符代码)
.如果真 (a ≠ “●”)
密码 = 取文本左边 (密码, 编辑框1.起始选择位置) + a + 取文本右边 (密码, 取文本长度 (密码) - 编辑框1.起始选择位置)
编辑框1.内容 = 子文本替换 (编辑框1.内容, a, , , , 真)
处理事件 ()
编辑框1.加入文本 (“●”)
调试输出 (密码)
.如果真结束
.如果真结束