这是一个基于FindText软体 （BindWindow 搜索遮挡窗口文本）二值化数据窗口遮盖自动钓鱼辅助
使用FindText软体时发现使用gosub标签跳转会导致ahk_id%id%丢失，改用goto解决问题
基于FindText软体 （BindWindow 搜索遮挡窗口文本）二值化数据窗口遮盖自动钓鱼辅助
代码如下：
二值化数据需要自己重新抓取，游戏内介面大小要保持一致
#NoEnv
#Persistent
#KeyHistory 0
#HotkeyInterval 0
#WinActivateForce
#MaxHotkeysPerInterval 9999
#SingleInstance force
#MaxThreadsPerHotkey 2
#IfWinActive,ahk_exe BNSR.exe ;热键只允许在游戏内生效
SetControlDelay 0
SetKeyDelay 0
DetectHiddenWindows On
Process, Priority,,High
if !A_IsAdmin ;管理员运行辅助
{
Run *RunAs "%A_ScriptFullPath%"
ExitApp
}
return
F2:: ;启动热键
MouseGetPos,,,hwnd ;鼠标指向窗口ControlSend,,{w Down},ahk_id%hwnd%
#Include <FindText>
id:=hwnd
FindText().BindWindow(id,4) ; 解绑窗口使用 this.BindWindow(0)
ToolTip,自动钓鱼,20,40
Text1:="|<>*92$7.EMIC6217brzvv" ;收杆图标，请用findtext做好二值化数据
Text2:="|<>*98$5.laAtmW7A" ;钓鱼图标，请用findtext做好二值化数据
Sleep 1000
dyfh:
SetTimer,dyds,2000 ;钓鱼循环
dyds:
if (ok:=FindText(X, Y, 0, 0, 4000, 2700, 0.1, 0.1, Text2)) ;钓鱼图标判断
{
a:="" ;找到钓鱼图标后重置钓鱼失败次数
SetTimer,dyds,Off
Sleep 1000
goto,dyfh
}
else if (ok:=FindText(X, Y, 0, 0, 4000, 2700, 0.1, 0.1, Text1)) ;收杆图标判断
{
SetTimer,dyds,Off
ControlSend,,{f},ahk_id%Hwnd% ;收杆键位
Sleep 500
ControlSend,,{5},ahk_id%Hwnd% ;鱼饵键位
Sleep 50
ControlSend,,{6},ahk_id%Hwnd% ;鱼饵键位
Sleep 2000
if (ok:=FindText(X, Y, 0, 0, 4000, 2700, 0.1, 0.1, Text2)) ;收杆2秒后钓鱼图标复查
{
Sleep 15000 ;延时15秒
goto,dyfh
}
else
{
goto,dyfh
}
}
else
{
ControlSend,,{5},ahk_id%Hwnd% ;鱼饵键位
Sleep 50
ControlSend,,{6},ahk_id%Hwnd% ;鱼饵键位
a++
if (a>=5) ;钓鱼连续失败5次后提示并退出辅助
{
SetTimer,dyds,Off
MsgBox,16,钓鱼辅助温馨提示!!,鱼饵用完请补充!!,15 ;活力用完或者鱼饵用完提示15秒后关闭
Sleep 500
ExitApp
}
Sleep 200
}
return
F3::Pause ;暂停辅助
Return
F4::ExitApp ;结束辅助
Return
