读取TXT文本实现随机说话 可读取验证码

更多请看内容导航：

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

[General]
Description=灌水机
BeginHotkey=121
BeginHotkeyMod=0
RunOnce=0
Enable=0
[Repeat]
Type=0
Number=1
[CallBack]
OnSetup=
[Comment]
Content=

[Script]
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
Return 读取数字