- (语句无法识别,可能有错误): /*接口:
- (语句无法识别,可能有错误): 【Hao】下拉框;1号~6号分别对应1—6
- 【B】输入框;(送花的数量!)
- (语句无法识别,可能有错误): ★9.51.11790正式版编写!★
- 更新:()
- (语句无法识别,可能有错误): 1、修复报错、支持win8! 2013.2.16
- 关于()
- 作者Q:501934725()
- 完整版脚本请到此下载:http()
- 注释:smallboy.ys168.com
- (语句无法识别,可能有错误): */
- 注释:Cs用来计数
- 令 Cs = 0
- 调用 找窗口()
- 调用 确定起始点坐标()
- 注释:用来得到开始与结束的时间差(运行了多少时间)
- 令 time1 = Sys.GetTime()
- 注释:===============================================================主程序
- 标记 主程序
- 如果 dx = 1024 则
- 调用 大窗口()
- 条件结束
- 如果 dx = 800 则
- 调用 小窗口()
- 条件结束
- 跳转到标记 主程序
- 注释:===============================================================子程序
- 子程序 找窗口()
- 注释:利用遍历窗口的方法找到游戏窗口并把找到的第一个窗口设为操作窗口
- 令 HwndEx = Window.Search("QQ炫舞")
- 令 MyArray = Split(HwndEx,"|")
- 如果 UBound(MyArray) >= 0 则
- 令 h = 0
- 令 i = 0
- 令 shu = UBound(MyArray)
- 循环 UBound(MyArray) 次
- 令 h = h + 1
- 如果 h = 1 则
- 令 JB1 = MyArray(i)
- 条件结束
- (语句无法识别,可能有错误): /*该游戏只需要得到一个窗口即可,如果要得到多个相同标题的游戏可以添加以下代码。
- JB1为第一个窗口,JB2为第二个,以此类推!()
- 如果 h = 2 则
- 令 JB2 = MyArray(i + 1)
- 条件结束
- 如果 h = 3 则
- 令 JB3 = MyArray(i + 2)
- 条件结束
- 如果 h = 4 则
- 令 JB4 = MyArray(i + 3)
- 条件结束
- 如果 h = 5 则
- 令 JB5 = MyArray(i + 4)
- 条件结束
- 如果 h = 6 则
- 令 JB6 = MyArray(i + 5)
- (语句无法识别,可能有错误): End If*/
- 循环结束
- 条件结束
- 向调试窗口输出:JB1
- 如果 JB1 = "" 则
- 弹出窗口 "没有找到炫舞窗口,请确认炫舞窗口标题为【QQ炫舞】"
- 脚本停止运行
- 条件结束
- 子程序结束
- 子程序 确定起始点坐标
- 注释:获得窗口起始点坐标,并利用相对坐标法得到各个所需要的点
- 令 Rect = Window.GetClientRect(JB1)
- 定义变量 MyArrayh
- 令 MyArrayh = Split(Rect,"|")
- 令 Ux = CLng(MyArrayh(0))
- 令 Uy = CLng(MyArrayh(1))
- 令 dx = CLng(MyArrayh(2))
- 向调试窗口输出:Ux
- 向调试窗口输出:Uy
- 注释:dx=800小窗口
- 注释:dx1024大窗口
- 子程序结束
- 子程序 大窗口()
- 向调试窗口输出:"我是大窗口"
- 注释:检测背景
- 如果点 (0 + Ux,767 + Uy) 的颜色等于 "0" 则
- 否则
- (键盘)按 "F12" 键, 1次
- 条件结束
- 注释:对局内检测(蓝)
- 如果点 (915 + Ux,147 + Uy) 的颜色等于 "FFFBF3" 则
- 否则
- 如果点 (919 + Ux,150 + Uy) 的颜色等于 "FAC1FD" 则
- 否则
- 弹出窗口 "检测到已离开对局或未在对局中开启。点击确定后脚本将停止!如有需要请按启动热键重新启动!"
- 脚本停止运行
- 条件结束
- 条件结束
- 注释:开始送花操作
- (键盘)按 "Z" 键, 1次
- (键盘)按 "X" 键, 1次
- (鼠标)移动到 (459 + Ux, 315 + Uy)
- 注释:一号
- 如果 Form1.Hao.ListIndex = 1 则