//定义鼠标外观、位置和延迟因子等变量
Dim ms,msx,msy,dt
//鼠标外观说明：1053591638是鱼钩鼠标，965986689是正常鼠标
//延迟因子初始化
dt = 80
//流程开始
Rem Start
//鼠标外观初始化
ms = 0
//甩钩，默认按键“1”
KeyPress "1", 1
//刷屏寻找鱼漂位置
For msx = 1200 To 600 Step -50
For msy = 600 To 300 Step -1
MoveTo msx, msy
ms = GetCursorShape(0)
//如果找到鱼漂就跳出
If ms = 1884068285 Then Goto wait
Next
Next
Rem wait
//鼠标外观变量复位，微调鼠标位置
ms = 0
Do Until ms = 965986689
ms = GetCursorShape(0)
Delay dt
MoveR 0, 1
Loop
//等待上钩
Do Until ms = 1884068285
ms = GetCursorShape(0)
//让鼠标左右来回晃动着，一方面是让咱知道这脚本还在工作，另一方面，据说这样可以防止被检测到是在用脚本钓鱼~~
MoveR 2, 0
MoveR -2,0
Loop
//收杆
RightClick 1
//等着捡取钓到的鱼
Delay dt*5
//重头开始
Goto Start

网上找到的 前面都能运行 但是到等待上钩的时候 因为鱼跑掉了 所以造成无限循环 能不能给设置成 一定时间内没上钩就重新甩勾

在线等 挺急的 我的想法是能不能加个时间 从甩勾以后17秒 Goto Start 跳转到 Rem

里面加了延迟的呀，

反正会卡在上钩那一步

有代码，可以给你调试修复完美

//等待上钩
t1 = time
Do Until ms = 1884068285
ms = GetCursorShape(0)
//让鼠标左右来回晃动着，一方面是让咱知道这脚本还在工作，另一方面，据说这样可以防止被检测到是在用脚本钓鱼~~
MoveR 2, 0
Delay dt
MoveR - 2 , 0
IfDateDiff("s", t1, time) >= 20 Then
Goto Start
End If
Loop