PutAttachment .\fdlove *.txt
Beep 
//捉颜色的起点
Dim pX,pY,add,addx,addy,number,x0,y0,x,y,numText,numTF,r,g,b,co,tp,numtp
//第一个数字的位置
x0=708
y0=631
x=x0
y=y0
//每个数字的间隔
add=9
addx=3
addy=11
//#####################################################################
//
//                                                             读取字符
//
//#####################################################################
Dim fso,file,filename
//设置语句文件的详细路径
filename="fdlove\句子.txt"
//设置外部函数
set fso=CreateObject("Scripting.FileSystemObject")
//以读的方式打开
set file=fso.opentextfile(filename,1)
Dim i,n,maxText
ReDim text(1)
//设置语句,判断是不是最后一句,先判断这个文本有多少行.
i=0
While file.atendofstream<>-1
    tp=file.readline
    i=i+1
EndWhile 
//设置最大字符数组数
maxText=i
ReDim text(maxText)
//关闭文件
file.close
//以读的方式打开
set file=fso.opentextfile(filename,1)
//读取
i=0
tp=time
For maxText
    //得到字符
    text(i)=file.readline
    i=i+1
EndFor 
VBS tp=DateDiff("s",tp,time)
VBSCall MessageBox(tp & "," & maxText)
//#####################################################################
//
//                                                          开 始 刷 了
//
//#####################################################################
Rem 开始
Gosub 读取数字
If numText<>""
    Gosub 输入字符
    Gosub 输入验证码
    MoveTo 679,692
    LeftClick 1
    Delay 1300
Else 
    y=y+1
    If y-y0>10
        y=y0
    EndIf 
EndIf 
Goto 开始
EndScript 
Sub 输入字符
    MoveTo 387,685
    Delay 100
    LeftDoubleClick 1
    Delay 300
    i=CInt(Rnd*100)
    While i>maxText-1
        i=CInt(Rnd*100)
    EndWhile 
    KeyPress 49,1
    Delay 100
    KeyDown 17,1
    KeyPress 65,1
    KeyUp 17,1
    Delay 100
    SayExpression text(i)
    Delay 100
Return 输入字符
Sub 输入验证码
    MoveTo 664,659
    Delay 100
    LeftClick 1
    Delay 100
    KeyPress 8,1
    Delay 300
    SayExpression numText
    Delay 300
Return 输入验证码
Sub 读取数字