1. //首先声明,我是新手,接触按键精灵不足一个月,发现论坛上有一些钓鱼的脚本,但有些不足不能完美运行
2. //就亲自编写了这个脚本,免费为大家使用
3. //编写这个脚本的时候参考了论坛上其他的脚本,也加进了自己的一些思想
4. //同时我也是WOW玩家
5. //脚本使用说明:
6. //1,请将钓鱼的技能放在按键1
7. //2,面对水域(废话),尽可能的将镜头拉近
8. //3,按下F10开始钓鱼
9. //4,脚本我调试了很长时间,总之能完美运行,如果出现什么问题请自己多调试,也可以联系我QQ644938082
10. //
11. 用户定义变量 var=DropList{普通模式:0|推荐模式:1}=1 请选择模式
12. 用户定义变量 LTop=300,200 鼠标左上
13. 用户定义变量 RBot=980,500 鼠标右下
14. 用户定义变量 dy1=5 鼠标扫描期间间隔时间
15. mouseType=1884068285
16. 调用外部VBScript子程序 GetCursorShape(0)
17. Dim s,x1,y1,x2,y2,x,y,c,starttime,endtime
18. s=InStr(LTop,",")
19. x1=int(Mid(LTop,1,s-1))
20. y1=int(Mid(LTop,s+1))
21. s=InStr(RBot,",")
22. x2=int(Mid(RBot,1,s-1))
23. y2=int(Mid(RBot,s+1))
24. 标记 Start
25. 按键<1>
26. 标记 Search
27. 延时1000毫秒
28. x=x1
29. y=y1
30. 鼠标移到 x , y
31. starttime=Now
32. 如果表达式 (y<y2) 为真,则循环执行
33.     y=y+30
34.     如果表达式 (x<x2) 为真,则循环执行
35.         x=x+10
36.         鼠标移到 x , y
37.         延时dy1毫秒
38.         如果表达式 (GetCursorShape(0)=mouseType) 为真,则
39.             鼠标移到 x , y
40.             如果表达式 (var=1) 为真,则
41.                 跳转到标记 panduanyanse
42.             否则如果(var=0)为真,则
43.                 跳转到标记 yidong
44.             条件结束
45.         条件结束
46.     循环结束
47.     x=x1
48. 循环结束
49. 跳转到标记 Search
50. 标记 panduanyanse
51. 延时300毫秒
52. 调用外部VBScript子程序 GetCursorShape(0)
53. 如果表达式 (x>0 and y>0) 为真,则
54.     跳转到标记 yidong
55. 条件结束
56. 调用外部VBScript子程序 GetCursorShape(0)
57. 如果表达式 (x>0 and y>0) 为真,则
58.     跳转到标记 yidong
59. 条件结束
60. 调用外部VBScript子程序 GetCursorShape(0)
61. 如果表达式 (x>0 and y>0) 为真,则
62.     跳转到标记 yidong
63. 条件结束
64. 标记 yidong
65. 鼠标移到 x , y
66. 如果表达式 (true) 为真,则循环执行
67.     如果表达式 (GetCursorShape(0)=mouseType) 为真,则
68.         鼠标移到 x , y
69.     否则如果(x,y)为真,则
70.         鼠标移到 x , y+10
71.         跳转到标记 shanggou
72.     条件结束
73.     延时30毫秒
74.     y=y-1
75. 循环结束
76. 标记 shanggou
77. 如果表达式 (true) 为真,则循环执行
78.     延时100毫秒
79.     如果表达式 (GetCursorShape(0)<>mouseType) 为真,则
80.         鼠标移到 x , y+50
81.         右键单击
82.         跳转到标记 Start
83.     条件结束
84.     如果表达式 (DateDiff("s",starttime,Now) >=18) 为真,则
85.         跳转到标记 Start
86.     条件结束
87. 循环结束