標題: [分享] 使用API傳回電腦名稱 [打印本頁]

---

作者: Min    時間: 2010-5-9 20:59     標題: 使用API傳回電腦名稱

Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Sub Get_Computer_Name()
    Dim Comp_Name_B As String * 255
    Dim Comp_Name As String
    GetComputerName Comp_Name_B, Len(Comp_Name_B)
   
    '然而此一字串經常以 null符號作為結尾，因此，我們使用 Chr(0) 函數來取得結尾
    Comp_Name = Left(Comp_Name_B, InStr(Comp_Name_B, Chr(0)))
   
    '僅傳回電腦名稱
    MsgBox Comp_Name
End Sub

---

作者: wqfzqgk    時間: 2010-6-28 23:40

vs2010中： MsgBox(System.Windows.Forms.SystemInformation.ComputerName)

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)