//头部 获得窗口信息 //跳舞次数 sum=0 max=10 off=0 //空格速度微调(50-70之间 机器速度越慢 数值越小) speed=65 Dim hwnd //申明变量是个好习惯 //定义变量 hwnd=Plugin.Window.Foreground() //调用插件得到当前窗口句柄,结果返回给变量hwnd wtext=Plugin.Window.GetText(hwnd) //调用插件根据窗口句柄得到当前窗口标题,结果返回给变量wtext wclass=Plugin.Window.GetClass(hwnd) //调用插件根据窗口句柄得到当前窗口类,结果返回给变量wclass path=Plugin.Window.GetExePath(hwnd) //调用插件根据窗口句柄得到当前窗口的路径,结果返回给变量path rect=Plugin.Window.GetClientRect(hwnd) //调用插件根据窗口句柄得到当前客户区坐标数据,结果返回给变量rect wrect=Plugin.Window.GetWindowRect(hwnd) //调用插件根据窗口句柄得到当前窗口坐标数据,结果返回给变量wrect MyArray = Split(rect, "|", -1, 1) Area=MyArray(2)*MyArray(3) If Area<>480000 Then MessageBox "请将游戏分辨率调整为800*600,谢谢。" EndScript End if //主程序 Rem 主程序 If sum>=max Then MessageBox "已经跳了次数了呦。" EndScript Call Plugin.Msg.ShowScrTXT(10,10,500,500," ","ffff00") End if sum=sum+1 MoveTo 458+MyArray(0),152+MyArray(1) Delay 100 LeftClick 1 Goto 跳舞 //跳舞程序 Rem 跳舞 x=53+MyArray(0) y=390+MyArray(1) While x<750+MyArray(0) //up Call FindPic(x,y,x+63,y+63,"up.bmp",0.9,intX,intY) If intX>0 Then KeyPress 38,1 End if //downn Call FindPic(x,y,x+63,y+63,"down.bmp",0.9,intX,intY) If intX>0 Then KeyPress 40,1 End if //left Call FindPic(x,y,x+63,y+63,"left.bmp",0.9,intX,intY) If intX>0 Then KeyPress 37,1 End if //right Call FindPic(x,y,x+63,y+63,"right.bmp",0.9,intX,intY) If intX>0 Then KeyPress 39,1 End if IfColor 31+x,29+y,"0000E5",2 Then //rup Call FindPic(x,y,x+63,y+63,"rup.bmp",0.9,intX,intY) If intX>0 Then KeyPress 40,1 End if //downn Call FindPic(x,y,x+63,y+63,"rdown.bmp",0.9,intX,intY) If intX>0 Then KeyPress 38,1 End if //rleft Call FindPic(x,y,x+63,y+63,"rleft.bmp",0.9,intX,intY) If intX>0 Then KeyPress 39,1 End if //rright Call FindPic(x,y,x+63,y+63,"rright.bmp",0.9,intX,intY) If intX>0 Then KeyPress 37,1 End if End if //判断空格 IfColor 405+MyArray(0),405+MyArray(1),"FFFFFF",2 Then IfColor 581+MyArray(0),374+MyArray(1),"E7BF67",2 Then Delay speed KeyPress 32,1 End if End if //判断是否结束 IfColor 218+MyArray(0),71+MyArray(1),"9B4C48",2 Then MoveTo 657+MyArray(0),63+MyArray(1) Delay 100 LeftClick 1 Delay 1000