Public Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Dim name1 As String * 255 '取得计算机名称
Dim name As String
Dim i As Integer
i = GetComputerName(name1, 255)
If i <> 0 Then
name = name1
Else
name = "unknown"
End If
cptname = name
Label1.Caption = "本机名称:" & name
Dim name1 As String * 255 '取得计算机名称
Dim name As String
Dim i As Integer
i = GetComputerName(name1, 255)
If i <> 0 Then
name = name1
Else
name = "unknown"
End If
cptname = name
Label1.Caption = "本机名称:" & name