请问各位GETCOMPUTNAME这个函数怎么用？有用过的请帮忙

Question

sBuffer = Space$(255)
lSize = Len(sBuffer)  Call GetComputerName(sBuffer, lSize)
If lSize > 0 Then            '得到计算机名
      debug.print Left$(sBuffer, lSize)
End If
肯定可以

Answer 1

Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Sub Form_Load()
    'KPD-Team 1998
    'URL: http://www.allapi.net/
    'E-Mail: [email protected]
    Dim strString As String
    'Create a buffer
    strString = String(255, Chr$(0))
    'Get the computer name
    GetComputerName strString, 255
    'remove the unnecessary chr$(0)'s
    strString = Left$(strString, InStr(1, strString, Chr$(0)))
    'Show the computer name
    MsgBox strString
End Sub