1. Dim FileInt,FileText,FilePath,vfso,vfile
2. Dim x,y,fishColor,wx,wy,n,nF1,nF2,nF3,nF4,nF
3. FilePath="钓鱼.ini"
4. Set vfso = CreateObject("Scripting.FileSystemObject")
5. Set vfile = vfso.OpenTextFile(FilePath, 8, 1)
6. 调用插件命令 wx=Sys.GetScRX()
7. 调用插件命令 wy=Sys.GetScRY()
8. //F1,F2,F3,F4 表示每个键上有多少鱼饵,没有就用0表示
9. nF1=200
10. nF2=0
11. nF3=0
12. nF4=0
13. //设置提示钩到鱼的图标的其中一点颜色
14. fishColor="f7f3f7"
15. //*************************挂机开始**********************************
16. vfile.WriteLine ""
17. 标记 开始
18. //上鱼饵
19. 如果表达式 (nF1>0) 为真,则
20.     按键<F1>
21.     nF1=nF1-1:nF="F1"
22. 否则如果(nF2>0)为真,则
23.     按键<F2>
24.     nF2=nF2-1:nF="F2"
25. 否则如果(nF3>0)为真,则
26.     按键<F3>
27.     nF3=nF3-1:nF="F3"
28. 否则如果(nF4>0)为真,则
29.     按键<F4>
30.     nF4=nF4-1:nF="F4"
31. 否则
32.     vfile.WriteLine now & " 没有鱼饵,停止挂机."
33.     跳转到标记 完成
34. 条件结束
35. 延时800毫秒
36. //刨杆
37. 按键<Space>
38. 延时800毫秒
39. vfile.WriteLine now & " 开始新的等待,正在使用" & nF & "的鱼饵"
40. n=0
41. //判断有没有掉到鱼
42. 标记 等待
43. 延时1000毫秒
44. n=n+1
45. //判断时间
46. 如果表达式 (n>=40) 为真,则
47.     vfile.WriteLine now & " 由于超过" & n & "秒未钓到鱼.脚本重新运行"
48.     跳转到标记 l
49. 条件结束
50. //找色
51. 调用外部VBScript子程序 在屏幕区域里模糊查找颜色(300,130,wx-200,wy-300,fishColor,1,0.9,x,y)
52. 如果表达式 (x<=0 and y<=0) 为真,则
53.     跳转到标记 等待
54. 条件结束
55. //拉杆
56. vfile.WriteLine now & " 颜色位置为(" & CStr(x) & "x" & CStr(y) & ")完成一次,还剩下的鱼饵数量为:" & nF1 & "," & nF2 & "," & nF3 & "," & nF4
57. 标记 l
58. 延时1500毫秒
59. 按键<Space>
60. 延时50毫秒
61. 按键<Space>
62. 延时4000毫秒
63. 跳转到标记 开始
64. 标记 完成