网站首页 > 脚本专栏 > 按键精灵相关 > 按键精灵Q语言 正文
读取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 读取数字
- 上一篇: libxl.dll 383 调用模块例程
- 下一篇: E2EE支持库读写共享锁例程源码
猜你喜欢
- 2020-06-25 手机群控框架,可自由灵活编辑功能
- 2019-03-25 按键精灵脚本源码 五开辅助战斗
- 2019-03-25 按键精灵脚本源码 奶德自动N
- 2019-03-25 按键精灵脚本源码 梦幻西游自动打怪
- 2019-03-25 按键精灵脚本源码 梦幻西游五开挂机
- 2019-03-25 按键精灵脚本源码 梦幻西游挂机感恩版v1.1
- 2019-03-25 按键精灵脚本源码 急速封妖1.2.2
- 2019-03-25 按键精灵脚本源码 火源小怪
- 2019-03-25 按键精灵脚本源码 董卓脚本
- 2019-03-25 按键精灵脚本源码 钓鱼智能版
你 发表评论:
欢迎- 百度站内搜索
- 关注微信公众号
- 网站分类
-
- 网站公告
- 电子书书籍
- 程序员工具箱
- 编程工具
- 易语言相关
- 网络相关源码
- 图形图像源码
- 系统工具源码
- 易语言模块源码
- 易语言支持库
- 数据库类源码
- 易语言例程
- 易语言游戏开发
- 易语言模块
- 多媒体类源码
- 易语言资源网
- 易语言视频教程
- JS分析教程
- 易语言图文教程
- 易语言常见问题及笔记
- 工具源码
- 易语言版本
- 网络编程
- javascript
- PHP编程
- html
- 正则表达式
- 面试题
- nodejs
- 其它综合
- 脚本专栏
- python
- 按键精灵相关
- 按键精灵图文教程
- 按键精灵视频教程
- 按键精灵Q语言
- 按键精灵安卓版
- golang
- 游戏安全
- 火山相关
- 火山安卓软件
- 火山常见问题及笔记
- 火山安卓源码
- 火山视频教程
- 火山PC版本下载
- 火山PC视窗例程
- 互联网那些事
- 引流推广
- 项目揭秘
- 网络营销
- 营销软件
- QQ营销软件
- 娱乐软件
- 机器人插件
- 培训教程
- 技术教程
- 活动线报
- 数据库
- Redis
- Access
- MongoDB
- Mysql
- 问答
- 其它
- 易语言
- 需求
- 在线教程
- 多线程培训班
- 觅风易语言教程
- 模拟系列教程
- 集中营易语言教程
- 历史数据
- 随机tag
已有7位网友发表了看法:
重定义数组 评论于 [2018-12-17 10:52:37] 回复
按键精灵随机喊话 读取文件
易语言 评论于 [2020-03-02 18:58:20] 回复
按键精灵文字识别验证码
易语言 评论于 [2020-05-09 14:04:19] 回复
按键精灵文本随机选择一条文字输出
正在编译 评论于 [2020-06-06 17:07:17] 回复
按键精灵读取附件txt
资源分享 评论于 [2021-11-23 14:37:21] 回复
按键精灵设置读文字
fiddler 评论于 [2022-03-02 19:40:06] 回复
按键精灵+文字数组+随机
fiddler 评论于 [2022-03-02 19:40:39] 回复
按键精灵+随机说话