如何取得计算机名
添加时间: 2006-2-17 3:24:37 作者: VB教程 阅读次数:216 来源: http://www.d9soft.com
Form1
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Sub Command1_Click()
Dim Name As String, Length As Long
Length = 225
Name = String(Length, Chr(0))
GetComputerName Name, Length
Name = Left(Name, Length)
Label1.Caption = Name
End Sub
Private Sub Form_Load()
End Sub
上下文章:
上一篇文章: 用API函数控制光驱的开关 下一篇文章: 用VB获得大容量硬盘信息
相关软件: