如何获得计算机的机器名
添加时间: 2006-2-16 5:38:53 作者: VB教程 阅读次数:176 来源: http://www.d9soft.com
Option Explicit
Private Declare Function GetComputerName Lib "Kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Sub Command1_Click()
Dim ComputerName As String, i As Long
i = 255
ComputerName = String(i, 0)
GetComputerName ComputerName, i
ComputerName = Left(ComputerName, i)
MsgBox "此电脑的名称是" & ComputerName
End Sub
上下文章:
上一篇文章: 无框窗体移动最简法（程序） 下一篇文章: VB6.0网络篇-游戏写作技巧
相关文章: