文档章节

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

白志华
 白志华
发布于 2015/10/18 10:55
字数 243
阅读 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
作品 0
长沙
程序员
windows下装官方mysql 5.7的坑和安装手记

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

BigFu-大福 ⋅ 2016/08/08 ⋅ 0

php获取字符串长度的函数

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

日久不生情 ⋅ 2017/11/15 ⋅ 0

vc++取得系统信息,并实时刷新

#include<stdio.h> #include<windows.h> void GetSysInfo(); DWORD GetOS() { OSVERSIONINFO os; os.dwOSVersionInfoSize=sizeof(OSVERSIONINFO); GetVersionEx(&os); switch(os.dwPlatformI......

junwong ⋅ 2012/03/09 ⋅ 0

SharePoint 2013 安装配置(1)

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

惊艳了青春 ⋅ 2017/03/25 ⋅ 0

实例介绍PHP日期函数date格式转换

网站开发时我们经常需要对日期、时间进行处理,在PHP里提供了很多日期、时间函数方便PHP开发者对日期、时间进行计算、格式转换。所以掌握PHP日期函数非常必要,也为处理PHP日期函数与Mysql数...

Minho ⋅ 2012/02/08 ⋅ 0

QuickBI助你成为分析师——计算字段功能

在用户创建报表时,通过现有字段数据不能直接满足展示需求,需要进行一定建模操作。目前产品支持在数据集编辑界面进行初步建模,下面主要介绍新建字段功能,以达到展示需求。 什么是计算字段...

yuan0924 ⋅ 05/14 ⋅ 0

Swift3.0语言教程获取字符串长度

Swift3.0语言教程获取字符串长度 Swift3.0语言教程获取字符串长度,当在一个字符串中存在很多的字符时,如果想要计算字符串的长度时相当麻烦的一件事情,在NSString中可以使用length属性去实...

大学霸 ⋅ 2016/10/27 ⋅ 0

域控制器重命名

Windows Server 2008 R2域控制器重命名 有关重命名域控制器详细信息,请参阅 http://technet.microsoft.com/zh-cn/library/cc782761(WS.10).aspx 1.服务器系统。 2. 查看当前域控制器的名称,...

tanzhi ⋅ 2010/09/13 ⋅ 0

JS获取IP、MAC和主机名的几种方法

今天在搞JS(javascript)获取客户端IP的小程序,上网搜了下,好多在现在的系统和浏览器中的都无效,很无奈,在Chrome、FireFox中很少搞到直接利用ActiveX获取IP等的JS脚本。下面的代码是我在...

Carl_ ⋅ 2014/09/05 ⋅ 0

Windows Server 2003 AD Upgrade to Windows Server 2008 AD

Windows Server 2003 AD Upgrade to Windows Server 2008 AD 本文介绍将Windows server 2003 AD升级到Windows Server 2008 AD 系统环境:Windows Server 2003 R2 32bit 英文版 Windows Serv......

c1813 ⋅ 2012/11/05 ⋅ 0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

Mahout推荐算法API详解

前言 用Mahout来构建推荐系统,是一件既简单又困难的事情。简单是因为Mahout完整地封装了“协同过滤”算法,并实现了并行化,提供非常简单的API接口;困难是因为我们不了解算法细节,很难去根...

xiaomin0322 ⋅ 22分钟前 ⋅ 0

WampServer默认web服务器根目录位置

安装WampServer之后的web服务器根目录默认位置在WampServer安装目录下的www:

临江仙卜算子 ⋅ 24分钟前 ⋅ 0

Redux的一些手法记录

Redux Redux的基本概念见另一篇文。 这里记录一下Redux在项目中的实际操作的手法。 actions 首先定义action.js,actions的type,可以另起一个action-type.js文件。 action-type.js用来存...

LinearLaw ⋅ 25分钟前 ⋅ 0

android 手势检测(左右滑动、上下滑动)

GestureDetector类可以让我们快速的处理手势事件,如点击,滑动等。 使用GestureDetector分三步: 1. 定义GestureDetector类 2. 初始化手势类,同时设置手势监听 3. 将touch事件交给gesture...

王先森oO ⋅ 39分钟前 ⋅ 0

java 方法的执行时间监控 设置超时(Future 接口)

java 方法的执行时间监控 设置超时(Future 接口) import java.util.concurrent.Callable; import java.util.concurrent.ExecutionException; import java.util.concurrent.Executor......

青峰Jun19er ⋅ 44分钟前 ⋅ 0

一名开源小白的Apache成长自述

今天收到了来自Apache Vote我成为Serviceomb项目Committer的邮件,代表自己的贡献得到了充分的肯定;除了感谢团队的给力支持,我更希望将自己的成长经历——如何践行Apache Way的心得介绍给大...

微服务框架 ⋅ 46分钟前 ⋅ 0

vim介绍、颜色显示和移动光标、一般模式下复制、剪切和粘贴

1.vim 是 vi 的升级版 vim 是带有颜色显示的 mini安装的系统,一般都不带有vim [root@aminglinux-128 ~]# yum install -y vim-enhanced已加载插件:fastestmirror, langpacksLoading mir...

oschina130111 ⋅ 46分钟前 ⋅ 0

Deepin 操作系统四面楚歌

作为国内做的最好的 Linux 发行版,源自 Debian sid 的 Deepin 目前正面临重重困境,新版本不断延期,开发人员离职,bug 长期得不到修复,和 Debian/Ubuntu 的兼容性问题也面临越来越严重的挑...

六库科技 ⋅ 46分钟前 ⋅ 0

MyBatis之动态sql

我们需要知道的是,使用mybatis重点是对sql的灵活解析和处理。在原先的UserMappser.xml中,我们这样查询表中满足条件的记录 : 123 <select id="findUserList" parameterType="userQuery...

瑟青豆 ⋅ 47分钟前 ⋅ 0

这届俄罗斯世界杯的冷门那么多怎么办?

最纯粹的世界杯,最神奇的大冷门。 德国0比1被墨西哥摩擦了。 日本历史性的赢了哥伦比亚。 C罗也挑平了西班牙。 梅西被冰岛狮吼吼愣神了。 就连11次进世界杯4强的巴西也被瑞士逼平了。 天台已...

开源中国众包平台 ⋅ 47分钟前 ⋅ 0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

返回顶部
顶部