CSDN博客

img wsd309

如何取得计算机名

发表于2004/2/15 23:52:00  583人阅读

程序说明: 

  这个程序比较简单,大家自己看吧 

  计算机名就是你打开 控制面板-系统-网络标识-完整的计算机名称 

  程序代码: 



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
0 0

相关博文

我的热门文章

img
取 消
img