【院刊】-【201409期】纯API，教你画射击游戏的准心 _ 学院院刊

查看: 40647\|回复: 91	[技术交流] 【院刊】-【201409期】纯API，教你画射击游戏的准心 [复制链接]

果果。。

组别初中一年级
UID2314582
帖子240
精华0
鲜花358 朵
铜币1358 个
银币49 个
在线时间1920
注册时间2013-12-26

1^#

字体大小: t T

发表于 2014-09-19 19:26 | |只看楼主

纯API，教你画射击游戏的准心

供稿人：[backcolor=rgb(229, 237, 242)]风__琪仙

有的时候，玩枪击游戏，不想一直使用脚本。想偶尔手动，但是又因为没有准心时常打不准，锵锵锵~那为什么不自己画一个准心呢？我们一起来学习下这个准心要如何画吧~

首先，我们先来简单了解下，要用到的几个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 函数实现。

前一种方法，是使用屏幕刷新 [backcolor=rgb(247, 247, 247)]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

复制代码

本文由按键学院提供技术支持

按键学院实战班（入驻最终幻想）火热招生

按键学院基础视频抢先观看

已有7评分我要评分查看所有评分

本主题由超级版主瑞祥幽冥狼于 2023/4/30 21:02:00 执行审核帖子操作

按键学院交流群（开放中）：376122403 
 
<a href="http://bbs.anjian.com/thread-548439-1-1.html" target="_blank">按键学院开班 【安卓导师】+【实战导师】招聘导师啦~~待遇特别好，有钱，就是任性。 </a> 
 
 
<a href="http://bbs.anjian.com/t

回顶部

发送短消息 UID 343542 帖子 319 精华 0 鲜花 1 朵铜币 809 个银币 14 个性别在线时间 6080 注册时间 2010-01-02 最后登录 2021-11-03 444578341 查看公共资料搜索主题搜索帖子 c545979520 c545979520 组别初中二年级 UID343542 帖子319 精华0 鲜花1 朵铜币809 个银币14 个在线时间6080 注册时间2010-01-02	2^# 字体大小: t T 发表于 2016-04-27 22:06 \| \|只看该用户看看学习学习


	回顶部

发送短消息 UID 3889989 帖子 6 精华 0 鲜花 0 朵铜币 25 个银币 0 个性别在线时间 80 注册时间 2016-04-28 最后登录 2016-04-28 12345 查看公共资料搜索主题搜索帖子磨练技艺磨练技艺组别幼儿园 UID3889989 帖子6 精华0 鲜花0 朵铜币25 个银币0 个在线时间80 注册时间2016-04-28	3^# 字体大小: t T 发表于 2016-04-28 15:51 \| \|只看该用户感谢分享，学习一下


	回顶部

发送短消息 UID 3960715 帖子 68 精华 0 鲜花 0 朵铜币 178 个银币 0 个性别在线时间 1920 注册时间 2016-06-09 最后登录 2016-08-11 462562984 查看公共资料搜索主题搜索帖子 462562984 462562984 组别等待验证会员 UID3960715 帖子68 精华0 鲜花0 朵铜币178 个银币0 个在线时间1920 注册时间2016-06-09	4^# 字体大小: t T 发表于 2016-06-30 20:48 \| \|只看该用户爱上你了怎么办


	回顶部

发送短消息 UID 1781942 帖子 155 精华 0 鲜花 0 朵铜币 569 个银币 160 个性别在线时间 7720 注册时间 2013-05-03 最后登录 2022-06-02 843838675 查看公共资料搜索主题搜索帖子 renpyuwsw renpyuwsw 组别初中一年级 UID1781942 帖子155 精华0 鲜花0 朵铜币569 个银币160 个在线时间7720 注册时间2013-05-03 按键精灵开发者6级可通过提升认证等级来升级勋章：rz.anjian.com	5^# 字体大小: t T 发表于 2016-07-02 12:59 \| \|只看该用户 1112211


	回顶部

发送短消息 UID 1612391 帖子 259 精华 0 鲜花 -3 朵铜币 553 个银币 -3 个性别在线时间 12000 注册时间 2013-02-12 最后登录 2019-01-01 850781124 查看公共资料搜索主题搜索帖子 850781124 Girpex丶组别初中二年级 UID1612391 帖子259 精华0 鲜花-3 朵铜币553 个银币-3 个在线时间12000 注册时间2013-02-12	6^# 字体大小: t T 发表于 2016-07-07 00:07 \| \|只看该用户 233333


	回顶部

