如何取得本机的计算机名称？

如何取得本机的计算机名称？ 问题点数：20、回复次数：2Top

1 楼yunhuaTu（图博）回复于 2001-10-25 08:48:18 得分 10

运行下面的程序即可获得:  
  Public   Declare   Function   GetComputerName   Lib   "kernel32"   Alias   "GetComputerNameA"   (ByVal   lpBuffer   As   String,   nSize   As   Long)   As   Long    
   
          nSize   =   255  
          lpBuffer   =   Space(nSize)  
          GetComputerName   lpBuffer,   nSize  
          lpBuffer   =   VBA.Trim$(lpBuffer)  
  Top

2 楼hotsonic（辉）回复于 2001-10-25 08:49:19 得分 10

很简单只须用一个api如下:  
  Declare   Function   GetComputerName   Lib   "Kernel32"   Alias   "GetComputerNameA"   (ByVal   lpBuffer   As   String,   nSize   As   Long)   As   Long  
   
  Sub   GetComputerName_test()  
  Dim   Name   As   String,   Length   As   Long  
  Length   =   255  
  Name   =   String(Length,   0)  
  GetComputerName   Name,   Length  
  Name   =   Left(Name,   Length)  
  MsgBox   "此电脑的名称：="   &   Name,   ,   "GetComputerName"  
  End   Sub  
   
  Sub   Main()  
  GetComputerName_test  
  End   Sub   Top

相关问题

• 计算机
• getcomputername
• lpbuffer
• nsize
• getcomputernamea
• 名称
• 取得本机的计算机
• kernel32
• alias
• byval

• 帖主：zxwcq
• yunhuaTu
• hotsonic

• Visual Basic类图书
• Visual Basic类源码下载