77.htm

来自「vb功能实例介绍。详细、很好的实例说明。」· HTM 代码 · 共 17 行

<p>显示计算机的名称 </p>
<p>Declare Function GetComputerName Lib "Kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long</p>
<p></p>
<p>Sub GetComputerName_test()</p>
<p>Dim Name As String, Length As Long</p>
<p>Length = 255</p>
<p>Name = String(Length, 0)</p>
<p>GetComputerName Name, Length</p>
<p>Name = Left(Name, Length)</p>
<p>MsgBox "此电脑的名称：=" & Name, , "GetComputerName"</p>
<p>End Sub</p>
<p></p>
<p>Sub Main()</p>
<p>GetComputerName_test</p>
<p>End Sub </p>
<p></p>