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

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

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

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



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

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

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

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