取得计算机名

声明：
Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lPBuffer As String, nSize As Long) As Long
例子：
Public Function MachineName() As String
Dim sBuffer As String * 255
If GetComputerName(sBuffer, 255&) <> 0 Then
MachineName = Left$(sBuffer, InStr(sBuffer, VBNullChar) - 1
Else
MachineName = "(未知)"
End If
End Function

上一篇： 设置计算机名称
下一篇： VisualBasic 软件设计中的几个问题

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!