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

2008-02-23 07:03:29来源:互联网 阅读 ()

新老客户大回馈,云服务器低至5折

  程序说明:

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

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

  程序代码:

  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)创建类

标签:

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

上一篇:保存webbrowser中的HTML内容

下一篇:感悟VB细水长流话API(六-2)