//=================*按键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
KeyPresss "Down", 1
起点X坐标 = 起点X坐标 + 18
End If
End Sub
Sub P点设置()
检测按键 = GetLastKey()
//检测按键上次按过的键
If 检测按键 = 107 Then
向前面搜索 = 向前面搜索 - 1
//等与"+"键 P点位置-1象素
ElseIf 检测按键 = 109 Then
向前面搜索 = 向前面搜索 + 1
//等与"-"键 P点位置+1象素
End If
//注意一下...这里我可是没有搞反的
检测按键 = ""
//变量清空
End Sub
