| |
所谓通用就是适用所用游戏的刷屏，只要能运行按键精灵，有说话的输入地方就可以刷屏！
本脚本以前主要是玩热血挂机时看小说用的。本人练个医生，实在无聊就用这个解闷看小说，后来发现还可以刷屏。
//本脚本不用修改，只需设置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的快捷方式，修改并保存一下内容就又有新内容了，完全不用理会脚本修改。全傻瓜化的。就这么简单！ |
|
