如何获得计算机的机器名
新客网 XKER.COM 2007-02-01 来源： 收藏本文
用API函数GetComputerName可以方便的取得计算机的机器名。
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
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网络篇-游戏写作技巧 下一篇：无框窗体移动最简法（程序）
最新相关文章发表评论
评论内容：不能超过250字，需审核后才会公布，请自觉遵守互联网相关政策法规。
阅读排行
随机推荐
实用信息推荐