发送短消息 UID 3866754 帖子 77 精华 0 鲜花 0 朵铜币 365 个银币 0 个性别在线时间 2900 注册时间 2016-04-14 最后登录 2016-08-24 查看公共资料搜索主题搜索帖子 j12716 组别小学三年级 UID3866754 帖子77 精华0 鲜花0 朵铜币365 个银币0 个在线时间2900 注册时间2016-04-14	7^# 字体大小: t T 发表于 2016-07-08 14:17 \| \|只看该用户学习学习


	回顶部

发送短消息 UID 971470 帖子 8 精华 0 鲜花 1 朵铜币 41 个银币 0 个性别在线时间 200 注册时间 2012-01-10 最后登录 2016-11-19 791483393 查看公共资料搜索主题搜索帖子 aa7914 aa7914 组别幼儿园 UID971470 帖子8 精华0 鲜花1 朵铜币41 个银币0 个在线时间200 注册时间2012-01-10	8^# 字体大小: t T 发表于 2016-08-05 13:04 \| \|只看该用户


	回顶部

发送短消息 UID 4053273 帖子 11 精华 0 鲜花 0 朵铜币 48 个银币 0 个性别在线时间 120 注册时间 2016-08-07 最后登录 2016-11-13 查看公共资料搜索主题搜索帖子 bluelionest 组别幼儿园 UID4053273 帖子11 精华0 鲜花0 朵铜币48 个银币0 个在线时间120 注册时间2016-08-07	9^# 字体大小: t T 发表于 2016-08-07 22:21 \| \|只看该用户看看学学，基础最好


	回顶部

发送短消息 UID 3242499 帖子 202 精华 0 鲜花 0 朵铜币 806 个银币 165 个性别在线时间 4040 注册时间 2015-05-10 最后登录 2024-09-15 查看公共资料搜索主题搜索帖子 18775396817 按键精灵966 组别按键精灵会员 UID3242499 帖子202 精华0 鲜花0 朵铜币806 个银币165 个在线时间4040 注册时间2015-05-10 按键精灵开发者4级可通过提升认证等级来升级勋章：rz.anjian.com	10^# 字体大小: t T 发表于 2016-08-30 17:36 \| \|只看该用户 asds 阿萨德撒的


	回顶部

发送短消息 UID 3854688 帖子 48 精华 0 鲜花 0 朵铜币 102 个银币 0 个性别在线时间 1100 注册时间 2016-04-07 最后登录 2018-09-28 327079443 查看公共资料搜索主题搜索帖子戴家林戴家林组别小学二年级 UID3854688 帖子48 精华0 鲜花0 朵铜币102 个银币0 个在线时间1100 注册时间2016-04-07	11^# 字体大小: t T 发表于 2016-08-30 21:38 \| \|只看该用户 333333333333333333333333333333333


	回顶部

发送短消息 UID 4060473 帖子 6675 精华 0 鲜花 -63 朵铜币 6735 个银币 -63 个性别在线时间 34240 注册时间 2016-08-10 最后登录 2017-08-08 查看公共资料搜索主题搜索帖子 kongtianyi 组别博士后 UID4060473 帖子6675 精华0 鲜花-63 朵铜币6735 个银币-63 个在线时间34240 注册时间2016-08-10	12^# 字体大小: t T 发表于 2016-09-01 17:14 \| \|只看该用户学习下啊学习


	回顶部

发送短消息 UID 4000980 帖子 28 精华 0 鲜花 -1 朵铜币 64 个银币 -1 个性别在线时间 460 注册时间 2016-07-05 最后登录 2016-09-26 1911550370 查看公共资料搜索主题搜索帖子 zzj28 zzj28 组别小学一年级 UID4000980 帖子28 精华0 鲜花-1 朵铜币64 个银币-1 个在线时间460 注册时间2016-07-05	13^# 字体大小: t T 发表于 2016-09-18 22:14 \| \|只看该用户 *** 该内容需您回复才可浏览 ***


	回顶部

