文档章节

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

共有 人打赏支持
白志华
粉丝 29
博文 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
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
0
实例介绍PHP日期函数date格式转换

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

Minho
2012/02/08
0
0
SharePoint 2013 安装配置(1)

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

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

没有更多内容

加载失败,请刷新页面

加载更多

js 操作cookie

var cookie = {// 设置cookie方法set:function(key, val, time){// 获取当前时间var date = new Date();// 将date设置为n天以后的时间var expiresDays = time;//...

小丶二
14分钟前
1
0
限制root远程登录 su和sudo命令

9月21日任务 3.7 su命令 3.8 sudo命令 3.9 限制root远程登录 对于Linux而言,权限的重要性毋庸置疑!对于普通用户而言无法执行那些只有root用户才能有效的命令,导致工作无法有效进行; 系统...

robertt15
16分钟前
2
0
MQTT协议的初浅认识之通讯级别和持久会话

背景 这是我最近了解MQTT协议的最后一部分内容了,MQTT协议里面的QOS和Keep Alive是两个比较重要的内容。QOS的设置,直接影响了订阅客户端与中间件之间的消息交互行为。而Keep Alive直接影响...

亚林瓜子
18分钟前
1
0
calc

width: calc(100% - 30px); 特别注意:减号左右空格,均不能去掉。 width: calc(100% - 30px);

柴高八斗之父
26分钟前
1
0
Spring Cloud Gateway全局过滤器GlobalFilter:返回消息和重定向

Spring Cloud Gateway的全局过滤器GlobalFilter,顾名思义,声明后会对所有的请求生效,可以用来做权限控制,这里简单记录一下拦截到非法请求后如何返回自定义信息和将请求重定向到指定URL。...

夜雨寄北09
29分钟前
1
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部