按键精灵8详细使用方法

按键精灵8详细使用方法

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