按键精灵咋反复按一组建

按键精灵如何反复按一组建 例如ASDFGGFDA

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

本脚本以前主要是玩热血挂机时看小说用的。本人练个医生，实在无聊就用这个解闷看小说，后来发现还可以刷屏。

//本脚本不用修改，只需设置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]
+1
桃花坞里桃花庵，
桃花庵下桃花仙。
桃花仙人种桃树，
又摘桃花换酒钱。
酒醒只在花前坐，
酒醉还来花下眠。
半醉半醒日复日，
花落花开年复年。
但愿老死花酒间，
不愿鞠躬车马前。
车尘马足显者事，
酒盏花枝隐士缘。
若将显者比隐士，
一在平地一在天。
若将花酒比车马，
彼何碌碌我何闲。
别人笑我太疯癫，
我笑他人看不穿。
不见五陵豪杰墓，
无花无酒锄作田。
各位朋友大家好 ^_^
-
+2
组QE，打手刷CK
-
+3


-
注：我在这里只添了三处+-，你可以自己再添加。

好了，你不用看懂脚本的意思，你只需修改page.txt文件内的内容就可以了，你可以把+-号之间的文字换成你需要的内容就好了。
弄个page.txt快捷方式放到桌面，以后就只需打开page.txt的快捷方式，修改并保存一下内容就又有新内容了，完全不用理会脚本修改。全傻瓜化的。就这么简单！

Rem 123 KeyPress 65,1 Delay 200 KeyPress 83,1 Delay 200 KeyPress 68,1 Delay 200 KeyPress 70,1 Delay 200 KeyPress 71,1 Delay 200 KeyPress 71,1 Delay 200 KeyPress 70,1 Delay 200 KeyPress 68,1 Delay 200 KeyPress 65,1 Goto 123 这是按你说的按键7的脚本 

刷新连接错误