|
发表于 2010-4-3 12:55:37
|
显示全部楼层
吉林省长春市
代码改了一下
实现了你说的一个功能- .版本 2
- .支持库 shellEx
- .程序集 窗口程序集1
- .程序集变量 当前水平位置, 整数型
- .程序集变量 当前垂直位置, 整数型
- .程序集变量 判断左右, 逻辑型, , , '真右 假左
- .程序集变量 a, 整数型
- .子程序 _时钟1_周期事件
- .如果真 (取鼠标垂直位置 () ≠ 当前垂直位置)
- 判断左右 = 真
- a = 0
- 当前水平位置 = 取鼠标水平位置 ()
- 当前垂直位置 = 取鼠标垂直位置 ()
- .如果真结束
- a = a + 1
- .如果 (判断左右 = 真)
- 当前水平位置 = 当前水平位置 + 1
- SetCursorPos (当前水平位置, 当前垂直位置)
- 模拟按键 (#A键, 假)
- 模拟按键 (#D键, 真)
- .如果真 (a ≥ 20)
- a = 0
- 判断左右 = 假
- .如果真结束
- .否则
- 当前水平位置 = 当前水平位置 - 1
- SetCursorPos (当前水平位置, 当前垂直位置)
- 模拟按键 (#D键, 假)
- 模拟按键 (#A键, 真)
- .如果真 (a ≥ 20)
- a = 0
- 判断左右 = 真
- .如果真结束
- .如果结束
- .子程序 __启动窗口_创建完毕
- 注册热键 (取窗口句柄 (), 标签1.取窗口句柄 (), 0, #F1键)
- 注册热键 (取窗口句柄 (), 标签1.取窗口句柄 (), 0, #F2键)
- 注册热键 (取窗口句柄 (), 标签1.取窗口句柄 (), 0, #F3键)
- 当前水平位置 = 取鼠标水平位置 ()
- 当前垂直位置 = 取鼠标垂直位置 ()
- .子程序 _标签1_反馈事件, 整数型
- .参数 参数一, 整数型
- .参数 参数二, 整数型
- .如果真 (参数一 = 33001)
- 模拟按键 (#D键, 假)
- 模拟按键 (#A键, 假)
- 判断左右 = 真
- a = 0
- 时钟2.时钟周期 = 0
- 时钟1.时钟周期 = 125
- .如果真结束
- .如果真 (参数一 = 33002)
- 时钟1.时钟周期 = 0
- 时钟2.时钟周期 = 125
- .如果真结束
- .如果真 (参数一 = 33003)
- 模拟按键 (#D键, 假)
- 模拟按键 (#A键, 假)
- 时钟1.时钟周期 = 0
- 时钟2.时钟周期 = 0
- .如果真结束
- .子程序 _时钟2_周期事件
- .如果 (判断左右 = 真)
- 模拟按键 (#A键, 假)
- 模拟按键 (#D键, 真)
- .否则
- 模拟按键 (#D键, 假)
- 模拟按键 (#A键, 真)
- .如果结束
复制代码 |
|