如何取得计算机名

2008-04-09 04:42:36来源：互联网阅读 ()

　　程序说明:

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

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

　　程序代码:

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

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有