vb 中如何获得计算机的名字？

[冰天天]

vb 中如何获得计算机的名字？

[beal_p]

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)

[zzyong00]

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

[zzyong00]

晕，来晚了

[fante2007]

学习了

[嗷嗷叫的老马]

哈哈,我就帮顶一下吧

[hongqi162]

使用winsock组件

Winsock1.LocalHostName