为编程爱好者分享易语言教程源码的资源网
三叶资源网易语言免费公开课
三叶资源网官方③群:33301895 三叶资源网解压密码 C全站文字广告,诚邀与您合作 三叶资源网培训教程视频 花呗变现,花呗变现
三叶资源网官方③群:33301895 三叶资源网访问导航 B全站文字广告,诚邀与您合作 三叶资源网培训教程视频 花呗变现,花呗变现

网站首页 按键精灵相关 按键精灵Q语言 正文

按键精灵读取TXT文本,实现随机说话.可读取验证码

三叶资源网 2018-11-07 按键精灵Q语言 109 ℃ 0 评论
三叶资源网易语言免费公开课

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

脚本附件:句子.txt

运行环境:分辨率:1440x900 色深: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 读取数字


Tags:

来源:三叶资源网,欢迎分享,公众号:iisanye,(三叶资源网官方③群:33301895

本文暂时没有评论,来添加一个吧(●'◡'●)

欢迎 发表评论:

百度站内搜索
交流QQ群:33301895
三叶资源网官方③群:33301895
加群全凭信仰,群里有的资源网站也会有。
群里只是能及时交流,群主会尽力解答一些会的问题。
设置付费入群,只是为了过滤一些小号无意义广告。
所以不必要为了1块钱加群又退出
群主在群内发的红包都够你抢回来还有的多,更何况还能交流学习。
网站分类
随机tag
微博降权JS教程JS分析支持库超级列表框JS改写鱼刺多线程模块系统服务百度POSTHp-Socket网络相关源码多线程特训班加密壳按键精灵安卓版HOOK按键精灵基础练习系统工具源码超级网页访问NoobyProtectSE因特网服务支持库
最新评论