发送短消息 UID 780713 帖子 162 精华 0 鲜花 0 朵铜币 542 个银币 157 个性别在线时间 3560 注册时间 2011-09-19 最后登录 2017-02-09 135908855 查看公共资料搜索主题搜索帖子 zbcgame zbcgame 组别初中一年级 UID780713 帖子162 精华0 鲜花0 朵铜币542 个银币157 个在线时间3560 注册时间2011-09-19 按键精灵开发者4级可通过提升认证等级来升级勋章：rz.anjian.com	14^# 字体大小: t T 发表于 2016-09-28 14:47 \| \|只看该用户


	回顶部

发送短消息 UID 3483344 帖子 201 精华 0 鲜花 -4 朵铜币 441 个银币 156 个性别在线时间 26060 注册时间 2015-09-23 最后登录 2024-10-21 查看公共资料搜索主题搜索帖子 729881202 729881202 组别初中一年级 UID3483344 帖子201 精华0 鲜花-4 朵铜币441 个银币156 个在线时间26060 注册时间2015-09-23 按键精灵开发者6级可通过提升认证等级来升级勋章：rz.anjian.com	15^# 字体大小: t T 发表于 2016-10-06 13:38 \| \|只看该用户 7987979651361321


	回顶部

发送短消息 UID 4121457 帖子 413 精华 0 鲜花 190 朵铜币 10558 个银币 210 个性别在线时间 15880 注册时间 2016-09-16 最后登录 2021-02-08 查看公共资料搜索主题搜索帖子 yhpatjdy 组别小学三年级 UID4121457 帖子413 精华0 鲜花190 朵铜币10558 个银币210 个在线时间15880 注册时间2016-09-16 按键精灵开发者6级可通过提升认证等级来升级勋章：rz.anjian.com	16^# 字体大小: t T 发表于 2016-10-07 02:10 \| \|只看该用户很给力
	承接脚本软件程序定制开发联系作者请点击，或加QQ：1945994728

	回顶部

发送短消息 UID 4082644 帖子 74 精华 0 鲜花 -1 朵铜币 155 个银币 59 个性别在线时间 1960 注册时间 2016-08-22 最后登录 2017-05-12 12345 查看公共资料搜索主题搜索帖子 Ryan1H Ryan1H 组别小学四年级 UID4082644 帖子74 精华0 鲜花-1 朵铜币155 个银币59 个在线时间1960 注册时间2016-08-22 按键精灵开发者3级可通过提升认证等级来升级勋章：rz.anjian.com	17^# 字体大小: t T 发表于 2016-10-12 23:00 \| \|只看该用户看看


	回顶部

发送短消息 UID 92677 帖子 314 精华 0 鲜花 8 朵铜币 874 个银币 8 个性别在线时间 11300 注册时间 2006-08-21 最后登录 2024-11-17 查看公共资料搜索主题搜索帖子 fittome fittome 组别初中二年级 UID92677 帖子314 精华0 鲜花8 朵铜币874 个银币8 个在线时间11300 注册时间2006-08-21	18^# 字体大小: t T 发表于 2016-10-17 01:02 \| \|只看该用户 ddddddddd


	回顶部

发送短消息 UID 1121143 帖子 758 精华 0 鲜花 -30 朵铜币 5968 个银币 298 个性别在线时间 15440 注册时间 2012-05-01 最后登录 2023-04-13 461180224 查看公共资料搜索主题搜索帖子 vipwangwei vipwangwei 组别小精灵商业作者 UID1121143 帖子758 精华0 鲜花-30 朵铜币5968 个银币298 个在线时间15440 注册时间2012-05-01 按键精灵开发者1级可通过提升认证等级来升级勋章：rz.anjian.com	19^# 字体大小: t T 发表于 2016-10-20 13:01 \| \|只看该用户】纯API，教你画射击游戏的准心修改.


	回顶部

发送短消息 UID 3984733 帖子 41 精华 0 鲜花 0 朵铜币 120 个银币 0 个性别在线时间 2800 注册时间 2016-06-24 最后登录 2017-01-03 12345 查看公共资料搜索主题搜索帖子 qnajeyy qnajeyy 组别等待验证会员 UID3984733 帖子41 精华0 鲜花0 朵铜币120 个银币0 个在线时间2800 注册时间2016-06-24	20^# 字体大小: t T 发表于 2016-10-23 20:35 \| \|只看该用户


	回顶部

上一主题| 下一主题

[技术交流] 【院刊】-【201409期】纯API，教你画射击游戏的准心 [复制链接]