.版本 2
.程序集 窗口程序集_启动窗口
.程序集变量 文本组, 文本型, , "0"
.程序集变量 文本行, 整数型
.程序集变量 F2
.子程序 __启动窗口_创建完毕
编辑框1.是否允许多行 = 真
清除剪辑板 ()
文本行 = 0
.子程序 _按钮1_被单击
.如果真 (编辑框1.内容 = “”)
返回 ()
.如果真结束
文本组 = 分割文本 (编辑框1.内容, #换行符, )
文本行 = 文本行 + 1
.如果真 (文本行 > 取数组成员数 (文本组))
文本行 = 1
.如果真结束
置剪辑板文本 (文本组 [文本行])
输出调试文本 (取剪辑板文本 ())
F2 = 注册热键 (取窗口句柄 (), 标签1.取窗口句柄 (), 0, #F2键)
.子程序 注册热键
.参数 参数一, 整数型
.参数 参数二, 整数型
.如果真 (参数一 = F2)
_按钮1_被单击 ()
.如果真结束
.程序集 窗口程序集_启动窗口
.程序集变量 文本组, 文本型, , "0"
.程序集变量 文本行, 整数型
.程序集变量 F2
.子程序 __启动窗口_创建完毕
编辑框1.是否允许多行 = 真
清除剪辑板 ()
文本行 = 0
.子程序 _按钮1_被单击
.如果真 (编辑框1.内容 = “”)
返回 ()
.如果真结束
文本组 = 分割文本 (编辑框1.内容, #换行符, )
文本行 = 文本行 + 1
.如果真 (文本行 > 取数组成员数 (文本组))
文本行 = 1
.如果真结束
置剪辑板文本 (文本组 [文本行])
输出调试文本 (取剪辑板文本 ())
F2 = 注册热键 (取窗口句柄 (), 标签1.取窗口句柄 (), 0, #F2键)
.子程序 注册热键
.参数 参数一, 整数型
.参数 参数二, 整数型
.如果真 (参数一 = F2)
_按钮1_被单击 ()
.如果真结束

防空地雷












