按键精灵简易制作方法.doc

所谓通用就是适用所用游戏的刷屏，只要能运行按键精灵，有说话的输入地方就可以刷屏！
本脚本以前主要是玩热血挂机时看小说用的。本人练个医生，实在无聊就用这个解闷看小说，后来发现还可以刷屏。
//本脚本不用修改，，只要能运行按键精灵，有说话的输入地方就可以刷屏！
本脚本以前主要是玩热血挂机时看小说用的。本人练个医生，实在无聊就用这个解闷看小说，后来发现还可以刷屏。
//本脚本不用修改，。
//。
//，代表读取第几个“+”处的内容，共可以标9处
//在要读的文章开始前一行添加“+”和尾行的下一行添加“-”，就可以读取“+”与“-”之间的文章了
//，！
Rem star
VBS Dim fso,n
n=0
xunhuan=0
wen=""
VBS set fso=CreateObject("")
VBS const forreading=1
VBS const forwriting=2
VBS const forappending=8
//============读取TXT文件内容====叫喊、看长篇、短篇小说、刷屏等只要是文字就可以看===================
VBS set myfile=(wen,forreading)
VBS a=
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=
If mid(a,1,1)="+"
n=n+1
If asc(n)=asc(i)
Goto main
EndIf
EndIf
If =-1
SayString 没有找到相关内容，请重新设定数值或+-号的位置
VBSCall MessageBox("没有找到相关内容，重新设定数值和+-号的位置")
EndScript
EndIf
EndWhile
Rem main
While true
VBS a=
Delay Time1
If mid(a,1,1)="-" or =-1
If asc(xunhuan)=48
EndScript
EndIf
Goto star
EndIf
SayExpression a
KeyPress 13 1
EndWhile
文件样式
注意：
。