VB新手初识API完整版Word文档格式.docx
《VB新手初识API完整版Word文档格式.docx》由会员分享,可在线阅读,更多相关《VB新手初识API完整版Word文档格式.docx(28页珍藏版)》请在冰点文库上搜索。
dwMilliseconds
As
Long)
以上这个API的呢是起一个延时作用。
你如果是刚接触API的话可能会感到API的书写及其复杂,而且会感到很不适应。
其实这没什么的,慢慢习惯就好了。
至于API这些复杂的书写你就不用操心了,在你安装VB的时候微软已经帮我们带上了API浏览器,这些全部都可以利用API浏览器帮我们自动生成。
API浏览器的位置位于[开始菜单-程序-Microsoft
Visual
Basic
6.0
中文版-Microsoft
中文版工具-API
文本浏览器]。
打开API浏览器,在最上面的一个文本框中输入Sleep,这时下面列表框中就会自动显示相应的API函数,然后点右边添加按钮即可,接着点击复制按钮,这时你就可以用Ctrl+V把声明的API添加到VB代码窗口中了。
这里我要说一下,有些新手可能还弄不明白。
API的声明范围一般有两种模式,一种是Private(私有的),一种是Public(公用的)。
一般Private是声明在类模块或窗体类中,Public声明在模块中。
你在添加API的时候,添加按钮下面就有API的声明范围,可以根据自己的需要进行添加。
这里我们一般选择私有的(Private)就可以了。
经过上面,我们知道如何添加API,接着我们分析一下API声明,这是你了解API必备的。
首先看第一个单词Private,很显然,我上面刚刚讲过,这是申明一个私有的API变量。
再看第二个Declare,这个单词帮我们告诉VB是在申明API函数,一般申明外在的API函数时都必须带上这个单词。
第三个Sub,别告诉我你不知道什么意思?
这就是我叫你先学习VB中过程函数的意思,这个说白了就是没有反回值,一般如果不是Sub而是Function都带有反回值的。
第四个Lib,这个是告诉VB我们要声明哪一个DLL中的API函数,也就是告诉VB我们要申明第五个单词kernel32.dLL中的API,一般写DLL名称时都要用双引号括起来,如"
user32"
、"
shell32.dll"
等,至于后面的.dll这个可以带可不带。
再来看第六个Alias,这个也是需要同后面一个一起用的,我们应该把第六个和第七个连起来一起看Alias
,这个意思表示将被调用的过程在DLL中还有另外的名称,这个是可选的。
最后括号里面的,也就是和过程函数一样,你传入相应的值就可以了
上面我们分析完API函数声明以后,接着我们就要自己动手写代码了。
先把这个API复制到Form1代码窗口中,然后写如下代码:
Private
Form_Load()
2000
End
Sub
解释一下,也就是在窗体启动时使用Sleep
API进行延时2秒,后面的参数dwMilliseconds是表示你要延时的秒数,基本上和设置Timer中的秒数一样。
你再看一下Sleep 2000的使用方式,是不是和使用VB过程函数一样呢?
好了,我们的第一个VB
API程序写完了,可以看到使用API并不是一件很难的事。
三、如何才能提升你对API的学习兴趣?
API,我常把它看做成过程函数,不过每人都有每人的见解和理解方式,自己的理解方式只要可以帮助自己更好的学习和掌握API,也没必要一定要学习他人的。
1,自己做MsgBox
了解API参数的使用方法是很重要的,这里我们不用VB的MsgBox,直接使用API弹出MsgBox消息框。
首先,打开API浏览器,选择MessageBox,大家可以用这个API和VB内置的MsgBox比较一下,其实MsgBox也就是MessageBox的缩写,只不过一个是API,一个是VB内置的,但两者都是通过API进行工作的。
好了,选择私有声明方式,粘贴到VB代码编辑窗口中,然后新建一个CommandButton,写入以下代码:
Function
MessageBox
MessageBoxA"
hwnd
Long,
ByVal
lpText
String,
lpCaption
wType
Long)
Long
Command1_Click()
Me.hwnd,
这里是内容"
标题"
0
先让我们来分析一下,首先看第一个参数Byval
hWnd
Long,很显然这是一个长整形变量,所以我们这里需要传递的是数字,你可能会发现我们传递的并不是数字啊,而是
Me.hwnd?
?
很奇怪是吗?
如果你真的有此疑问说明你是真心想要学习好API的,现在就让我们来看看Me.hwnd到底是什么东西?
以下摘自VB帮助文档:
hWnd
属性:
返回窗体或控件的句柄。
句
柄:
是由操作环境定义的一个唯一的整数值,它被程序用来标识或者切换到对象,如窗体或控件等。
现在估计你差不多就已经明白了,我们调用的hwnd其实是一个句柄整数值,你可以用
Msgbox
Me.hwnd 看一下就知道了。
至于Me这是一个关键字,代表当前Form窗体对象。
如:
Me.Caption="
、Me.BackColor=vbRed等。
接上面的,首先我们传入了Me.hwnd,表示是当前窗口调用MessageBox,这里告诉大家一个技巧,也就是以后凡是看到Byval
Long,一般都是需要传入句柄的,至于传入哪个对象句柄,那就要看你是怎么实现的了。
ByVal
String,这个是字符串变量,标识着叫我们需要传入字符串进去,可以看里面的变量字符lpText,属于文本的意思,也就是说是用来显示MsgBox中的消息文本的。
String,也是字符串变量,还是传入字符串进去。
在看里面的变量字符lpCaption,其实就是显示MsgBox标题的。
Long,这是一个整形变量,需要传递整形数字,还是看里面的变量字符wType,标识着显示MsgBox类型,这里可以像VB的MsgBox一样使用,如这里可以传入:
vbYesNo,vbOkCancel等,如果忽略那就传入0即可。
好了,按F5启动程序,点击Command1,接着就会弹出一个消息框,这里我们制作以及分析MsgBox已经完成了。
希望你能在这段学习到一些知识。
2,来点实用的吧
就拿隐藏Windows任务管理器来说吧,这里只能隐藏任务管理器中的窗口,不能隐藏进程。
(问:
有没有隐藏进程的?
答:
你想干什么?
),当程序运行后你无法从任务管理器的窗口中关闭程序,只能从进程中进行终止。
好了,还是老规矩,打开API浏览器,输入GetWindow和ShowWindow两个API,声明范围还是私有的,复制粘贴到Form代码窗口中,嗯,好了?
别急,还是API浏览器,选择Combox中的常数,输入GW_OWNER和SW_HIDE这两个API常数,然后粘贴到代码窗口中,问我这两个是干什么的?
那就接着往下看吧。
写入以下代码:
GetWindow
wCmd
ShowWindow
nCmdShow
Const
GW_OWNER
=
4
SW_HIDE
Dim
lphWnd
GetWindow(Me.hwnd,
GW_OWNER)
lphWnd,
SW_HIDE
又到了分析的时候了,这对刚入门的新手可谓是最激动的时候了。
好了,还是老子,看看两个API的表面意思和传递值变量。
先看GetWindow,表面意思:
获取窗口。
传递值变量:
hWnd整形句柄,wCmd整形命令值。
再看ShowWindow,表面意思:
显示窗口。
hWnd整形句柄,nCmdShow整形命令值。
然后是使用代码,先看lphWnd
GW_OWNER)这句,这句意思是获取当前窗口的所有者窗口句柄,可以看到GetWindow是Function过程函数,执行以后会返回相应的窗口句柄值,这个值为Long整形(同句柄)。
接着调用ShowWindow
SW_HIDE,这句意思是显示lphwnd这个句柄的窗口,关键一句是最后的SW_HIDE,这是API函数的常量。
通过设置常量能让系统知道API到底应该怎么执行显示窗口,是显示?
还是隐藏?
Hide当然是隐藏的意思。
好了,编译成Exe,运行后打开任务管理器,查看程序窗口,还有吗?
我又要说一下了,有些人可能不懂为什么要用GW_OWNER这些常量,这些到底有什么用?
还有就是我怎么知道哪些API对应哪些的常量?
其实这些常量你只要稍微注意一下就知道它们是怎么回事了,如在GetWindow中我使用GW_OWNER,在ShowWindow中我使用SW_HIDE这些常量都有一个共同的特点,就是他们都是以API的单词第一个字母为标准。
如GetWindow相对应的常量就是Get(G)Window(W)=GW,ShowWindow相对应的常就是Show(S)Window(W)=SW,这些常量可以自己在VB的API浏览器中找找看。
3,继续往下学吧。
。
上面两个我们讲到了一般API的使用方法,和一些API常量的使用方法,接着我们来看看API类型的使用方法,在了解这一小节前请先搞懂VB中的自定义类型(Type)这章,否则你可能会稀里糊涂的,到时别怪我没提醒你哦!
这次让我们来获取一下鼠标指针的位置。
这里教大家一个技巧,当你想用API去实现某一特定的功能时,却又不知道该用哪个API,这时你可以就表面的意思到API浏览器找找,有70%以上的机率可以找到哦!
现在就拿这个API开刀,那我们应该如何找?
别着急,往下看:
如我们现在要获取鼠标指针位置,可以这样翻译一下:
Get(获取)Cursor(指针)Pos(位置),组合起来:
GetCursorPos,呵呵,一条API就这样出来了,到API浏览器输入这个组合单词,呵,有吧?
见以下:
GetCursorPos
GetCursorPos"
(lpPoint
POINTAPI)
好了好了,高兴一下就算了,现在让我们分析一下这个API,看其它的没啥不同的,其中只有一个参数,就是最后一个变量有些不懂?
在VB中好像没有见过这个变量?
不明白么?
那就再继续往下看。
lpPoint
POINTAPI,POINTAPI?
很显然,在VB中并没有此类型,一般都是String、Integer、Long、Byte等变量类型,那么这个也就理所当然的是自定义类型(问:
什么是自定义类型?
不知道,自已不会看书啊)。
既然是自定义类型,那么我们如何才能知道它是如何定义的呢?
这里也就不用你操心啦,还是API浏览器,在最上面的Combox中选择类型,这时下面List中也就自然的把API的相关类型显示出来了,现在我们开始在Text文本框中输入我们需要的自定义类型,POINTAPI,点击添加,出来了吧?
如下:
Type
POINTAPI
x
y
Type
好了,现在开始写代码,添加一个Timer控件,设置属性见以下:
Interval
100
Enabled
True
双击Timer控件,转到代码环境中写入以下代码:
Timer1_Timer()
lpPoint
Me.Caption
X
&
lpPoint.x
Y
lpPoint.y
好了,分析开始,紧张不?
别紧张,没啥值得紧张的!
POINTAPI,申明一个POINTAPI类型变量,我们学过自定义类型的朋友都知道,一般使用自定义类型时都需要先申明一个相关的类型变量方可使用。
lpPoint,这一步我不说你都知道,调用API呗。
通过这个API获取鼠标指针的相关信息。
这里我们使用了自己声明的lpPoint变量,那为啥要使用这个变量呢?
这里我们回过头来就前两节我们所分析的那样进行分析,可以看到GetCursorPos所需要传递的值,如果是Long,我们就传入整形数字,如果是String,我们就传入字符串,这里是POINTAPI,所以理所当然是要传入POINTAPI类型,但是!
VB中的自定义类型不可以直接使用,所以我们需要先声明一个相同类型的变量。
不知道说了这么多你懂了没?
lpPoint.y,最后一句,也就是用来显示当前鼠标的坐标值的,我们通过声明的lpPoint变量来获取相应的鼠标坐标值,如果你不懂,那就请你先把VB自定义类型这章学完再说。
这里关于API的一些使用方法及范例就先介绍到这里,如果你还有耐心往下看下去的话,那我们就接着往下聊!
四、如何慢慢提升自己的API功力?
何为API功力?
其实没必要搞那么清楚,首先需要搞明白的就是,你应该知道在什么环境下使用什么API,实现哪些功能应该使用哪些API!
这才是我们需要的。
1,试着自己从小程序开始写起。
写小程序?
对!
在你写小程序时应该拣你最感兴趣的程序写,否则有可能你写到一半以后会觉得自己这个程序写得毫无价值,简直是在浪费时间,最后到头来还是功亏一篑。
这里我拿什么当题材呢?
我在这里也想了很久,最后还是决定选择一个注销Windows程序来做题材(其实这是我当初学API最想实现的功能)。
注销Windows也就是退出Windows(重启,关机等都一样,不都是退出的意思吗?
),根据表面意思在API浏览器中输入Exit(退出)Windows,看看有没有这个API?
这里提醒一下,你在查找这个API的时候还会看到ExitWindowsEX这个API,其实这两个API实现的功能一样,前者是用在16位操作系统上,只不过在Win32位操作系统上一般都使用ExitWindowsEX。
所以这里就使用后者。
API见以下:
ExitWindowsEx
ExitWindowsEx"
uFlags
dwReserved
看看里面的两个参数,ByVal
Long?
这里我们需要传入一个整形数字,可是应该传入什么数字呢?
这里说下,API中的参数可以传入不同的值,不同的值从而导致产生不同的结果。
分析API中参数应该传递哪些值其实是有技巧的,以后大家只要是看到参数字符中包函Flags字符的话那就说明该参数可以被传入一个或多个标志,并且大部分都是传入API常数(什么是API常数就不用我说了吧)。
说白话点,就是我们可以传入多个API常量,并且可以在API浏览器中找到,当然,不一定所有的API常数都可以在API浏览器中找到,不过大部分都可以。
在API浏览器查API常量时我前面就教过大家技巧,现在该是我们实践的时候了,分析如下:
Exit
:
头一个大写字符
E
Windows:
W
Ex
组合
EWE_
好了,现在在API浏览器的中常数中找找,咦?
发现好像没有以EWE开头的常数?
只发现以EWX开头的?
现在先别着急,咱们回过头来再分析下,咱们是失败在最后一步Ex上,这里我不得不否决我前面教过大家的技巧,但是又不能完全否决,出现这种情况时就需要大家灵活运用API常数的分析法,可以看到EWX最后一个X是以Ex的X作结尾的,以这种方法做API常数开头的不止这一个,所以这里我特意留了一个陷阱,希望给大家带来一些经验将来能够灵活运用。
现在我把关机uFlags所能用到的相关常数发上来,如下:
EWX_FORCE
4
EWX_LOGOFF
EWX_REBOOT
2
EWX_SHUTDOWN
1
怎么样?
看得懂吧?
英语稍微好一点基本上没问题。
不过这里我还是要解释一番,照顾新手嘛!
前面的
EWX_
我就不说了,关键是看
_
符号后面的,Force
单词翻译:
强制,强迫。
人工在翻译一下(我英文不好,翻译错了请别见怪,呵呵
^_^
),意思是说:
强制执行ExitWindowsEx
API关机函数。
不知道这样解释你能不能明白。
那到底这个常数有什么用呢?
这里我们先回忆一下以前关机的时候,当Windows无法关闭某些窗口的时候就停止继续关机了,最后还得把无法关闭的窗口手动关闭方可,现在,如果我们使用这个常数进行关机,那Windows不管你窗口能不能关闭,直接强制关闭。
希望你懂了。
这个嘛,貌似组合单词,不可直接翻译,那样就不是那个意思了。
Logout
Off,是这样写吗?
注销的意思。
不浪费时间了,直接说明意思:
重新启动。
关机。
至于第二个ByVal
Long,为保留整形,一般为0即可。
至于为什么为0,大家可以到网上下载一些专门讲解API函数的电子书看看,里面有大部分API函数的详细讲解。
或者下载VS.MSDN看看,在MSDN中说Windows
2000/95/98/Me中此参数忽略,XP中是指定关机消息说明。
最后看看这个API为Function声明,说明该函数有返回值,返回值为Long,MSDN中说:
如果执行成功,则返回非零,否则为零。
现在上面已经把这个关机API和相关参数常量都给你分析透了,你可别告诉我你还不知道怎么写?
好了,这里我们做一个定时注销程序,呵呵,虽然很简单,不过很多时候用得上哦!
在Form窗口上添加Timer控件,Interval
设置为1000,Enabled
设置为
True。
好了,代码如下:
Static
i
Integer
+
'
这一步纯粹是想看看当前已经执行到几秒了?
可不要
If
10
Then
秒数判断,可以根据自己的需要进行运算
EWX_LOGOFF,
If
其实我都有点不想分析了,不过为了照顾大众,不得不说下,Static
Integer
静态变量(问:
啥叫静态变量?
我晕!
),i
1是每执行Timer一次i就加1,Timer的interval设置为1000,1000为一秒,2000为二秒。
后面一个If
Then是判断当i=10以后,也就是10秒,就执行注销,这个时候你可别忘了保存好你的其它没有保存的文件哦,如果没保存资料丢失的话偶不承担任何法律责任的。
其实这里我们可以自己做一个,如可以写成这样:
Or