您的当前位置:游戏狗新闻 > 产业动态 > 正文

『教程』不会用按键精灵的进来

2011-09-07 来源:游戏狗 作者:娜娜 评论

所谓通用就是适用所用游戏的刷屏,只要能运行按键精灵,有说话的输入地方就可以刷屏!

 所谓通用就是适用所用游戏的刷屏,只要能运行按键精灵,有说话的输入地方就可以刷屏!
本脚本以前主要是玩热血挂机时看小说用的。本人练个医生,实在无聊就用这个解闷看小说,后来发现还可以刷屏。
//本脚本不用修改,只需设置page.txt就好了。
//page.txt在下面将详细讲述。
//在page.txt文件中的第一行写数字,代表读取第几个“+”处的内容,共可以标9处
//在要读的文章开始前一行添加“+”和尾行的下一行添加“-”,就可以读取“+”与“-”之间的文章了
//请用按键5.80以上,5.70有可能会出错!
Rem star
VBS Dim fso,n
n=0
xunhuan=0
wen="page.txt"
VBS set fso=CreateObject("Scripting.FileSystemObject")
VBS const forreading=1
VBS const forwriting=2
VBS const forappending=8
//============读取TXT文件内容====叫喊、看长篇、短篇小说、刷屏等只要是文字就可以看===================
VBS set myfile=fso.opentextfile(wen,forreading)
VBS a=myfile.readline
i=mid(a,1,1)
Time1=mid(a,3,4)
If len(Time1)<3
Time1=200
EndIf
xunhuan=mid(a,8,1)
If len(xunhuan)=0
xunhuan=0
EndIf
While true
VBS a=myfile.readline
If mid(a,1,1)="+"
n=n+1
If asc(n)=asc(i)
Goto main
EndIf
EndIf
If myfile.atendofstream=-1
SayString 没有找到相关内容,请重新设定数值或+-号的位置
VBSCall MessageBox("没有找到相关内容,重新设定数值和+-号的位置")
EndScript
EndIf
EndWhile
Rem main
While true
VBS a=myfile.readline
Delay Time1
If mid(a,1,1)="-" or myfile.atendofstream=-1
If asc(xunhuan)=48
EndScript
EndIf
Goto star
EndIf
SayExpression a
KeyPress 13 1
EndWhile
page.txt 文件样式
注意:
1.在按键精灵的Script子文件夹内新键一个page.txt文件。
2.在page.txt文件中的第一行写数字,代表读取第几个“+”处的内容,共可以标9处。
3.在要读的文章开始前一行添加“+”和尾行的下一行添加“-”,就可以读取“+”与“-”之间的文章了。
1,0500,1 [读取第个+处] [间隔时间(毫秒)] [是否循环,循环=1,不循环=0]