您的举报已经提交成功，我们将尽快处理，谢谢！
你要下什么 我帮你下 我看不清你的图
右上角有个‘X’点完就解决了
大家还关注
(window.slotbydup=window.slotbydup || []).push({
id: '2081942',
container: s,
size: '1000,60',
display: 'inlay-fix'查看: 694|回复: 4
最后登录注册时间阅读权限50精华0帖子
咕噜, 积分 636, 距离下一级还需 564 积分
幸福币0 经验507 帖子
活动推荐 /1
良心页游，永不关服>>你的位置：
新人求大神指点下哪里出错
14:32:42 |
来源: 按键精灵资源站
下载地址请访问原帖
下载地址请访问原帖
'定义一些常用变量：IntX IntY 找色模块返回值用，win_x win_y 屏幕分辨率用，win_w win_h 分辨率比例用
Dim IntX,IntY
Dim win_x,win_y,win_w,win_h
win_x = GetScreenX()
win_y = GetScreenY()
TracePrint &当前分辨率：& & win_x & &*& & win_y
//////////////////////////////////////////////////////////////////////////////////////
Dim 首(),好友接力(),技能道具(),结算(),任务完成(),新任务(),登陆奖励(),游戏中(),升级(),暂停(),闯关(),爱心()
Dim 攻击(),跳跃()
//////////////////////////////////////////////////////////////////////////////////////
win_w=win_x/1280
win_h=win_y/720
TracePrint &屏幕比例：& & win_w & &:& & win_h
If win_w = win_h Then
& & 首界面 = Array(798,650,&D1CFF8&,&-645|-530|8BC4D4,-644|-20|FAF67B,-632|38|F4F3F5&)
& & 好友接力 = Array(911,631,&4B3EC9&,&-829|-466|D5710E,-760|-586|9E|-518|FAF8F8&)
& & 技能道具 = Array(883,616,&534BDB&,&-708|-601|6D352F,-557|-496|7|-427|507EFF&)
& & 结算 = Array(630,619,&0EB5EC&,&-295|-489||-256|2DBDF7,-347|-416|704841&)
& & 任务完成 = Array(598,489,&14B7ED&,&-243|-353|A5505D,-216|-231|F6F6F5,-27|-270|515151&)
& & 新任务 = Array(477,465,&A3616A&,&-113|-317|D6EFF9,184|2|00C6F0,205|3|00478D&)
& & 登陆奖励 = Array(597,584,&00C6F0&,&-82|-485|C1B2B4,313|-128|DE98A3,-82|-490|FFFFFF&)
& & 升级 = Array(429,627,&09B5ED&,&251|-5|7FBE7E,288|-119|6A1D21,185|-182|49BAFF&)
& & 游戏中 = Array(78,25,&52D1EF&,&-15|63|5C51E6,-10|12|072D80,46|59|83DBF1&)
& & 暂停 = Array(599, 252, &12C3EF&, &-85|-3|064E8F,-116|107|A9|ECEEEF&)
& & 闯关 = Array(174, 30, &844650&, &50|617|12A6F9,133|625|C3FA7B,305|587|0105CE&)
& & 爱心 = Array(425,533,&95575D&,&265|0|00C6F0,83|-503|185F7C,30|-202|515151&)
& & 攻击 = Array(107,636)
& & 跳跃 = Array()
///////////////////////////////////////////////////////////////////////////////////////
If win_w && win_h Then
& & win_w=win_x/540
& & win_h=win_y/960
& & TracePrint win_w
& & TracePrint win_h
& & If win_w = win_h Then
& && &&&首界面 = Array(50,634,&8780F6&,&396|-535|8EE6FF,16|-517|F9F57B,-21|-518|FDFDFD&)
& && &&&好友接力 = Array(68,716,&544BD6&,&349|-622|D|-547||-613|914B45&)
& && &&&技能道具 = Array(79,696,&635BE9&,&323|-133|4A75FF,317|134|14B7ED,434|-532|8D4C5C&)
& && &&&结算 = Array(75,503,&0EB5EC&,&368|-220|094FE1,195|107|65E5FE,123|115|C228BD&)
& && &&&任务完成 = Array(173,480,&15B7ED&,&267|-182|A34F57,210|-34||-11|0C5698&)
& && &&&新任务 = Array(187,398,&9C5B64&,&209|-103|34ABE2,206|-71|638AAC,-5|126|00C9F2&)
& && &&&登陆奖励 = Array(100,483,&1ABAEE&,&362|-17|FDFDFD,110|231|E3919B,-5|13|085194&)
& && &&&升级 = Array(73,352,&00C6F0&,&132|120|4ABBFF,-4|193|7FBF81,85|217|691E1F&)
& && &&&游戏中 = Array(520, 67, &40D2F2&, &11|-1|081A6C,-53|-12|5A4FE6,-56|38|3FBBEF&)
& && &&&暂停 = Array(362,492,&13B6ED&,&6|-87||-114|A6646E,-78|-75|EBEDEF&)
& && &&&闯关 = Array(518,154,&7C4148&,&-472|-7|1B9CE7,-468|76|90C85F,-440|204|091DF9&)
& && &&&爱心 = Array()
& && &&&攻击 = Array(78,92)
& && &&&跳跃 = Array(74,869)& && &&&
& & End If
//////////////////////////////////////////////////////////////////////////////////////////
If win_w && win_h Then
& & ShowMessage &分辨率比例不同，暂不支持！请联系作者更新！&
& & Delay 1000
& & EndScript
/////////////////////////////////////////////////////////////////////////////////////////
& && &&&KeepCapture
& && &&&If 判断(首界面)=True Then
& && && && &Call 点击(首界面)
& && && && &Exit Do
& && &&&ElseIf 判断(好友接力)=True Then
& && && && &Call 点击(好友接力)
& && && && &Exit Do& &&&
& && &&&ElseIf 判断(技能道具)=True Then
& && && && &Call 点击(技能道具)
& && && && &Exit Do
& && &&&ElseIf 判断(结算)=True Then
& && && && &Call 点击(结算)
& && && && &Exit Do& &
& && &&&ElseIf 判断(任务完成)=True Then
& && && && &Call 点击(任务完成)
& && && && &Exit Do
& && &&&ElseIf 判断(新任务)=True Then
& && && && &Call 点击(新任务)
& && && && &Exit Do
& && &&&ElseIf 判断(登陆奖励)=True Then
& && && && &Call 点击(登陆奖励)
& && && && &Exit Do
& && &&&ElseIf 判断(升级)=True Then
& && && && &Call 点击(升级)
& && && && &Exit Do
& && &&&ElseIf 判断(暂停)=True Then
& && && && &Call 点击(暂停)
& && && && &Exit Do
& && &&&ElseIf 判断(闯关) = True Then
& && && && &Call 点击(闯关)
& && && && &Exit Do
& && &&&ElseIf 判断(爱心) = True Then
& && && && &Delay 300000
& && && && &Call 点击(爱心)
& && && && &Exit Do& &
& && &&&End If
& && &&&If 判断(游戏中) = True Then
& && && && &Call 点击(跳跃)
& && && && &Delay 200
& && && && &Call 点击(跳跃)
& && && && &Call 点击(攻击)
& && && && &Delay 200
& && && && &Call 点击(攻击)
& && && && &Delay 200
& && && && &Call 点击(攻击)
& && && && &Delay 200
& && && && &Call 点击(攻击)
& && && && &Delay 1200
& && &&&Else
& && && && &Call 点击(跳跃)
& && && && &Delay 200
& && && && &Call 点击(跳跃)
& && && && &Delay 200
& && && && &Call 点击(跳跃)
& && && && &Delay 1200
& && &&&End If& &
& & ReleaseCapture
& & Delay 200& && &&&
//////////////////////////////////////////////
Function 判断(数组特征)
& & Dim arr()
& & arr=数组特征
& & 判断=CmpMultiCol(arr(0),arr(1),arr(2),arr(3),0.9)
End Function
Sub 点击(数组坐标)
& & Dim arr()
& & arr=数组坐标
& & Tap arr(0) * win_w, arr(1) * win_h
'判断两个16进制值相似度是否到达对应百分比
Function IsCol(col1,col2,n)
& & IsCol=False
& & Dim r1,g1,b1
& & Dim r2,g2,b2
& & ColorToRGB col1,r1,g1,b1
& & ColorToRGB col2,r2,g2,b2
& & If 1 - (Abs(r1 - r2) + Abs(g1 - g2) + Abs(b1 - b2)) / 255 / 3 &= n Then IsCol=True
End Function
'固定坐标单点模糊找色
Function CmpCol(x,y,col,n)
& & CmpCol=False
& & '比例换算
& & x=x*win_w
& & y=y*win_h
& & Dim temp_col
& & temp_col=GetPixelColor(x,y)
& & If temp_col=col Then
& && &&&CmpCol=True
& && &&&CmpCol=IsCol(col,temp_col,n)
& & End If
End Function
'固定坐标多点模糊找色
Function CmpMultiCol(x,y,col,str,n)
& & CmpMultiCol=False
& & If CmpCol(x,y,col,n)=True Then
& && &&&CmpMultiCol=MultiColor(x,y,str,n)
& && &&&CmpMultiCol=FindMultiCol(x-3,y-3,x+3,y+3,col,str,n)
& & End If
End Function
'区域范围多点模糊找色
Function FindMultiCol(x1,y1,x2,y2,col,str,n)
& & FindMultiCol=False
& & '比例换算
& & x1=x1*win_w
& & y1=y1*win_h
& & x2=x2*win_w
& & y2=y2*win_h
& & Dim x,y
& && &&&FindColor x1,y1,x2,y2,col,0,n,intX, intY
& && &&&If intX &= 0 Then
& && && && &If MultiColor(intX,intY,str,n)=True Then
& && && && && & FindMultiCol=True
& && && && && & Exit Do
& && && && &Else
& && && && && & x=IntX
& && && && && & y=IntY
& && && && && & Do Until x & x2
& && && && && && &&&FindColor x,y,x2,y,col,0,n,intX,intY
& && && && && && &&&If intX &= 0 Then
& && && && && && && && &If MultiColor(intX,intY,str,n)=True Then
& && && && && && && && && & FindMultiCol=True
& && && && && && && && && & Exit Function
& && && && && && && && &Else
& && && && && && && && && & x=IntX+1
& && && && && && && && &End If
& && && && && && &&&Else
& && && && && && && && &Exit Do
& && && && && && &&&End If
& && && && && & Loop
& && && && && & y1=y+1
& && && && &End If
& && &&&Else
& && && && &Exit Do
& && &&&End If
& & Loop Until y1 & y2
End Function
'多点偏移点阵匹配
Function MultiColor(x,y,str,n)
& & MultiColor=False
& & Dim arr1,i,arr2()
& & arr1=Split(str,&,&)
& & For Each i In arr1
& && &&&arr2=Split(i,&|&)
& && &&&If CmpCol(x+Int(arr2(0)),y+Int(arr2(1)),arr2(2),n)=False Then
& && && && &'FindColor x+Int(arr2(0))-3, y+Int(arr2(1))-3, x+Int(arr2(0))+3, y+Int(arr2(1))+3, arr2(2), 0, n, intX, intY
& && && && &'If IntX=-1 Then
& && && && &Exit Function
& && &&&End If
& & MultiColor=True
End Function