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