vb是如何获得计算机名的？

Question

有一个API
等一下,我帮你查查

Answer 1

用Api函数GetSystemInfo
示例如下：
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As LongDim st As Variant
Dim str As String * 255
st = GetComputerName(str, 20)
Text1.Text = str   ‘计算机名赋予text1.text

Answer 2

GetComputerName 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) 

Answer 3

好象是
Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
 Call GetSystemInfo

Answer 4

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常数的值