杭州交通信息网挠警察脚心:(VB)用GetComputerName取得的电脑名称有问题！
来源：百度文库 编辑：杭州交通信息网 时间：2024/04/29 20:00:38
用GetComputerName取得的电脑名称出现问题！整个代码如下（API声明省略，代码是我看来的）：
Dim CoName As String
CoName = String(255, Chr$(0))
GetComputerName CoName, 255
CoName = Left(CoName, InStr(1, CoName, Chr$(0)))
在应用的时候会有问题，比如，Print "123" & CoName & "456" 这样的话，"456"是Print不出来的，为何？？？？？
说错了，Print出来应该是 123CoName 456 问题就在这里，CoName和456之间有一个空格！怎么回事？我用Trim(CoName)把CoName换掉还是消不掉！
Dim CoName As String
CoName = String(255, Chr$(0))
GetComputerName CoName, 255
CoName = Left(CoName, InStr(1, CoName, Chr$(0)))
在应用的时候会有问题，比如，Print "123" & CoName & "456" 这样的话，"456"是Print不出来的，为何？？？？？
说错了，Print出来应该是 123CoName 456 问题就在这里，CoName和456之间有一个空格！怎么回事？我用Trim(CoName)把CoName换掉还是消不掉！
因为后面还有一个字符。
把
CoName = Left(CoName, InStr(1, CoName, Chr$(0)))
改为：
CoName = Left(CoName, InStr(1, CoName, Chr$(0)) - 1)