GetComputerName正确获取中英文计算机名
GetComputerName正确获取中英文计算机名
白志华 发表于2年前
GetComputerName正确获取中英文计算机名
  • 发表于 2年前
  • 阅读 0
  • 收藏 0
  • 点赞 0
  • 评论 0

【腾讯云】如何购买服务器最划算?>>>   

 用 GetComputerName来获取用户名时,如果处理不好,中文的计算机名则只会显示部分,该计算机名以ASCII码为0的字符结尾。所以我们要去掉这个字符。

Option Explicit

Private Const MAX_COMPUTERNAME_LENGTH As Long = 31
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long

'*************************************************************************
'**函 数 名:GetPCName
'**输    入:无
'**输    出:(String) -
'**功能描述:获取计算机名
'**作    者:龙轩
'**日    期:2011-08-15
'**版    本:V1.0.0
'*************************************************************************
Public Function GetPCName() As String

    Dim dwLen As Long
    Dim strString As String
    Dim strName() As String
    
    'Create a buffer (缓冲区)
    dwLen = MAX_COMPUTERNAME_LENGTH + 1
    strString = String(dwLen, "X")
    'Get the computer name
    GetComputerName strString, dwLen
    'get only the actual data
    strString = Left(strString, dwLen)
    'Show the computer name
    strName = Split(strString, Chr(0))      '由于机器名为汉字时会出错,这里用chr(0)截取一下
    GetPCName = strName(0)
    
End Function

Private Sub cmdGetPCName_Click()
    '获取计算机名
    MsgBox GetPCName
End Sub


 效果:

版权声明:本文为博主原创文章,未经博主允许不得转载。

共有 人打赏支持
粉丝 29
博文 260
码字总数 57524
×
白志华
如果觉得我的文章对您有用,请随意打赏。您的支持将鼓励我继续创作!
* 金额(元)
¥1 ¥5 ¥10 ¥20 其他金额
打赏人
留言
* 支付类型
微信扫码支付
打赏金额:
已支付成功
打赏金额: