读取TXT文本的语句,实现随机说话.可以刷BBS.呵呵.不过千万不要乱刷.这脚本只是用于学习用途 

脚本附件：句子.txt

运行环境：分辨率：1440×900 色深：32位 操作系统：Windows XP 按键精灵版本：7.00.3730

@兄弟工程师012009/3/19

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 读取数字
//得到第一个数字的位置  
pX=x:pY=y  
//清空验证码  
numText=""  
//分别读取4个数字  
For 4  
    n=0:numtp=""  
    For addy  
        i=0  
        For addx  
            VBSCall co=GetPixelColor(px+i,py+n)  
            //得到9C  
            b=CInt("&H" & Left(co,2))  
            If b>150 and b<235  
                tp=1  
            Else   
                tp=0  
            EndIf   
            //得到颜色01字符串  
            numtp=numtp & tp  
            i=i+1  
        EndFor   
        n=n+1  
    EndFor   
    //判断是数字几  
    If StrComp(numtp,"001010100100100100100100100100010")=0  
        number=0  
    ElseIf StrComp(numtp,"000000001010000000000000000000000")=0  
        number=1  
    ElseIf StrComp(numtp,"001010100000000000000000000001010")=0  
        number=2  
    ElseIf StrComp(numtp,"001010100000000001000000000100110")=0  
        number=3  
    ElseIf StrComp(numtp,"000000000001001010100000111000000")=0  
        number=4  
    ElseIf StrComp(numtp,"011010010100111100000000000100010")=0  
        number=5  
    ElseIf StrComp(numtp,"001010100100101110100100100100010")=0  
        number=6  
    ElseIf StrComp(numtp,"111000000000000000000000000001001")=0  
        number=7  
    ElseIf StrComp(numtp,"001010100100010001010100100100010")=0  
        number=8  
    ElseIf StrComp(numtp,"001010100100100100010001000100010")=0  
        number=9  
    EndIf   
    //读取下一位数字  
    pX=pX+add  
    //记录数字  
    numText=numText & number  
EndFor   
rn 读取数字