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

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

首先你需要对按键精灵的基础语法有所了解，建议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

主要代码

选人函数

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

重试函数

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