读取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 读取数字