科技行者

行者学院 转型私董会 科技行者专题报道 网红大战科技行者

知识库

知识库 安全导航

至顶网软件频道基础软件VB基础学习:如何取得计算机名

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

  • 扫一扫
    分享文章到微信

  • 扫一扫
    关注官方公众号
    至顶头条

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

作者:wsd309 来源:soft6 2008年5月15日

关键字: 计算机名 基础 VB vb.net Windows

  • 评论
  • 分享微博
  • 分享邮件
程序说明:

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

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

  程序代码:

  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

    • 评论
    • 分享微博
    • 分享邮件
    閭欢璁㈤槄

    濡傛灉鎮ㄩ潪甯歌揩鍒囩殑鎯充簡瑙T棰嗗煙鏈€鏂颁骇鍝佷笌鎶€鏈俊鎭紝閭d箞璁㈤槄鑷抽《缃戞妧鏈偖浠跺皢鏄偍鐨勬渶浣抽€斿緞涔嬩竴銆�

    重磅专题
    往期文章
    最新文章