运行模式设成窗口模式（不能最大化），分辨率是800*600，视频里的硬件指针要开，和UI缩放要关闭。效果设置最低。设置成自动拾取，取消右键点击移动。
//1,请将 钓鱼 放在 按键1
//2,面对水域，装备鱼竿
//3,按下F10开始钓鱼
//脚本我调试了很长时间,总之能够运行，我用这个脚本20分钟能钓上72条鱼。
//PS：我的显示器的分辨率是1366*768，不是这分辨率的同学请自行调整鼠标扫描范围（使得鼠标可以扫描到鱼漂）或去移动游戏窗口（使得鱼漂在鼠标扫描范围内）。

UserVar LTop="300,425" "鼠标扫描左上起点"
UserVar RBot="980,550" "鼠标扫描右下终点"

mouseType=1053591638
Call GetCursorShape(0)

Dim s, x0, y0, x1, y1, x2, y2, x, y, c, starttime, endtime, m1, n1, m2, n2
s = InStr(LTop, ",")
x1 = int(Mid(LTop, 1, s - 1))
y1 = int(Mid(LTop, s + 1))
s = InStr(RBot, ",")
x2 = int(Mid(RBot, 1, s - 1))
y2 = int(Mid(RBot, s + 1))

KeyDown 18, 1
KeyPress 90, 1
KeyUp 18, 1
Delay 100
KeyPress "End", 1
Delay 100
KeyPress "Home", 5
Delay 1000

Rem KaiShi
KeyPress 49, 1

Rem SouSuo
Delay 1500
x = x1
y = y1
MoveTo x, y
starttime = Now

While y < y2
    y = y + 25
    While x<x2
        x=x+2
        MoveTo x, y
        Delay 1
        If GetCursorShape(0) = mouseType Then 	
            GetCursorPos x0, y0
            MoveTo x, y
            Goto YiDong
        End If        
    Wend
    x=x1
Wend
Goto KaiShi

Rem YiDong
While GetCursorShape(0) = mouseType
    x = x + 1
    MoveTo x, y
    Delay 8
    GetCursorPos m1, n1
Wend
x = x0
y = y0
MoveTo x, y
Delay 100
While GetCursorShape(0) = mouseType
    x = x - 1
    MoveTo x, y
    Delay 10
    GetCursorPos m2, n2
Wend
x = (m1 + m2) / 2
y = (n1 + n2) / 2
MoveTo x, y
Delay 100
While GetCursorShape(0) = mouseType
    y = y - 1
    MoveTo x, y
    Delay 25
Wend
    y = y + 1
    MoveTo x, y
    Delay 100
    Goto ShangGou

Rem ShangGou
While true
    If GetCursorShape(0)<>mouseType
        MoveTo x0, y0
        Delay 100
        RightClick 1
        Delay 100
        Goto KaiShi
    End If 
Wend