机房收费系统——获取计算机名

在机房收费系统的某些窗体中，我们需要获取计算机名，通过各种搜索，终于在巨人的博客中找到了解决方法，emmmm，现在我也来总结一下下叭☟☟：

使用API函数来获取计算机名：

'定义获取当前计算机名的函数
Public Function ComputerName() As String
Dim CoName As String
'将ASCII值转换为字符串
CoName = String(255, Chr$(0))
GetComputerName CoName, 255
'返回goname中从左至InStr(S,Chr$(0))-1)个字符串
CoName = Left(CoName, InStr(CoName, Chr$(0)) - 1)
ComputerName = CoName
End Function

我们可以将以上代码写到模块中，在需要获取计算机名的窗体中直接调用，这样会更加方便、快捷☺☺☺