機房收費系統之獲得當前電腦名稱

'定義模組層級變數Private Const MAX_COMPUTERNAME_LENGTH As Long = 31Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As LongPrivate Sub Form_Load()    Dim lngLen As Long    Dim strSQL As String    Dim strMsg As String    Dim strLevel As String    Dim rstMrc As ADODB.Recordset    '建立一個緩衝區    lngLen = MAX_COMPUTERNAME_LENGTH + 1    strComputerName = String(lngLen, "X")    '得到當前電腦的名稱    GetComputerName strComputerName, lngLen    '對得到的電腦名稱進行修飾    strComputerName = Left(strComputerName, lngLen)    'strComputerName字串即為最終值

End Sub