如何获取电脑名称_____机房收费系统

知识需要整理————你的知识整理了么？

米老师每每强调：编织知识网利用知识网，对知识的回顾。可又有多少人做到了呢？该面壁思过了……咳咳……不愿去面壁思过，那就继续把小编的文章看完吧。

对于完成机房收费系统的童鞋，有多少人注意了获取机器（电脑）名称这个细节呢！

看似不起眼，可当初我是费了不少劲，不卖关子了，先说明白如何实现的过程吧

Public Function GetPCName() As String
  
    Dim dwLen As Long
    Dim strString As String
    Dim strName() As String
      
    ' 缓冲区
    dwLen = MAX_COMPUTERNAME_LENGTH + 1
    strString = String(dwLen, "X")
    '获得计算机名称
    GetComputerName strString, dwLen
    '获取实际的数据
    strString = Left(strString, dwLen)
    '显示计算机名称
    strName = Split(strString, Chr(0))      '由于机器名为汉字时会出错，这里用chr(0)截取一下
    GetPCName = strName(0)
      
End Function

补充说明：变量需要自定义哦！

别人的知识灵活运用了……久而久之就成为自己的知识了