VB API获取当前电脑/计算机名称，VB API获取当前电脑名称，VB API获取当前计算机名称，VB 获取当前电脑/计算机名称，VB 获取当前电脑名称，VB 获取当前计算机名称，VB 获取电脑/计算机名称，VB 获取电脑名称，VB 获取计算机名称，VB 电脑/计算机名称，VB 电脑名称，VB 计算机名称，VB 电脑/计算机名，VB 电脑名，VB 计算机名，VB GetComputerName，GetComputerName StrT， 255。

VB API获取当前电脑/计算机名称：

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

Private Sub Form_Load()
    Dim StrT As String * 255
    GetComputerName StrT, 255
    MsgBox StrT
End Sub