vb6中，怎样获取本地计算机名
vb6中，怎样获取本地计算机名

[解决办法]

VB code

Public Function GetThisComputerName() As String'调用API函数获得当前计算机的BIOS名称    Dim sBuffer As String    Dim lSize As Long        sBuffer = Space$(255)    lSize = Len(sBuffer)    GetComputerName sBuffer, lSize        If lSize > 0 Then        GetThisComputerName = Left$(sBuffer, lSize)    End IfEnd Function
[解决办法]
1L API声明为：
Public Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long

[解决办法]
Environ("computername")


[解决办法]
探讨

1L API声明为：
Public Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long