VB基础学习:如何取得计算机名

2004-9-29 20:05 596 0

摘要: 程序说明: 　　这个程序比较简单,大家自己看吧　　计算机名就是你打开控制面板-系统-网络标识-完整的计算机名称　　程序代码: 　　Form1 　　Private Declare Fun...

关键词： Length Name 程序 GetComputerName String Long Private 计算机 GetComputerNameA 看吧

程序说明: 　　这个程序比较简单,大家自己看吧　　计算机名就是你打开控制面板-系统-网络标识-完整的计算机名称　　程序代码: 　　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

声明：文章版权归原作者所有部分文章转自互联网如有侵权请联系 [邮箱地址] 删除