|
发表于 2011-11-1 20:31:30
|
显示全部楼层
广东省珠海市
本帖最后由 leen007 于 2011-11-1 20:46 编辑
[e].版本 2  .支持库 shellEx  .支持库 xplib  .支持库 spec  .支持库 eAPI    .程序集 窗口程序集1  .程序集变量 停止标识, 整数型  .程序集变量 开始标识, 整数型    .子程序 __启动窗口_创建完毕    开始标识 = 注册热键 (取窗口句柄 (), 标签3.取窗口句柄 (), 4, #K键)  停止标识 = 注册热键 (取窗口句柄 (), 标签3.取窗口句柄 (), 4, #T键)  编辑框1.获取焦点 ()  XP风格 (2)      .子程序 _按钮开始_被单击    时钟1.时钟周期 = 到数值 (编辑框1.内容)  .如果 (编辑框2.内容 ≠ “”)      延迟 (到数值 (编辑框1.内容) × 到数值 (编辑框2.内容) + 10)      _按钮停止_被单击 ()  .否则    .如果结束      .子程序 _按钮停止_被单击    时钟1.时钟周期 = 0    .子程序 _时钟1_周期事件  .局部变量 鼠标键位, 整数型    .如果真 (组合框1.现行选中项 = 0)      鼠标键位 = 0  .如果真结束  .如果真 (组合框1.现行选中项 = 1)      鼠标键位 = 1  .如果真结束  .如果真 (组合框1.现行选中项 = 2)      鼠标键位 = 2  .如果真结束  .如果真 (组合框1.现行选中项 = 3)      鼠标键位 = 3  .如果真结束    模拟鼠标点击 (取鼠标水平位置 (), 取鼠标垂直位置 (), 鼠标键位)        .子程序 _标签3_反馈事件, 整数型  .参数 参数一, 整数型  .参数 参数二, 整数型    .如果真 (参数一 = 开始标识)      _按钮开始_被单击 ()  .如果真结束    .如果真 (参数一 = 停止标识)      _按钮停止_被单击 ()  .如果真结束    [/e]
|
|