winapi手册（中文版）

首先，我对于本文的作者骗人的行为很不爽，从开篇来看是详细分析 API 的文章，但是这

部分内容只有 18 面 ， 后边的大量篇幅全是 API 函数大全 。 很明显 ， 这是一篇拼凑出来的东

西，为了刷分用的，所以我特意重新发出来，免费之！不过前面这段文字对于 API 入门确

实挺有用 ， 值得看看 。 如果想深入点学习 API ， 强烈推荐 VB 学习之 API 教程系列 （ 共七课 ）

。

网上有单独的章节，我在另一个文档中已经将七课合并，并且加入补充章节 ---- 《逻辑坐标

与设备坐标 》 ，免去大家来回找的麻烦。

一、 API 是什么？

这个我本来不想说的 ， 不过也许你知道其它人不知道 ， 这里为了照顾一下新手 ， 不得不

说些废话，请大家谅解。

以上为 API 的相关介绍，不过有些新手看了以后可能还是不怎么明白 API 到底有什么

用？这里请不要着急，如果你有足够耐心的话，请慢慢往下看。

二、如何使用 API ？

估计这才是大家真正关心的 ， 那么如何使用 API 呢？在了解 API 之前 ， 先打开你的 V B

书，翻到过程函数这章来，在搞清楚 API 之前应该先搞懂过程函数是怎么一回事！如果你

还不知道过程的工作方式，那么请先不要急着往下看，那样容易走很多弯路。

好了 ， 当你理解了过程函数时 ， 也就是你可以使用 API 的时候了 ， 别把 API 看得太难

，

你就像使用过程函数一样使用 API 就可以了。首先，让我们看看一个简单的 API ，以下：

Private Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)

以上这个 API 的呢是起一个延时作用。你如果是刚接触 API 的话可能会感到 API 的书

把声明的 API 添加到 VB 代码窗口中了。

这里我要说一下 ， 有些新手可能还弄不明白 。 API 的声明范围一般有两种模式 ， 一种 是

Private( 私有的 ), 一种是 Public( 公用的 ) 。一般 Private 是声明在类模块或窗体类中， Public 声

明在模块中。你在添加 API 的时候，添加按钮下面就有 API 的声明范围，可以根据自己的

需要进行添加。这里我们一般选择私有的 (Private) 就可以了。

经过上面，我们知道如何添加 API ，接着我们分析一下 API 声明，这是你了解 API 必

备的。首先看第一个单词 Private ，很显然，我上面刚刚讲过，这是申明一个私有的 API 变

量 。 再看第二个 Declare ， 这个单词帮我们告诉 VB 是在申明 API 函数 ， 一般申明外在的 AP I

函数时都必须带上这个单词 。 第三个 Sub ， 别告诉我你不知道什么意思？这就是我叫你先学

习 VB 中过程函数的意思，这个说白了就是没有反回值，一般如果不是 Sub 而是 Functio n

都带有反回值的。第四个 Lib ，这个是告诉 VB 我们要声明哪一个 DLL 中的 API 函数，也

就是告诉 VB 我们要申明第五个单词 kernel32.dLL 中的 API ，一般写 DLL 名称时都要用双

引号括起来 ， 如 "user32" 、 "shell32.dll" 等 ， 至于后面的 .dll 这个可以带可不带 。 再来看第六 个

Alias ，这个也是需要同后面一个一起用的，我们应该把第六个和第七个连起来一起看 Alias

"Sleep" ，这个意思表示将被调用的过程在 DLL 中还有另外的名称，这个是可选的。最后括

号里面的，也就是和过程函数一样，你传入相应的值就可以了。

复制到 Form1 代码窗口中，然后写如下代码：

是表示你要延时的秒数 ， 基本上和设置 Timer 中的秒数一样 。 你再看一下 Sleep 2000 的使

用方式，是不是和使用 VB 过程函数一样呢？好了，我们的第一个 VB API 程序写完了 ， 可

式只要可以帮助自己更好的学习和掌握 API ，也没必要一定要学习他人的。

1,

1,

1,

1, 自己做

自己做

自己做

自己做 MsgBox

MsgBox

MsgBox

MsgBox

了解 API 参数的使用方法是很重要的 ， 这里我们不用 VB 的 MsgBox ， 直接使用 API 弹

出 MsgBox 消息框。首先，打开 API 浏览器，选择 MessageBox ，大家可以用这个 API 和

VB 内置的 MsgBox 比较一下 ， 其实 MsgBox 也就是 MessageBox 的缩写 ， 只不过一个是 API

，

一个是 VB 内置的，但两者都是通过 API 进行工作的。好了，选择私有声明方式，粘贴 到

VB 代码编辑窗口中，然后新建一个 CommandButton ，写入以下代码：

Private Declare Function MessageBox Lib "user32" Alias "MessageBoxA"

变量，所以我们这里需要传递的是数字，你可能会发现我们传递的并不是数字啊，而是

Me.hwnd ？？很奇怪是吗？如果你真的有此疑问说明你是真心想要学习好 API 的 ， 现在就让

我们来看看 Me.hwnd 到底是什么东西？以下摘自 VB 帮助文档：

hWnd 属性：返回窗体或控件的句柄。

句 柄：是由操作环境定义的一个唯一的整数值，它被程序用来标识或者切换到对象，

如窗体或控件等。

现在估计你差不多就已经明白了 ， 我们调用的 hwnd 其实是一个句柄整数值 ， 你可以用

Msgbox Me.hwnd 看一下就知道了。至于 Me 这是一个关键字，代表当前 Form 窗体对象

。

如： Me.Caption=" 标题 " 、 Me.BackColor=vbRed 等。

