[分享源码] 手游 自动交易 自动挂机宠物复活ocr源码 [复制链接]

您所在的用户组无法下载或查看附件

您所在的用户组无法下载或查看附件

您所在的用户组无法下载或查看附件

/==================== OCR找文字函数：找到返回中心点，找不到返回-1,-1 ====================
Function FindTextOCR(搜索文字, x1, y1, x2, y2)
Dim ret, i, tx, ty, cx, cy
ret = OcrEx(x1, y1, x2, y2, 0, "0")
FindTextOCR = Array(-1, -1)
For i = 0 To UBound(ret)
If InStr(1, ret(i)["text"], 搜索文字) > 0 And ret(i)["score"] >= 0.7 Then
tx = ret(i)["x"]
ty = ret(i)["y"]
cx = tx + ret(i)["w"] / 2
cy = ty + ret(i)["h"] / 2
TracePrint "识别到【" & 搜索文字 & "】 坐标：" & cx & "," & cy
FindTextOCR = Array(cx, cy)
Exit Function
End If
Next
End Function

//==================== 宠物复活函数，你自己改复活按钮坐标 ====================
Sub 宠物复活()
TracePrint "\226\154\160\239\184\143 检测宠物死亡，执行复活操作"
// 这里改成你游戏里复活宠物按钮的坐标，抓抓获取
Tap 500, 700
Delay 1200
// 如果需要点确认复活，再加一个Tap
// Tap 600, 800
Delay 1500
End Sub

//==================== 主循环 自动交易 + 宠物死亡检测 + 渗透者日记任务 ====================
Do
// ===== 1、监控交易邀请（自动交易）=====
Dim 交易提示
交易提示 = FindTextOCR("接受了交易邀请", 100, 840, 700, 950)
If 交易提示(0) > -1 Then
TracePrint "\226\156\133 检测到交易邀请，等待界面弹出"
Delay 1500

Dim 交易界面
交易界面 = FindTextOCR("添加物品", 50, 500, 350, 700)
If 交易界面(0) > -1 Then
TracePrint "\226\156\133 交易窗口加载成功"
Delay 800

Tap 120, 440 //金币输入框
Delay 500
InputText "1" //交易金币数量，自行修改
Delay 600

Tap 80, 570 //添加物品
Delay 800
Tap 230, 570 //魔法兽
Delay 1000

Tap 70, 920 //发送交易
TracePrint "\226\156\133 交易发送完成"
Delay 3000
Else
TracePrint "\226\157\140 没识别到交易界面，跳过本次"
End If
End If

// ===== 2、检测宠物死亡【重点新增】=====
// 区域：宠物状态栏，识别文字：死亡 / 已死亡 / 宠物阵亡，按你游戏实际文字改！
Dim 宠物状态
// 这里x1,y1,x2,y2 框住宠物名字+血条区域，用抓抓重新框
宠物状态 = FindTextOCR("死亡", 20, 120, 220, 220)
If 宠物状态(0) > -1 Then
Call 宠物复活()
End If

// ===== 3、渗透者日记任务提交 =====
Dim 任务提示
任务提示 = FindTextOCR("渗透者日记", 780, 340, 1060, 430)
If 任务提示(0) > -1 Then
Tap 任务提示(0), 任务提示(1)
TracePrint "\226\156\133 提交渗透者日记任务"
Delay 1500
End If

Delay 1000
Loop