Windows硬件系统函数 - GetComputerName

最新推荐文章于 2021-11-10 13:08:00 发布

最新推荐文章于 2021-11-10 13:08:00 发布 · 187 阅读

本文介绍了使用VB声明API函数GetComputerName来获取当前计算机名称的方法。该函数通过指定的缓冲区返回计算机名，返回值表示操作是否成功，并且可以通过GetLastError获取失败原因。文章还提供了MAX_COMPUTERNAME_LENGTH常数的查找方式。

VB声明
Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
说明
取得这台计算机的名称
返回值
Long，TRUE（非零）表示成功，否则返回零。会设置GetLastError
参数表
参数	类型及说明
lpBuffer	String，随同计算机名载入的字串缓冲区
nSize	Long，缓冲区的长度。这个变量随同返回计算机名的实际长度载入
注解
注意nSize参数并不是按值传递的。参考api32.txt，了解MAX_COMPUTER_NAME常数的值
示例
Dim s$ s$ = String$(MAX_COMPUTERNAME_LENGTH+1,0) Dim dl& Dim sz& sz& = MAX_COMPUTERNAME_LENGTH+1 dl& = GetComputerName(s$, sz)
其他
也许你会发现，MAX_COMPUTERNAME_LENGTH常数在vb自带的api文本查看器中找不到。的确，我也没有找到。但我有一个工具：Listapi，这个常数在它那里可以找到