如何取得计算机名 | | 2001-11-24· · ··yesky
| 程序说明:
这个程序比较简单,大家自己看吧
计算机名就是你打开 控制面板-系统-网络标识-完整的计算机名称
程序代码:
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
Private Sub Form_Load()
End Sub |
|
|