1. 注释:自定义接口说明
  2. 注释: 1、 【moshitaigu】太古模式(多选框),返回值:1为勾选 0不选
  3. 注释: 2、 【baojing】 掉线报警接口(多选框),返回值:1勾选 0不选
  4. 注释: 3、 【djy】 按键接口(下拉框) 返回值:可自定。本脚本为时间长短,详见子程序【游戏中】!
  5. 注释: 4、 另外本脚本附件为一个mp3,请将任意mp3格式歌曲改名为【1.mp3】,添加到附件即可!
  6. 注释:注意事项:
  7. 注释: 1、本脚本实现多开刷经验/贡献
  8. 注释: 2、脚本使用按键精灵9 bate2版本编写
  9. 注释: 3、使用时大号当房主,小号开启自动准备。在大号窗口中开启,否则出错!适用小窗口!
  10. 注释:关于:
  11. 注释: 作者Q:501934725
  12. 注释: 完整版脚本请到此下载:http://smallboy.ys168.com
  13. 注释:初始设置
  14. 定义环境变量 moshitaigu
  15. 定义环境变量 h
  16. 注释:==========================================================主程序(必要检测)
  17. 调用 找窗口()
  18. 延时 200 毫秒
  19. 调用 窗口移动到左上角()
  20. 延时 200 毫秒
  21. 调用 获取定点()
  22. 延时 200 毫秒
  23. 注释:==========================================================主程序结束(必要必要检测)
  24. 注释:…………………………………………………………………………………
  25. 调用 Window.Active(JB1)
  26. 延时 500 毫秒
  27. 注释:==========================================================主程序
  28. 标记 游戏开始
  29. 注释:检测游戏中
  30. 如果点 (692 + Ux,586 + Uy) 的颜色等于 "FBE7E1" 则
  31.     调用 游戏中x()
  32. 否则
  33. 条件结束
  34. 延时 100 毫秒
  35. 注释:检测房间中
  36. 如果点 (725 + Ux,15 + Uy) 的颜色等于 "E7DEE1" 则
  37.     调用 房间中x()
  38. 否则
  39. 条件结束
  40. 延时 100 毫秒
  41. 注释:检测房间(准备暗)
  42. 如果点 (725 + Ux,15 + Uy) 的颜色等于 "736F70" 则
  43.     调用 房间中x()
  44. 否则
  45. 条件结束
  46. 注释:检测返回
  47. 延时 100 毫秒
  48. 如果点 (210 + Ux,151 + Uy) 的颜色等于 "F7FF" 则
  49.     调用 返回x()
  50. 否则
  51. 条件结束
  52. 注释:奖励(暗)
  53. 延时 100 毫秒
  54. 如果点 (519 + Ux,745 + Uy) 的颜色等于 "6337D" 则
  55.     调用 房间中x()
  56. 否则
  57. 条件结束
  58. 延时 100 毫秒
  59. 注释:检测房间(贡献暗)
  60. 如果点 (725 + Ux,16 + Uy) 的颜色等于 "726D6F" 则
  61.     调用 房间中x()
  62. 条件结束
  63. 注释:掉线检测
  64. 如果 Form1.baojing.Value = 1 则
  65.     调用 掉线检测x()
  66. 条件结束
  67. 延时 100 毫秒
  68. 跳转到标记 游戏开始
  69. 注释:===========================================================主程序结束
  70. 注释:子程序
  71. 子程序 找窗口()
  72.     注释:下面这句是遍历符合窗口标题("记事本")的句柄保存到数组(HwndEx)里
  73.     令 HwndEx = Window.Search("QQ炫舞")
  74.     注释:下面这句用于分割字符串,将获得的句柄组分割
  75.     令 MyArray = Split(HwndEx,"|")
  76.     如果 UBound(MyArray) >= 0 则
  77.         令 h = 0
  78.         令 i = 0
  79.         令 shu = UBound(MyArray)
  80.         循环 UBound(MyArray) 次
  81.             注释:下面将字符串转换成数值
  82.             令 h = h + 1
  83.             如果 h = 1 则
  84.                 令 JB1 = MyArray(i)
  85.             条件结束
  86.             如果 h = 2 则
  87.                 令 JB2 = MyArray(i + 1)
  88.             条件结束
  89.             如果 h = 3 则
  90.                 令 JB3 = MyArray(i + 2)
  91.             条件结束
  92.             如果 h = 4 则
  93.                 令 JB4 = MyArray(i + 3)
  94.             条件结束
  95.             如果 h = 5 则
  96.                 令 JB5 = MyArray(i + 4)
  97.             条件结束
  98.             如果 h = 6 则
  99.                 令 JB6 = MyArray(i + 5)
  100.             条件结束