接上面的，首先我们传入了 Me.hwnd ，表示是当前窗口调用 MessageBox ， 这里告诉大

家一个技巧 ， 也就是以后凡是看到 Byval hwnd As Long ， 一般都是需要传入句柄的 ， 至于传

符 wType ， 标识着显示 MsgBox 类型 ， 这里可以像 VB 的 MsgBox 一样使用 ， 如这里可以传

入： vbYesNo,vbOkCancel 等，如果忽略那就传入 0 即可。

及分析 MsgBox 已经完成了。希望你能在这段学习到一些知识。

2,

2,

2,

2, 来点实用的吧

来点实用的吧

来点实用的吧

来点实用的吧

就拿隐藏 Windows 任务管理器来说吧，这里只能隐藏任务管理器中的窗口，不能隐藏

进程。 ( 问：有没有隐藏进程的 ? 答：你想干什么？ ) ，当程序运行后你无法从任务管理器的

窗口中关闭程序，只能从进程中进行终止。好了，还是老规矩，打开 API 浏览器，输 入

GetWindow 和 ShowWindow 两个 API, 声明范围还是私有的 ， 复制粘贴到 Form 代码窗口中

，

嗯 ， 好了？别急 ， 还是 API 浏览器 ， 选择 Combox 中的常数 ， 输入 GW_OWNER 和 SW_HID E

Private Const GW_OWNER = 4

Private Const SW_HIDE = 0

Private Sub Form_Load()

Dim lphWnd As Long

lphWnd = GetWindow(Me.hwnd, GW_OWNER)

ShowWindow lphWnd, SW_HIDE

End Sub

又到了分析的时候了，这对刚入门的新手可谓是最激动的时候了。好了，还是老子 ， 看

看两个 API 的表面意思和传递值变量。

先看 GetWindow, 表面意思 ： 获取窗口 。 传递值变量 ： hWnd 整形句柄 ， wCmd 整形命令

值。

再看 ShowWindow ，表面意思：显示窗口。传递值变量： hWnd 整形句柄， nCmdSho w

整形命令值。

然后是使用代码，先看 lphWnd = GetWindow(Me.hwnd, GW_OWNER) 这句，这句意思

是获取当前窗口的所有者窗口句柄 （ “ print Me.hwnd ” 输出 不关掉窗体每次相同 ， 关掉重

也相同 ） ，可以看到 GetWindow 是 Function 过程函数，执行以后会返回相应的窗口句柄值

，

这个值为 Long 整形 ( 同句柄 ) 。 接着调用 ShowWindow lphWnd, SW_HIDE ， 这句意思是显 示

使用 SW_HIDE 这些常量都有一个共同的特点 ， 就是他们都是以 API 的单词第一个字母为标

准 。 如 GetWindow 相对应的常量就是 Get(G)Window(W)=GW ， ShowWindow 相对应的常就

多还是没讲常量到底有什么作用呵， GW_OWNER 寻找窗口所有者， SW_HIDE 隐藏窗口

活动状态给另一个窗口）

3.

3.

3. 继续往下学吧

继续往下学吧

继续往下学吧 。

上面两个我们讲到了一般 API 的使用方法，和一些 API 常量的使用方法，接着我们来

看看 API 类型的使用方法，在了解这一小节前请先搞懂 VB 中的自定义类型 (Type) 这章 ， 否

则你可能会稀里糊涂的，到时别怪我没提醒你哦！

这次让我们来获取一下鼠标指针的位置。这里教大家一个技巧，当你想用 API 去实现

Private Declare Function GetCursorPos Lib "user32" Alias "GetCursorPos" (lpPoint As

POINTAPI) As Long

好了好了，高兴一下就算了，现在让我们分析一下这个 API ，看其它的没啥不同的 ， 其

中只有一个参数，就是最后一个变量有些不懂？在 VB 中好像没有见过这个变量？不明白

么？那就再继续往下看。

lpPoint As POINTAPI ， POINTAPI ？很显然，在 VB 中并没有此类型，一般都是 String

义类型？答 ： 不知道 , 自已不会看书啊 ) 。 既然是自定义类型 ， 那么我们如何才能知道它是如

何定义的呢？这里也就不用你操心啦 ， 还是 API 浏览器 ， 在最上面的 Combox 中选择类型

，

这时下面 List 中也就自然的把 API 的相关类型显示出来了，现在我们开始在 Text 文本框中

输入我们需要的自定义类型， POINTAPI ，点击添加，出来了吧？如下：

Private Type POINTAPI

好了，现在开始写代码，添加一个 Timer 控件，设置属性见以下：

Interval = 100

End Type

Private Sub Timer1_Timer()

GetCursorPos lpPoint

Me.Caption = "X = " & lpPoint.x & " Y = " & lpPoint.y

End Sub

Dim lpPoint As POINTAPI ， 申明一个 POINTAPI 类型变量 ， 我们学过自定义类型的朋友

GetCursorPos lpPoint ， 这一步我不说你都知道 ， 调用 API 呗 。 通过这个 API 获取鼠标指

Me.Caption = "X = " & lpPoint.x & " Y = " & lpPoint.y ，最后一句，也就是用来显示当前

鼠标的坐标值的，我们通过声明的 lpPoint 变量来获取相应的鼠标坐标值，如果你不懂，那

就请你先把 VB 自定义类型这章学完再说。

这里关于 API 的一些使用方法及范例就先介绍到这里，如果你还有耐心往下看下去的

话，那我们就接着往下聊！

四、如何慢慢提升自己的

四、如何慢慢提升自己的

功力？

功力？

何为 API 功力？其实没必要搞那么清楚，首先需要搞明白的就是，你应该知道在什么