1. 展开附件 .\fdlove *.txt
2. 响一声
3. //捉颜色的起点
4. Dim pX,pY,add,addx,addy,number,x0,y0,x,y,numText,numTF,r,g,b,co,tp,numtp
5. //第一个数字的位置
6. x0=708
7. y0=631
8. x=x0
9. y=y0
10. //每个数字的间隔
11. add=9
12. addx=3
13. addy=11
14. //#####################################################################
15. //
16. // 读取字符
17. //
18. //#####################################################################
19. Dim fso,file,filename
20. //设置语句文件的详细路径
21. filename="fdlove\句子.txt"
22. //设置外部函数
23. set fso=CreateObject("Scripting.FileSystemObject")
24. //以读的方式打开
25. set file=fso.opentextfile(filename,1)
26. Dim i,n,maxText
27. ReDim text(1)
28. //设置语句,判断是不是最后一句,先判断这个文本有多少行.
29. i=0
30. 如果表达式 (file.atendofstream<>-1) 为真,则循环执行
31.     tp=file.readline
32.     i=i+1
33. 循环结束
34. //设置最大字符数组数
35. maxText=i
36. ReDim text(maxText)
37. //关闭文件
38. file.close
39. //以读的方式打开
40. set file=fso.opentextfile(filename,1)
41. //读取
42. i=0
43. tp=time
44. 循环 maxText 遍
45.     //得到字符
46.     text(i)=file.readline
47.     i=i+1
48. 循环结束
49. （VBScript语句） tp=DateDiff("s",tp,time)
50. 调用外部VBScript子程序 MessageBox(tp & "," & maxText)
51. //#####################################################################
52. //
53. // 开 始 刷 了
54. //
55. //#####################################################################
56. 标记 开始
57. 调用子程序 读取数字
58. 如果表达式 (numText<>"") 为真,则
59.     调用子程序 输入字符
60.     调用子程序 输入验证码
61.     鼠标移到 679 , 692
62.     左键单击
63.     延时1300毫秒
64. 否则
65.     y=y+1
66.     如果表达式 (y-y0>10) 为真,则
67.         y=y0
68.     条件结束
69. 条件结束
70. 跳转到标记 开始
71. 脚本停止运行
72. 子程序 输入字符
73.     鼠标移到 387 , 685
74.     延时100毫秒
75.     左键双击
76.     延时300毫秒
77.     i=CInt(Rnd*100)
78.     如果表达式 (i>maxText-1) 为真,则循环执行
79.         i=CInt(Rnd*100)
80.     循环结束
81.     按键<1>
82.     延时100毫秒
83.     按住<Ctrl>
84.     按键<A>
85.     弹起<Ctrl>
86.     延时100毫秒
87.     SayExpression text(i)
88.     延时100毫秒
89. 子程序结束,回到调用处
90. 子程序 输入验证码
91.     鼠标移到 664 , 659
92.     延时100毫秒
93.     左键单击
94.     延时100毫秒
95.     按键<BackSpace>
96.     延时300毫秒
97.     SayExpression numText
98.     延时300毫秒
99. 子程序结束,回到调用处
100. 子程序 读取数字