天下3跳舞脚本源码

普通视图 1.注释:头部获得窗口信息 2.注释:跳舞次数 3.令sum = 0 4.令max = 10 5.令off = 0 6.注释:空格速度微调(50-70之间机器速度越慢数值越小) 7.令speed = 65 8.定义变量hwnd 9.注释:申明变量是个好习惯 10.注释:定义变量 11.令hwnd = Window.Foreground() 12.注释:调用插件得到当前窗口句柄,结果返回给变量hwnd 13.令wtext = Window.GetText(hwnd) 14.注释:调用插件根据窗口句柄得到当前窗口标,结果返回给变量wtext 15.令wclass = Window.GetClass(hwnd) 16.注释:调用插件根据窗口句柄得到当前窗口类,结果返回给变量wclass 17.令path = Window.GetExePath(hwnd) 18.注释:调用插件根据窗口句柄得到当前窗口的路径,结果返回给变量path 19.令rect = Window.GetClientRect(hwnd) 20.注释:调用插件根据窗口句柄得到当前客户区坐标数据,结果返回给变量rect 21.令wrect = Window.GetWindowRect(hwnd) 22.注释:调用插件根据窗口句柄得到当前窗口坐标数据,结果返回给变量wrect 23.令MyArray = Split(rect,"|",- 1 ,1) 24.令Area = MyArray(2) * MyArray(3) 25.如果Area <> 480000 则 26.弹出窗口"请将游戏分辨率调整为800*600,谢谢。" 27.脚本停止运行 28.条件结束 29.注释:主程序 30.标记主程序 31.如果sum >= max 则 32.弹出窗口"已经跳了次数了呦。" 33.脚本停止运行 34.调用Msg.ShowScrTXT(10,10,500,500," ","ffff00") 35.条件结束 36.令sum = sum + 1 37.(鼠标)移动到(458 + MyArray(0), 152 + MyArray(1)) 38.延时100 毫秒 39.(鼠标)左键单击, 1次 40.跳转到标记跳舞 41.注释:跳舞程序 42.标记跳舞 43.令x = 53 + MyArray(0) 44.令y = 390 + MyArray(1) 45.循环当x < 750 + MyArray(0) 时 46.注释:up 47.调用从左上到右下查找图片"up.bmp",把找到的坐标保存到(intX, intY),指定区域(左:x 上:y 右:x + 63 下: y + 63),相似度0.9 48.如果intX > 0 则 49.(键盘)按Up 键, 1次 50.条件结束 51.注释:downn 52.调用从左上到右下查找图片"down.bmp",把找到的坐标保存到(intX, intY),指定区域(左:x 上:y 右:x + 63 下:y + 63),相似度0.9 53.如果intX > 0 则 54.(键盘)按Down 键, 1次 55.条件结束 56.注释:left 57.调用从左上到右下查找图片"left.bmp",把找到的坐标保存到(intX, intY),指定区域(左:x 上:y 右:x + 63 下:y + 63),相似度0.9 58.如果intX > 0 则 59.(键盘)按Left 键, 1次 60.条件结束 61.注释:right 62.调用从左上到右下查找图片"right.bmp",把找到的坐标保存到(intX, intY),指定区域(左:x 上:y 右:x + 63 下:y + 63),相似度0.9 63.如果intX > 0 则 64.(键盘)按Right 键, 1次 65.条件结束 66.如果点(31 + x,29 + y) 的颜色约等于"0000E5" 则 67.注释:rup 68.调用从左上到右下查找图片"rup.bmp",把找到的坐标保存到(intX, intY),指定区域(左:x 上:y 右:x + 63 下:y + 63),相似度0.9 69.如果intX > 0 则 70.(键盘)按Down 键, 1次 71.条件结束 72.注释:downn 73.调用从左上到右下查找图片"rdown.bmp",把找到的坐标保存到(intX, intY),指定区域(左:x 上:y 右:x + 63 下:y + 63),相似度0.9 74.如果intX > 0 则 75.(键盘)按Up 键, 1次 76.条件结束 77.注释:rleft 78.调用从左上到右下查找图片"rleft.bmp",把找到的坐标保存到(intX, intY),指定区域(左:x 上:y 右:x + 63 下:y + 63),相似度0.9 79.如果intX > 0 则 80.(键盘)按Right 键, 1次 81.条件结束 82.注释:rright 83.调用从左上到右下查找图片"rright.bmp",把找到的坐标保存到(intX, intY),指定区域(左:x 上:y 右:x + 63 下:y + 63),相似度0.9 84.如果intX > 0 则 85.(键盘)按Left 键, 1次 86.条件结束 87.条件结束 88.注释:判断空格 89.如果点(405 + MyArray(0),405 + MyArray(1)) 的颜色约等于"FFFFFF" 则 90.如果点(581 + MyArray(0),374 + MyArray(1)) 的颜色约等于"E7BF67" 则 91.延时speed 毫秒 92.(键盘)按Space 键, 1次 93.条件结束 94.条件结束 95.注释:判断是否结束 96.如果点(218 + MyArray(0),71 + MyArray(1)) 的颜色约等于"9B4C48" 则 97.(鼠标)移动到(657 + MyArray(0), 63 + MyArray(1)) 98.延时100 毫秒 99.(鼠标)左键单击, 1次 100.延时1000 毫秒 101. 102.以下为源代码 103. 104.//头部获得窗口信息 105.//跳舞次数 106.sum=0 107.max=10 108.off=0 109.//空格速度微调(50-70之间机器速度越慢数值越小) 110.speed=65 111.Dim hwnd 112.//申明变量是个好习惯 113.//定义变量 114.hwnd=Plugin.Window.Foreground() 115.//调用插件得到当前窗口句柄,结果返回给变量hwnd 116.wtext=Plugin.Window.GetText(hwnd) 117.//调用插件根据窗口句柄得到当前窗口标题,结果返回给变量wtext 118.wclass=Plugin.Window.GetClass(hwnd) 119.//调用插件根据窗口句柄得到当前窗口类,结果返回给变量wclass 120.path=Plugin.Window.GetExePath(hwnd) 121.//调用插件根据窗口句柄得到当前窗口的路径,结果返回给变量path 122.rect=Plugin.Window.GetClientRect(hwnd) 123.//调用插件根据窗口句柄得到当前客户区坐标数据,结果返回给变量rect 124.wrect=Plugin.Window.GetWindowRect(hwnd) 125.//调用插件根据窗口句柄得到当前窗口坐标数据,结果返回给变量wrect 126.MyArray = Split(rect, "|", -1, 1) 127.Area=MyArray(2)*MyArray(3) 128.If Area<>480000 Then 129. MessageBox "请将游戏分辨率调整为800*600,谢谢。" 130. EndScript 131.End if 132.//主程序 133.Rem 主程序 134.If sum>=max Then 135. MessageBox "已经跳了次数了呦。" 136. EndScript 137. Call Plugin.Msg.ShowScrTXT(10,10,500,500," ","ffff00") 138.End if 139.sum=sum+1 140.MoveTo 458+MyArray(0),152+MyArray(1) 141.Delay 100 142.LeftClick 1 143.Goto 跳舞 144.//跳舞程序 145.Rem 跳舞 146.x=53+MyArray(0) 147.y=390+MyArray(1) 148.While x<750+MyArray(0) 149. //up 150. Call FindPic(x,y,x+63,y+63,"up.bmp",0.9,intX,intY) 151. If intX>0 Then 152. KeyPress 38,1 153. End if 154. //downn 155. Call FindPic(x,y,x+63,y+63,"down.bmp",0.9,intX,intY) 156. If intX>0 Then 157. KeyPress 40,1 158. End if 159. //left 160. Call FindPic(x,y,x+63,y+63,"left.bmp",0.9,intX,intY) 161. If intX>0 Then 162. KeyPress 37,1 163. End if 164. //right 165. Call FindPic(x,y,x+63,y+63,"right.bmp",0.9,intX,intY) 166. If intX>0 Then 167. KeyPress 39,1 168. End if 169. IfColor 31+x,29+y,"0000E5",2 Then 170. //rup 171. Call FindPic(x,y,x+63,y+63,"rup.bmp",0.9,intX,intY) 172. If intX>0 Then 173. KeyPress 40,1 174. End if 175. //downn 176. Call FindPic(x,y,x+63,y+63,"rdown.bmp",0.9,intX,intY) 177. If intX>0 Then 178. KeyPress 38,1 179. End if 180. //rleft 181. Call FindPic(x,y,x+63,y+63,"rleft.bmp",0.9,intX,intY) 182. If intX>0 Then 183. KeyPress 39,1 184. End if 185. //rright 186. Call FindPic(x,y,x+63,y+63,"rright.bmp",0.9,intX,intY) 187. If intX>0 Then 188. KeyPress 37,1 189. End if 190. End if 191. //判断空格 192. IfColor 405+MyArray(0),405+MyArray(1),"FFFFFF",2 Then 193. IfColor 581+MyArray(0),374+MyArray(1),"E7BF67",2 Then 194. Delay speed 195. KeyPress 32,1 196. End if 197. End if 198. //判断是否结束 199. IfColor 218+MyArray(0),71+MyArray(1),"9B4C48",2 Then 200. MoveTo 657+MyArray(0),63+MyArray(1) 201. Delay 100 202. LeftClick 1 203. Delay 1000