Question

VB6如何获取计算机名称

Answer 1

VB获取计算机名称的方法如下：
说明：计算机名就是打开控制面板-系统-网络标识-完整的计算机名称

Private Declare Function GetComputerName Lib "kernel32"
Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Private Sub Command1_Click()
Dim Name As String, Length As Long
Length = 225
Name = String(Length, Chr(0))
GetComputerName Name, Length
Name = Left(Name, Length)
Label1.Caption = Name
End Sub

Private Sub Form_Load()
End Sub
注意：该方法是通过kernel32.dll来获取的，chr(0)返回的就是计算机名。
kernel32.dll是Windows9x/Me中非常重要的32位动态链接库文件，属于内核级文件。它控制着系统的内存管理、数据的输入输出操作和中断处理，当Windows启动时，kernel32.dll就驻留在内存中特定的写保护区域，使别的程序无法占用这个内存区域。

Answer 2

方法一：Envirion$("ComputerName") 的返回值
方法二： GetIPHostName=Left$(sHostName,InStr(sHostName,Chr(0))-1)
希望能够帮助到您~