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,这个常数在它那里可以找到 |