文档章节

GetComputerName正确获取中英文计算机名

白志华
 白志华
发布于 2015/10/18 10:55
字数 243
阅读 4
收藏 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


 效果:

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

本文转载自:http://blog.csdn.net/xiaoxian8023/article/details/6689855

共有 人打赏支持
白志华
粉丝 31
博文 265
码字总数 57524
作品 0
长沙
程序员
私信 提问
windows下装官方mysql 5.7的坑和安装手记

官方下个包 http://dev.mysql.com/downloads/mysql/ =================== 正确的安装顺序(2017-4-16更新) mysqld --initialize --initialize的话会默认在data 下面生成一个 计算机名.err 的文...

BigFu-大福
2016/08/08
417
0
php获取字符串长度的函数

前些天获取中午字符串使用strlen获取utf8编码的字符串,居然获取到了的长度是3,意外了,后面发现strlen是针对ascii编码统计长度的,其他编码需要使用到mb_strlen这个函数。 '; echo mb_str...

日久不生情
2017/11/15
0
0
SharePoint 2013 安装配置(1)

在这篇文章中,我将逐步介绍在Windows Server 2012 R2上安装SharePoint 2013。 在进一步详细介绍之前,让我们先了解SharePoint 2013安装的硬件和软件要求。您可以点击此处了解此安装的完整系...

惊艳了青春
2017/03/25
0
0
「开发者笔记2」Java 代码规约第 2 条

规约类型:编程规约 - 命名风格 规约级别:强制 规约描述:代码中的命名严禁使用拼音与英文混合的方式,更不允许直接使用中文的方式 说明: 正确的英文拼写和语法可以让阅读者易于理解,避免...

银时
10/19
0
0
「开发者笔记2」Java 代码规约第2条

规约类型:编程规约 - 命名风格 规约级别:强制 规约描述:代码中的命名严禁使用拼音与英文混合的方式,更不允许直接使用中文的方式 说明: 正确的英文拼写和语法可以让阅读者易于理解,避免...

银时
10/18
0
0

没有更多内容

加载失败,请刷新页面

加载更多

mac 下 mysql 8.0.13 安装并记录遇到的问题 以便以后查看

安装 官网mysql 下载地址 安装过程 省去 安装好之后 下载navicat 错误1 链接 遇到 mysql 2003 - Can't connect to MySQL server 错误, 解决方案 重启mysql 服务 #错误2 ERROR 1045: Acces...

杭州-IT攻城狮
昨天
4
0

中国龙-扬科
昨天
1
0
[Spring4.x]基于spring4.x纯注解的Web工程搭建

在前文中已经说明了如何基于 Spring4.x+ 版本开发纯注解的非web项目,链接如下: https://my.oschina.net/morpheusWB/blog/2985600 本文则主要说明,如何在Web项目中,"基于spring纯注解方式...

morpheusWB
昨天
13
0
基础编程题目集-7-13 日K蜡烛图

股票价格涨跌趋势,常用蜡烛图技术中的K线图来表示,分为按日的日K线、按周的周K线、按月的月K线等。以日K线为例,每天股票价格从开盘到收盘走完一天,对应一根蜡烛小图,要表示四个价格:开...

niithub
昨天
5
0
Jenkins window 下的安装使用

1.下载:https://jenkins.io/download/ 双击安装完毕,将自动打开浏览器: http://localhost:8080 打开对应位置的文件,将初始密钥粘贴至输入框。 第一个是 安装默认的软件;第二个是 自定义...

狼王黄师傅
昨天
7
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部