77.txt

VB文章集（含API、窗口、数据库、多媒体、系统、文件、等等）

显示计算机的名称 
Declare Function GetComputerName Lib "Kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Sub GetComputerName_test()
Dim Name As String, Length As Long
Length = 255
Name = String(Length, 0)
GetComputerName Name, Length
Name = Left(Name, Length)
MsgBox "此电脑的名称：=" & Name, , "GetComputerName"
End Sub

Sub Main()
GetComputerName_test
End Sub