分享个钓鱼发烧友明文源码
//"Attachment:\出发钓鱼.bmp|蓝色等级.bmp 制作鱼饵.bmp|
Do
For n = 1 to 20
Hwnd = Plugin.Window.Find("BS2CHINAUI", 0)
Call Plugin.Window.Active(Hwnd)
Do //执行钓鱼
G="关闭2.bmp|放弃.bmp|开始.bmp|点击.bmp"
GG = Split(G, "|")
For i = 0 To UBound(GG)
FindPic 1336,687,1400,738,"Attachment:\"&GG(i),0.9,intX,intY
If intX > 0 and intY > 0 Then
MoveTo intX, intY
LeftClick 1
End If
Next
FindColor 1384,699,1406,717,"926702",intX10,intY10 //咬钩检测
If intX10 > 0 And intY10 > 0 Then
Else Exit Do
End If
Loop
Delay 100
//钓鱼中
Do
LeftDown 1
Delay 450
LeftUp 1
Delay 40
FindColorEx 1400,50,1579,155,"4EB4EF",0,0.7,intX1,intY1 //能量高放线
If intX1 > 0 And intY1 > 0 Then
LeftUp 1
Delay 400
Else
End If
FindColorEx 1135,41,1597,92,"998E33",0,0.9,intX2,intY2 //上钩
If intX2 > 0 And intY2 > 0 Then
LeftDown 1
delay 10000
LeftUp 1
Delay 10
MoveTo 1365, 710
LeftClick 1
Delay 10
LeftClick 1
Delay 10
LeftClick 1
Delay 10
Exit Do
End If
Loop
Delay 10
//结算及其他界面操作
Do
G = "制饵.bmp|出售.bmp|关闭2.bmp|放入水族箱.bmp|放弃.bmp|领奖确定.bmp|领奖3.bmp|关闭1.bmp|升级确定.bmp|确定1.bmp|叉1.bmp|领取.bmp|确定任务.bmp|确定大鱼战.bmp|关闭限时任务.bmp|确认限时.bmp|领奖限时.bmp|确定道具.bmp|关闭商店.bmp|关闭.bmp|放弃.bmp|领奖2.bmp|关闭限时任务.bmp|领奖.bmp|阿什利商店关闭.bmp|确认5.bmp|确认4.bmp|图鉴关闭.bmp|确认.bmp|突出显示.bmp|确认2.bmp|领取奖励.bmp|确认3.bmp|圆形关闭.bmp"
GG = Split(G, "|")
For i = 0 To UBound(GG)
FindPic 1100,0,1600,850,"Attachment:\"&GG(i),0.90,intX4,intY4
If intX4 > 0 and intY4 > 0 Then
MoveTo intX4, intY4
LeftClick 1
Delay 500
End If
Next
Delay 100
//界面无操作跳出界面操作循环
FindPic 1100,0,1600,850,"Attachment:\蓝箭头.bmp",0.9,intX5,intY5
If intX5 > 0 And intY5 > 0 Then
Exit Do
End If
Loop
Delay 100
Next
//修理
Do
Hwnd = Plugin.Window.Find("BS2CHINAUI", 0)
Call Plugin.Window.Active(Hwnd)
G = "鱼竿1.bmp|鱼竿.bmp|修理.bmp|付款.bmp"
GG = Split(G, "|")
For i = 0 To UBound(GG)
FindPic 1100,0,1600,850,"Attachment:\"&GG(i),0.9,intX6,intY6
If intX6 > 0 and intY6 > 0 Then
MoveTo intX6, intY6
LeftClick 1
Else
FindPic 1100,0,1600,850,"Attachment:\不用修理.bmp",0.9,intX7,intY7
If intX7 > 0 and intY7 > 0 Then
FindPic 1100,0,1600,850,"Attachment:\关闭修理.bmp",0.9,intX8,intY8
If intX8 > 0 and intY8 > 0 Then
MoveTo intX8, intY8
LeftClick 1
Exit Do
End If
End If
End If
Next
Loop
Do
Hwnd = Plugin.Window.Find("BS2CHINAUI", 0)
Call Plugin.Window.Active(Hwnd)
G = "修理.bmp|付款.bmp|线轮图标.bmp|线轮图标1.bmp"
GG = Split(G, "|")
For i = 0 To UBound(GG)
FindPic 1100,0,1600,850,"Attachment:\"&GG(i),0.9,intX9,intY9
If intX9 > 0 and intY9 > 0 Then
MoveTo intX9, intY9
LeftClick 1
Else
FindPic 1100,0,1600,850,"Attachment:\不用修理.bmp",0.9,intX7,intY7
If intX7 > 0 and intY7 > 0 Then
FindPic 1100,0,1600,850,"Attachment:\关闭修理.bmp",0.9,intX8,intY8
If intX8 > 0 and intY8 > 0 Then
MoveTo intX8, intY8
LeftClick 1
Exit Do
End If
End If
End If
Next
Loop
Loop