高手帮助下!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

hanaan

本人新手自己做的CF准心器
但处于好学想设置个热键,热键我已经设置好了是F1开启
但我想在按一下F1就能够关闭就好了,可到了这里就不知道弄了....
高手指点下........  下面是源码




.版本 2
.支持库 shellEx

.程序集 窗口程序集1
.程序集变量 起始位置X, 整数型
.程序集变量 起始位置Y, 整数型
.程序集变量 加粗a, 逻辑型
.程序集变量 加大, 整数型

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

注册热键 (取窗口句柄 (), 标签2.取窗口句柄 (), 0, #F1键)
_资源皮肤 (#_悬浮镂空)
时钟1.时钟周期 ＝ 0
起始位置X ＝ 393
起始位置Y ＝ 295
加大 ＝ 12

.子程序 准星到屏幕, 逻辑型
.参数 窗口句柄, 整数型
.参数 起始位置X, 整数型
.参数 起始位置Y, 整数型
.参数 内容, 文本型, 可空
.参数 字体名称, 文本型, 可空
.参数 字体大小, 整数型, 可空
.参数 颜色, 整数型, 可空
.参数 加粗, 逻辑型, 可空
.参数 倾斜, 逻辑型, 可空
.参数 下划线, 逻辑型, 可空
.局部变量 场景, 整数型
.局部变量 文字, LOGFONT
.局部变量 变量1, 整数型
.局部变量 变量2, 整数型
.局部变量 变量3, 整数型
.局部变量 变量4, 整数型

场景 ＝ 取设备场景_ (0)
.如果真 (是否为空 (字体名称))
    字体名称 ＝ “宋体”
.如果真结束
.如果真 (是否为空 (字体大小))
    字体大小 ＝ 100
.如果真结束
.如果真 (是否为空 (加粗))
    加粗 ＝ 真
.如果真结束
.如果真 (是否为空 (倾斜))
    倾斜 ＝ 假
.如果真结束
.如果真 (是否为空 (下划线))
    下划线 ＝ 假
.如果真结束
.如果真 (是否为空 (颜色))
    颜色 ＝ #红色
.如果真结束
文字.高度 ＝ 字体大小
.如果 (加粗 ＝ 真)
    文字.加粗 ＝ 900
.否则
    文字.加粗 ＝ 0
.如果结束
.如果 (倾斜 ＝ 真)
    文字.斜体 ＝ 1
.否则
    文字.斜体 ＝ 0
.如果结束
.如果 (下划线 ＝ 真)
    文字.下划线 ＝ 1
.否则
    文字.下划线 ＝ 0
.如果结束
文字.零碎工作组合 ＝ 134
文字.字体名称 ＝ 字体名称
变量1 ＝ 使用指定属性创建逻辑字体_ (文字)
变量2 ＝ 选入设备场景_ (场景, 变量1)
变量3 ＝ SetBkMode_ (场景, 1)
变量4 ＝ 设置前景色_ (场景, 颜色)
TextOut_ (场景, 起始位置X, 起始位置Y, 内容, 取文本长度 (内容))
SetBkMode_ (场景, 变量3)
设置前景色_ (场景, 变量4)
选入设备场景_ (场景, 变量2)
删除对象_ (变量1)
释放设备场景_ (窗口句柄, 场景)
返回 (真)



.子程序 _时钟1_周期事件


准星到屏幕 (取窗口句柄 (), 起始位置X, 起始位置Y, “ +”, , 加大, #绿色, 加粗a, , )


.子程序 _按钮1_被单击

时钟1.时钟周期 ＝ 1
加粗a ＝ 假

.子程序 _标签2_反馈事件, 整数型
.参数 参数一, 整数型
.参数 参数二, 整数型

_按钮1_被单击 ()