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

发布: 2007-6-21 21:57 | 作者: wsd309 | 来源: CSDN | 查看: 20次 | 进入软件测试论坛讨论

　　　　程序说明:

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

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

　　程序代码:

　　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

文章来源于领测软件测试网 https://www.ltesting.net/

软件测试论坛

领测软件测试网最新更新

软件测试技术相关文章

软件测试培训信息

最新软件测试技术专题

最新领测软件测试网新闻

软件测试技术文章排行榜

编辑推荐
周排行
月排行

软件测试技术分类最新内容