按键精灵制作好的脚本保存在按键精灵根目下, *** 作方法如下:
1、首先打开电脑中的按键精灵,然后选择录制按钮。
2、然后d出一个 *** 作小窗口,按住红色按键就可以执行录制。
3、打开要执行命令的页面,这里录制不停的 *** 作,打开红色按钮后,直接点击百度一下多次,这时候记住所有 *** 作都会被录制。
4、成功录制后保存,这时候就会d出自动生成的后台程序代码。
5、更改脚本名称以容易记忆,然后退出到主界面,勾选该脚本有效。
6、最后按住F10执行脚本命令,按住F12终止。记住设置循环的次数,不能设置成死循环了,就完成了。
自动寻路脚本的制作有几个关键点:
1 由于现在的网游大多是3D的,当前视角可能是变化的,因此,你必须要确保或设置游戏的视角不变。
2 屏幕上的坐标点与人物的坐标点要找到对应关系,因为屏幕是不变的,而人物坐标是变化的。有些网游人物在同一屏幕(即人物不超出当前屏幕范围,屏幕画面不变),这种情况则直接使用屏幕坐标就可以了,只要保证人物不会超出屏幕范围。
--提高找图速度的3种方式
1、善于利用按键移动版新增的KeepCapture和ReleaseCapture函数
KeepCapture:截取当前并保存在缓存中,并让接下来的所有找图、找色都在这张缓存图中查找;ReleaseCapture:清除缓存中,之后的所有找图、找色函数都会截取最新游戏画面再查找。
2、尽可能缩小附件中的尺寸
附件中的尺寸要尽可能的小,查找范围也是越小越好,现在手机分辨率都很高,一张看上去很小的图,在电脑上看原始尺寸其实很大了,找那么大的图速度肯定比找小图慢很多。
3、尽可能缩小查找的范围
可以事先观察一下可能在屏幕出现的范围,只在这个范围内找图,而不是总用全屏查找。
--普通找图写法
Dim rColor,intX,intY
do
FindPic 0,0,1080,1920,"Attachment:怪物png",0,09,intX,intY
If intX > 0 And intY > 0 Then
TracePrint "正在战斗"
End If
FindPic 0,0,1080,1920,"Attachment:战斗结束png",0,09,intX,intY
If intX > 0 And intY > 0 Then
TracePrint "战斗结束了"
Exit do
End If
rColor = GetPixelColor(100, 200)
If ColorDiff(rColor,"FFFFFF")<=80 then
TracePrint "血量低该喝药啦"
End If
loop
说明:
1、普通找图、找色函数直接调用时都会先截取当前手机最新画面,一个循环下来就要截取3次画面;
2、所有找图的范围都是全屏查找,速度较慢。
--高速找图写法
Dim rColor,intX,intY
do
KeepCapture
FindPic 200,600,700,900,"Attachment:怪物png",0,09,intX,intY
If intX > 0 And intY > 0 Then
TracePrint "正在战斗"
End If
FindPic 500,700,900,1200,"Attachment:战斗结束png",0,09,intX,intY
If intX > 0 And intY > 0 Then
TracePrint "战斗结束了"
Exit do
End If
rColor = GetPixelColor(100, 200)
If ColorDiff(rColor,"FFFFFF")<=80 then
TracePrint "血量低该喝药啦"
End If
ReleaseCapture
loop
ReleaseCapture'这里的清除缓存很多人容易忘记
说明:
1、由于在循环里加入了KeepCapture和ReleaseCapture,一个循环仅截取1次画面,速度大大加快;
2、由于根据可能出现的位置缩小了查找范围,速度大大加快;
3、特别特别注意Exit do执行时循环中的ReleaseCapture被跳过情况,所以要在最后也加上一句ReleaseCapture,否则之后所有找图找色依然在循环里截取的旧图中查找。
Text = PluginFileReadFileEx("E:\111txt")
MyArray = Split(Text, "|")
Text1 = PluginFileReadFileEx("E:\222txt")
MyArray1 = Split(Text1, "|")
Text2 = PluginFileReadFileEx("E:\333txt")
MyArray2 = Split(Text2, "|")
Text3 = PluginFileReadFileEx("E:\444txt")
MyArray3 = Split(Text3, "|")
For i=0 to UBound(MyArray)-1
SayString MyArray(i)
Set WshShell=CreateObject("WScriptShell")
Set objFSO=CreateObject("ScriptingFileSystemObject")
Set objFile=objFSOOpenTextFile("E:\111txt",1)
strLine=objFileReadline
KeyPress "Tab", 1
SayString MyArray1(0)
Delay 500
KeyPress "Tab", 1
SayString MyArray2(0)
Delay 500
KeyPress "Tab", 1
SayString MyArray2(0)
Delay 500
KeyPress "Tab", 1
SayString MyArray3(0)
Delay 500
KeyPress "Tab", 1
SayString MyArray3(0)
Delay 500
FindPic 0,0,1024,768,"E:\1bmp",09,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX+20, intY+10
Delay 500
LeftClick 1
Delay 500
如果找到4bmp
在坐标50,50,100,100以刚才从E:\111txt输入的文本为名截图,保存到E:\
如果找到3bmp
KeyPress "Enter", 1
Delay 500
FindPic 0,0,1024,768,"E:\2bmp",1,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX+20, intY+15
LeftClick 1
Delay 300
End If
End If
Next
感谢各位大神
我刚接触按键精灵,需要保存大量网页,另存文件名那里不会弄了。
积分奉上,谢谢帮忙。
//1点右键查看源文件d出记事本另存
RightClick 1
Delay 50
KeyPress "V", 1
Delay 50
KeyDown 18, 1
KeyPress 70, 1
KeyUp 18, 1
Delay 50
KeyPress "A", 1
Delay 50
//2输入文件名txt并且,每次循环一次+1,其实可定义。
//3关闭记事本
以上就是关于按键精灵制作好的脚本保存在哪个文件夹老全部的内容,包括:按键精灵制作好的脚本保存在哪个文件夹老、按键精灵怎么自动寻路、求助,手机按键精灵寻图路径等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)