如何取得计算机名

程序说明:

这个程序比较简单,大家自己看吧

计算机名就是你打开 控制面板-系统-网络标识-完整的计算机名称

程序代码:

Form1

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