VB取得系统信息.docVIP

这学期开VB,为了熟悉VB的环境,我决定写一个简单的东西来熟悉VB的编程环境.不过写了一点的时候就发现需要用到API函数才能完成程序所完成的功能,所以又学习以下API函数的使用(主要是关于注册标的操作).下面就如何在VB下利用API函数获得系统信息的方法,希望对大家的学习有所帮助.　　首先是获得当前用户的用户名,用的是API函数GetComputerName ,该函数在VB中的声明是:Declare Function GetComputerName Lib kernel32 Alias GetComputerNameA (ByVal lpBuffer As String, nSize As Long) As Long (注意:VB中API函数的声明必须在一行上,还有窗体层内定义的API函数都应该定义成Private 的,不然编译是就会出错.另外,顺便说一下,VB虽然也支持面向对象的编程,但只能是实现面向对象的部分功能).　　其参数说明如下:　　lpBuffer String，随同计算机名载入的字串缓冲区;　　nSize Long，缓冲区的长度。这个变量随同返回计算机名的实际长度载入;　　其实现过成如下:Dim len As Long computer 名字的长度Dim aa As Long 返回函数调用是否成功,TRUE（非零）表示成功，否则返回零Dim cmprName As String 计算机名(当前用户的用户名)的字符串 cmprName = String(255, 0)len = 256aa = GetComputerName(cmprName, len) 取得这台计算机的名称cmprName = Left(cmprName, InStr(1, cmprName, Chr(0)) - 1)cname.Caption = cmprName 将计算机当前用户名输出在cname标签上(以下都是用标签做输出).　　接着就是CPU的信息了.在API函数中好象没有直接关于CPU的信息(虽然我对API函数知道的有现,但我查了一下,没有,不知道是不是有我没有找到).既然没有直接关于CPU信息的API函数,我就想到注册表里面肯定有CPU的相关信息.我查了一下注册表,发现有关CPU的信息都在键HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\system\CentralProcessor\0下,关于CPU有的型号在ProcessorNameString里面.接下来就是如何读取注册表的值了.VB中用RegOpenKey和RegQueryValueEx两个api来完成读取注册表的值.其中RegOpenKey是打开注册表中一个指定的键;RegQueryValueEx函数来读取某个Key的指定名称的值(value),这两个函数的声明及参数说明如下:Declare Function RegOpenKey Lib advapi32.dll Alias RegOpenKeyA (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long 　　参数类型及说明:hKey:Key HandlelpSubKey:SubKey名称或路径phkResult:若RegOpenKey执行成功，则这一参数返回Subkey的hKey.返回值: =0,表示成功；≠0,表示失败。[注意这一点与别的API函数不太一样]Declare Function RegQueryValue Lib advapi32.dll Alias RegQueryValueA (ByVal hKey As Long, ByVal lpSubKey As String, ByVal lpValue As String, lpcbValue As Long) As Long 　　参数类型及说明:hKey: Key HandlelpSubKey:SubKey名称路径lpValue:返回读取的Default ValuelpcbValue:传入lpValue参数的长度，若成功读取了默认值default value,则返回default value字符串的长 度(含chr(0))这个和C语言中字符串的处理相似，都是以chr(0)作为结束符。返回值: =0,表示成功；≠0,表示失败。　　具体实现如下:Dim hKey As LongDim ret As LongDim lenData As LongDim typedata As LongDim name As StringDim cpu As StringConst HKEY_L