当前位置:   article > 正文

彩虹六号按键精灵挂机脚本制作教程_按键精灵游戏挂机脚本制作

按键精灵游戏挂机脚本制作

彩虹六号按键精灵挂机脚本制作教程

首先你需要对按键精灵的基础语法有所了解,建议b站,基本上几个小时就能掌握(有一定开发语言基础)。以下代码会帮你以极快的速度开发出一个能用的挂机脚本。

编译器下载地址:按键精灵官网

玩的时间有限,不能啥脚本都自己开发,大家一起开发能共享就共享吧。

Global x
Global y //全局声明 游戏位置 电脑左上角为坐标原点


hwnd = Plugin.Window.Find(0, "Rainbow Six")//获取彩六的窗口 其他游戏一样 从窗口名获取游戏窗口信息
sWindow = Plugin.Window.IsWindow(Hwnd)
If sWindow=1 Then 

Rem prostart //程序可以跳回到这个位置

Rect = Plugin.Window.GetWindowRect(Hwnd)
MyArray = Split(Rect, "|")
x = Clng(MyArray(0)):y = Clng(MyArray(1))//这里的(x,y)是窗口包含边框的左上角坐标,可用后台操作Rect = Plugin.Window.GetClientRect(Hwnd)MyArray = Split(Rect, "|")x = Clng(MyArray(0))y = Clng(MyArray(1))//这里的(x,y)是窗口不含边框(称为客户区)的左上角坐标

	
If x < - 1000  Then //游戏打开了 但窗口未置前
MsgBox  "请保持游戏靠前,脚本退出,重启脚本"
ExitScript 
End If

// 主要代码写在这里
Call xuanren()//调用选人函数
Call chongshi()
//主要代码区


Goto prostart //跳回到prostart位置 所有脚本没有触发热键就会一直连续执行
ElseIf sWindow = 0 Then
MessageBox "游戏未打开 打开后再重启脚本"
ExitScript
End If
  • 1
  • 2
  • 3
  • 4
  • 5
  • 6
  • 7
  • 8
  • 9
  • 10
  • 11
  • 12
  • 13
  • 14
  • 15
  • 16
  • 17
  • 18
  • 19
  • 20
  • 21
  • 22
  • 23
  • 24
  • 25
  • 26
  • 27
  • 28
  • 29
  • 30
  • 31

主要代码

选人函数

Function xuanren()//选人
Dim MyArray1
	A=Plugin.Color.FindMutiColor(x+180,y+60,x+450,y+220,"975B10","7|6|975B10,10|8|FFFFFF,12|8|FFFFFF,13|14|FFFFFF,12|20|FFFFFF",1)
	//这是核心 识别游戏特定页面上的图像 前四个参数是限制监控屏幕范围(按键精灵编译器有解释)
MyArray = Split(A, "|")
Ax = CInt(MyArray(0)): Ay = CInt(MyArray(1))
If Ax > 0  Then 
TracePrint "选人"
	
For 5
Delay 1000
KeyPress "Enter", 1	//间隔1s连续执行5次按下enter
Next

End If
End Function
  • 1
  • 2
  • 3
  • 4
  • 5
  • 6
  • 7
  • 8
  • 9
  • 10
  • 11
  • 12
  • 13
  • 14
  • 15
  • 16

重试函数

Function chongshi()
B=Plugin.Color.FindMutiColor(x+140,y+340,x+420,y+410,"E18411","19|0|E18411,51|1|E18411,33|6|FFFFFF,27|12|FFFFFF,24|15|FFFFFF,14|17|E18411,23|21|E18411,39|14|E18411",1)
dim MyArray2 //局部变量 不要和全局变量一样命名
MyArray2 = Split(B, "|")
Bx = CInt(MyArray2(0)): By = CInt(MyArray2(1))
//
If Bx > 0 and By > 0 Then 
TracePrint "重试"
MoveTo x + 220, y + 220//鼠标移动
Delay 500	
LeftClick 1
Delay 1000
MoveTo X + 550, Y + 650
Delay 500
LeftClick 1
Delay 1000
KeyPress "Enter", 1

End If
End Function
  • 1
  • 2
  • 3
  • 4
  • 5
  • 6
  • 7
  • 8
  • 9
  • 10
  • 11
  • 12
  • 13
  • 14
  • 15
  • 16
  • 17
  • 18
  • 19
  • 20
声明:本文内容由网友自发贡献,不代表【wpsshop博客】立场,版权归原作者所有,本站不承担相应法律责任。如您发现有侵权的内容,请联系我们。转载请注明出处:https://www.wpsshop.cn/w/笔触狂放9/article/detail/198351
推荐阅读
相关标签
  

闽ICP备14008679号