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

　　程序说明:

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

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

　　程序代码:

　　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

上一篇： VB中远程数据库的访问(3) 应用举例
下一篇： VB.NET面向对象的实现(1)创建类

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!