学会用按键精灵制作脚本教程：教你画射击游戏的准心.docx

学会用按键精灵制作脚本之纯API教程：教你画射击游戏的准心
       来源：按键学院 【按键精灵】
有的时候，玩枪击游戏，不想一直使用脚本。想偶尔手动，但是又因为没有准心时常打不准，锵锵锵~那为什么不自己画一个准心呢？我们一起来学习下这个准心要如何画吧~

首先，我们先来简单了解下，要用到的几个Api函数，吼吼

SetROP2

声明
Declare Function SetROP2 Lib "gdi32" Alias "SetROP2" (ByVal hdc As Long, ByVal nDrawMode As Long) As Long
功能
主要用于设定当前前景色的混合模式。R2_NOT就是取反的意思，即前景色为背景色的反色，经常用R2_NOT来画橡皮线，因为两次取反可以还原背景色。
参数
1.设备场景的句柄   2.设备场景的新绘图模式
返回值
如执行成功，返回前一个绘图模式；零表示出错

GetWindowDC

声明
Declare Function GetWindowDC Lib "user32" Alias "GetWindowDC" (ByVal hwnd As Long) As Long
功能
获取整个窗口（包括边框、滚动条、标题栏、菜单等）的设备场景
参数
窗口句柄
返回值
设备句柄

CreatePen

声明
Declare Function CreatePen Lib "gdi32" Alias "CreatePen" (ByVal nPenStyle As Long, ByVal nWidth As Long, ByVal crColor As Long) As Long
功能
用指定的样式、宽度和颜色创建一个画笔
参数
画笔类型
返回值
如函数执行成功，就返回指向新画笔的一个句柄；否则返回零

SelectObject

声明
Declare Function SelectObject Lib "gdi32" Alias "SelectObject" (ByVal hdc As Long, ByVal hObject As Long) As Long
功能
每个设备场景都可能有选入其中的图形对象。其中包括位图、刷子、字体、画笔以及区域等等。一次选入设备场景的只能有一个对象。选定的对象会在设备场景的绘图操作中使用。例如，当前选定的画笔决定了在设备场景中描绘的线段颜色及样式
参数
1.一个设备场景的句柄     2.一个画笔、位图、刷子、字体或区域的句柄
返回值
与以前选入设备场景的相同hObject类型的一个对象的句柄，零表示出错。如选定的对象是一个区域（Region），结果就是下列常数之一：SIMPLEREGION， COMPLEXREGION 或 NULLREGION 对区域进行描述， GDI_ERROR 表示出错

MoveToEx

声明
Declare Function MoveToEx Lib "gdi32" Alias "MoveToEx" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, lpPoint As POINTAPI) As Long
功能
为指定的设备场景指定一个新的当前画笔位置。前一个位置保存在lpPoint中
参数
1.指向一个设备场景的句柄  2.采用逻辑坐标表示的新画笔位置 3.前一个画笔位置
返回值
非零表示成功，零表示失败

LineTo

声明
Declare Function LineTo Lib "gdi32" Alias "LineTo" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long
功能
用当前画笔画一条线，从当前位置连到一个指定的点。这个函数调用完毕，当前位置变成x,y点
参数
1设备场景的句柄   2.线段终点位置，采用逻辑坐标表示。这个点不会实际画出来；它不属于线段的一部分
返回值
非零表示成功，零表示失败

DeleteObject

声明
Declare Function DeleteObject Lib "gdi32" Alias "DeleteObject" (ByVal hObject As Long) As Long
功能
用这个函数删除GDI对象，比如画笔、刷子、字体、位图、区域以及调色板等等。对象使用的所有系统资源都会被释放
参数
一个GDI对象的句柄
返回值
非零表示成功，零表示失败

我们拿桌面窗口做例子，在桌面窗口上画一个准心，准心随着鼠标移动而移动。
脚本大致过程：
1、 获取当前鼠标坐标，以鼠标坐标作为画笔位置
2、 取设备句柄，这里设置取屏幕设备句柄
3、 创建一个画笔对象
4、 将创建的画笔对象载入到设备场景里（当前屏幕即是设备场景）。
5、 清屏一次，消除之前画笔对象画的准心
6、 指定好画笔开始的位置，（设置鼠标所在的坐标）
7、 以鼠标坐标为中心，画一条横线。以鼠标坐标为中心，画一条竖线
8、 加入Do……Loop 循环，画一个准心删除一个准心，这样就实现了准心跟随鼠标移动而移动
代码：
Declare Function 取设备句柄 Lib "user32" Alias "GetWindowDC" (ByVal hwnd As Long) As Long
Declare Function 创建画笔对象 Lib "gdi32" Alias "CreatePen" (ByVal nPenStyle As Long, ByVal nWidth As Long, ByVal crColor As Long) As Long
Declare Function 选入场景 Lib "gdi32.dll" Alias "SelectObject" (ByVal hwnd As Long,ByVal hwnd As Long) As Long
Declare Function 指定画笔位置 Lib "gdi32" Alias "MoveToEx" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal x As Long) As Long
Declare Function 画直线 Lib "gdi32" Alias "LineTo" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long
Declare Function 删除对象 Lib "gdi32" Alias "DeleteObject" (ByVal hObject As Long) As Long
//取设备句柄（窗口句柄）[返回设备句柄，整数型]
//创建画笔对象（类型，宽度，颜色）[返回对象句柄]
//选人场景（设备句柄，场景句柄）
//指定画笔位置(设备句柄，X，Y，坐标结购)
//画直线（设备句柄，终点X，终点Y）
//删除对象（对象句柄）

