1. //进入游戏后将运行模式设成窗口模式（不能最大化），分辨率是800*600，视频里的硬件指针要开，和UI缩放要关闭。效果设置最低。设置成自动拾取，取消右键点击移动。
2. //1,请将 钓鱼 放在 按键1
3. //2,面对水域，装备鱼竿
4. //3,按下F10开始钓鱼
5. //脚本我调试了很长时间,总之能够运行，我用这个脚本20分钟能钓上72条鱼。
6. //PS：我的显示器的分辨率是1366*768，不是这分辨率的同学请自行调整鼠标扫描范围（使得鼠标可以扫描到鱼漂）或去移动游戏窗口（使得鱼漂在鼠标扫描范围内）。
7. //PS：我的显示器的分辨率是1366*768，不是这分辨率的同学请自行调整鼠标扫描范围（使得鼠标可以扫描到鱼漂）或去移动游戏窗口（使得鱼漂在鼠标扫描范围内）。
8. 用户定义变量 LTop="300,425" "鼠标扫描左上起点"
9. 用户定义变量 RBot="980,550" "鼠标扫描右下终点"
10. 用户定义变量 RBot="980,550" "鼠标扫描右下终点"
11. mouseType=1053591638
12. Call GetCursorShape(0)
13. Call GetCursorShape(0)
14. Dim s, x0, y0, x1, y1, x2, y2, x, y, c, starttime, endtime, m1, n1, m2, n2
15. s = InStr(LTop, ",")
16. x1 = int(Mid(LTop, 1, s - 1))
17. y1 = int(Mid(LTop, s + 1))
18. s = InStr(RBot, ",")
19. x2 = int(Mid(RBot, 1, s - 1))
20. y2 = int(Mid(RBot, s + 1))
21. y2 = int(Mid(RBot, s + 1))
22. 按住 <Alt>
23. 按键 <Z>
24. 弹起 <Alt>
25. 延时100毫秒
26. 按键#"End"
27. 延时100毫秒
28. 按键#"Home"
29. 延时1000毫秒
30. 延时1000毫秒
31. 标记 KaiShi
32. 按键 <1>
33. 按键 <1>
34. 标记 SouSuo
35. 延时1500毫秒
36. x = x1
37. y = y1
38. 鼠标移到 x , y
39. starttime = Now
40. starttime = Now
41. 如果表达式 (y < y2) 为真,则循环执行
42.     y = y + 25
43.     如果表达式 (x<x2) 为真,则循环执行
44.         x=x+2
45.         鼠标移到 x , y
46.         延时1毫秒
47.         如果表达式 (GetCursorShape(0) = mouseType Then) 为真,则
48.             GetCursorPos x0, y0
49.             鼠标移到 x , y
50.             跳转到标记 YiDong
51.             End If
52.             Wend
53.             x=x1
54.             Wend
55.             跳转到标记 KaiShi
56.             跳转到标记 KaiShi
57.             标记 YiDong
58.             如果表达式 (GetCursorShape(0) = mouseType) 为真,则循环执行
59.                 x = x + 1
60.                 鼠标移到 x , y
61.                 延时8毫秒
62.                 GetCursorPos m1, n1
63.                 Wend
64.                 x = x0
65.                 y = y0
66.                 鼠标移到 x , y
67.                 延时100毫秒
68.                 如果表达式 (GetCursorShape(0) = mouseType) 为真,则循环执行
69.                     x = x - 1
70.                     鼠标移到 x , y
71.                     延时10毫秒
72.                     GetCursorPos m2, n2
73.                     Wend
74.                     x = (m1 + m2) / 2
75.                     y = (n1 + n2) / 2
76.                     鼠标移到 x , y
77.                     延时100毫秒
78.                     如果表达式 (GetCursorShape(0) = mouseType) 为真,则循环执行
79.                         y = y - 1
80.                         鼠标移到 x , y
81.                         延时25毫秒
82.                         Wend
83.                         y = y + 1
84.                         鼠标移到 x , y
85.                         延时100毫秒
86.                         跳转到标记 ShangGou
87.                         跳转到标记 ShangGou
88.                         标记 ShangGou
89.                         如果表达式 (true) 为真,则循环执行
90.                             如果表达式 (GetCursorShape(0)<>mouseType) 为真,则
91.                                 鼠标移到 x0 , y0
92.                                 延时100毫秒
93.                                 右键单击
94.                                 延时100毫秒
95.                                 跳转到标记 KaiShi
96.                                 End If
97.                                 Wend