//=================*按键8代码*=================== //=================*游戏*设置*=================== // 小尺寸窗口 //=================*分 *辩* 率*================== // 1024*768 (最佳是1027*768) //=================*脚本*开始*=================== 窗口 = Lib.API.查找窗口句柄("QQ炫舞","QQ炫舞") //查找游戏窗口 If 窗口 = 0 Then MessageBox "未找到炫舞游戏窗口" EndScript //游戏未打开 停止脚本 End If Call Plugin.Window.Move(窗口, 1, 1) //移动窗口 Call Plugin.Window.Active(窗口) //激活窗口 sRect = Plugin.Window.GetWindowRect(窗口) f = split(sRect, "|") //得到窗口句柄的边框大小(包括标题栏) sRect1 = Plugin.Window.GetClientRect(窗口) d = split(sRect1, "|") //得到窗口句柄的客户区大小 khx = d(0) - f(0) : khy = d(1) - f(1) //KHX=画面X KHY=画面Y //也就是减去窗口标题X,Y得到画面内X,Y //MSGBOX "X=" & khx & "Y=" & khy Delay 200 向前面搜索 = 0 : 检测按键="" //P设置 P点微调 Rem 等待 起点X坐标 = khx+282 : 起点Y坐标 = khy+366 //MSGBOX "X=" & khx + 282 & "Y=" & khy + 366 循环次数 = 260 //找箭头用 NUM = Plugin.Color.CountColor(khx+284, khy+365, khx+536, khy+385, "CE5000", 0.7) If NUM > 5 Then //找箭头颜色(蓝色) Else Delay 200 Goto 等待 //未出现就等待 End If For 循环次数 //每次出现箭头循环260次 Call P点设置() //调用子程序调整P点位置 IfColor 起点X坐标, 起点Y坐标, "C84800", 2 Then Call 按箭头() //大约等于蓝色 就调用子程序 按箭头() Else 起点X坐标=起点X坐标+1 //否则就向前搜索蓝色的点 End If Next //循环完后 所有的箭头都按完了就检查球的位置 Rem 按空格键 FindPic khx+411,khy+337,khx+533,khy+349,"Attachment:\q_u.bmp",0.7,intX,intY //这里我试过很多方法 感觉这个比较有用 If intx + 10 + 向前面搜索 >= khx + 505 -1Then //505为P点坐标 用循环找图来判断P点 KeyPresss "Space", 1 Delay 400 Else Goto 按空格键 //这里电脑好的 不要加延时 感觉延时影响连P End If Goto 等待 //按完一次 等待箭头出现 EndScript Sub 按箭头() a=0:b=0:d=0 //全部清0 IfColor 起点X坐标-3, 起点Y坐标+4, "B54700", 2 Then //点1 (看图片) a=1 End If ifColor 起点X坐标+5, 起点Y坐标+5, "D15200", 2 Then b=4 //点2 (看图片) End If IfColor 起点X坐标, 起点Y坐标+14, "E28700", 2 Then d=6 //点3 (看图片) End if pd = a + b + d If pd = 7 Then //← =点3+点1 KeyPress "Left", 1 起点X坐标 = 起点X坐标 + 18 ElseIf pd = 4 Then //→ =点3+点1 KeyPresss "Right", 1 起点X坐标 = 起点X坐标 + 18 ElseIf pd = 11 Then //↑= 点1 KeyPresss "Up", 1 起点X坐标 = 起点X坐标 + 18 ElseIf pd = 6 Then //↓= 点3