Do

GetCursorPos x, y
设备句柄 =取设备句柄(0)//窗口句柄为0时，取屏幕设备句柄，如在指定窗口画就填写窗口句柄
对象句柄 = 创建画笔对象(1, 2, 255)//参数1为类型，参数2为线条粗细，参数3为10进制的颜色值（255是红色）
TracePrint 设备句柄
TracePrint 对象句柄
TracePrint  选入场景(设备句柄, 对象句柄)//此操作相当于windows画图时鼠标选择了画笔按钮。
Call Plugin.Msg.HideScrTXT()
TracePrint  指定画笔位置(设备句柄,x-50,y,坐标结构)//坐标结构不要使用，按键不支持此数据类型
TracePrint 画直线(设备句柄, x + 50, y )//画横线

TracePrint  指定画笔位置(设备句柄,x,y-50,坐标结构)//坐标结构不要使用，按键不支持此数据类型
TracePrint 画直线(设备句柄, x, y + 50)//画竖线

loop

TracePrint  删除对象(对象句柄)'画完以后记得释放对象

另一种方法，通过 SetROP2 函数实现。

前一种方法，是使用屏幕刷新   Call Plugin.Msg.HideScrTXT()  用屏幕刷新来实现，画完一个准心刷新一次屏幕，把前面的画的准心清除掉。 SetROP2  函数是使用反色来覆盖掉前一次画的准心。

脚本大致思路：
1、 画准心前，先取屏幕背景色的反色作为画笔的颜色，并且记录好当前鼠标坐标。
2、 画一个准心。
3、 画完之后，再次取反色，第一次获取屏幕背景色的反色，然后第二次再取反色，那这次取到的就是屏幕的背景色了。然后利用原来记录好的鼠标坐标，画一个准心，相当于把之前画的准心用屏幕背景色再画一次进行覆盖。
4、 循环画准心，达到鼠标移动，准心跟着移动的效果。

代码：
Declare Function 反色 Lib "gdi32" Alias "SetROP2" (ByVal hdc As Long, ByVal nDrawMode As Long) As Long
Declare Function 取设备句柄 Lib "user32" Alias "GetWindowDC" (ByVal hwnd As Long) As Long
Declare Function 创建画笔对象 Lib "gdi32" Alias "CreatePen" (ByVal nPenStyle As Long, ByVal nWidth As Long, ByVal crColor As Long) As Long
Declare Function 选入场景 Lib "gdi32.dll" Alias "SelectObject" (ByVal hwnd As Long,ByVal hwnd As Long) As Long
Declare Function 指定画笔位置 Lib "gdi32" Alias "MoveToEx" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal x As Long) As Long
Declare Function 画直线 Lib "gdi32" Alias "LineTo" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long
Declare Function 删除对象 Lib "gdi32" Alias "DeleteObject" (ByVal hObject As Long) As Long

//反色 （设备句柄，绘图模式）
//取设备句柄（窗口句柄）[返回设备句柄，整数型]
//创建画笔对象（类型，宽度，颜色）[返回对象句柄]
//选人场景（设备句柄，场景句柄）
//指定画笔位置(设备句柄，X，Y，坐标结购)
//画直线（设备句柄，终点X，终点Y）
//删除对象（对象句柄）

// x1，y1 绘制坐标                x2，y2 上次绘制坐标
Dim x1, x2, y1, y2
设备句柄 =取设备句柄(0)//取桌面窗口设备句柄，如在指定窗口画就填写窗口句柄
对象句柄 = 创建画笔对象(1, 2, 0)//参数1为类型，参数2为线条粗细，参数3为10进制的颜色值（这里用到了反色api准心是背景反色就不设置颜色了）
TracePrint 设备句柄
TracePrint 对象句柄
TracePrint  选入场景(设备句柄, 对象句柄)//此操作相当于windows画图时鼠标选择了画笔按钮。

Do
        反色 设备句柄, 6  //R2_NOT 绘图模式的值是6
        TracePrint 指定画笔位置(设备句柄, x2 - 50, y2, 坐标结构)//坐标结构不要使用，按键不支持此数据类型
        TracePrint 画直线(设备句柄, x2 + 50, y2 )//画横线

        TracePrint 指定画笔位置(设备句柄, x2, y2 - 50, 坐标结构)//坐标结构不要使用，按键不支持此数据类型
        TracePrint 画直线(设备句柄, x2, y2 + 50)//画竖线

        GetCursorPos x1, y1

        反色 设备句柄,6
        TracePrint 指定画笔位置(设备句柄, x1 - 50, y1, 坐标结构)//坐标结构不要使用，按键不支持此数据类型
        TracePrint 画直线(设备句柄, x1 + 50, y1 )//画横线

        TracePrint 指定画笔位置(设备句柄, x1, y1 - 50, 坐标结构)//坐标结构不要使用，按键不支持此数据类型
        TracePrint 画直线(设备句柄, x1, y1 + 50)//画竖线
        x2 = x1
        y2 = y1
loop