本文主要是介绍如何获取电脑名称_____机房收费系统,希望对大家解决编程问题提供一定的参考价值,需要的开发者们随着小编来一起学习吧!
知识需要整理————你的知识整理了么?
米老师每每强调:编织知识网利用知识网,对知识的回顾。可又有多少人做到了呢?该面壁思过了……咳咳……不愿去面壁思过,那就继续把小编的文章看完吧。
对于完成机房收费系统的童鞋,有多少人注意了获取机器(电脑)名称这个细节呢!
看似不起眼,可当初我是费了不少劲,不卖关子了,先说明白如何实现的过程吧
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
补充说明:变量需要自定义哦!
别人的知识灵活运用了……久而久之就成为自己的知识了
这篇关于如何获取电脑名称_____机房收费系统的文章就介绍到这儿,希望我们推荐的文章对编程师们有所帮助!