机房收费系统之获得当前计算机名称

'定义模块级变量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