vb 中如何获得计算机的名字？
vb 中如何获得计算机的名字？
[解决办法]
使用winsock组件
Winsock1.LocalHostName
[解决办法]
Public Declare Function GetComputerName Lib "kernel32 " Alias "GetComputerNameA " (ByVal lpBuffer As String, nSize As Long) As Long
Dim strGetBuf As String * 255
dim strComputerName as string
strGetBuf = Space(255)
Call GetComputerName(strGetBuf, Len(strGetBuf))
strComputerName = Left(strGetBuf, Len(Trim(strGetBuf)) - 1)
[解决办法]
Private Declare Function GetComputerName Lib "kernel32.dll " Alias "GetComputerNameA " (ByVal lpBuffer As String, ByRef nSize As Long) As Long
Private Sub Form_Load()
Dim strname As String * 255
GetComputerName strname, 255
Debug.Print Left(strname, InStr(strname, Chr(0)) - 1)
End Sub
