台服剑灵后台自动钓鱼辅助

这是一个基于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

FindText 深度教程 v1.2 传送门

FindText 深度教程 v1.2

FindText 软体下载 传送门

【函数】FindText中文版- 屏幕抓字生成字库工具与找字函数

给TA捐赠
共{{data.count}}人
人已捐赠
其他应用

用ahk写dnf连发工具(1)

2023-2-7 13:50:14

应用

按标题自动重命名MD中的图片

2023-4-10 10:02:13

0 条回复 A文章作者 M管理员
    暂无讨论,说说你的看法吧
个人中心
购物车
优惠劵
有新私信 私信列表
搜索