说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

显示计算机的名称 -VB资料

HTML文档下载 WORD文档下载 PDF文档下载
显示计算机的名称 -VB资料
Declare Function GetComputerName Lib "Kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Sub GetComputerName_test()
Dim Name As String, Length As Long
Length = 255
Name = String(Length, 0)
GetComputerName Name, Length
Name = Left(Name, Length)
MsgBox "此电脑的名称:=" & Name, , "GetComputerName"
End Sub

Sub Main()
GetComputerName_test
End Sub

备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