如何取得計算機名
程序說明:
這個程序比較簡單,大家自己看吧
計算機名就是你打開 控制面板-系統-網絡標識-完整的計算機名稱
程序代碼:
這個程序比較簡單,大家自己看吧
計算機名就是你打開 控制面板-系統-網絡標識-完整的計算機名稱
程序代碼:
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 |