在Win95中，计算机有一个名字。运行regedit，在“HKEY-LOCAL-MACHINE\System\CurrentControlSet\control\ComputerName\ComputerName”中将发现“ComputerName”=“Default”(或其它字符串)，在regedit下可以查看和修改这个名字。我们还可在程序中通过Win32API提供的GetComputerName、SetComputerName这两个函数来查看和修改计算机的名字。下面以VB为例来探讨如何编写一个可查看和修改计算机名字的程序。1、插入一个新模块，在其中添加如下代码：
＇声明GetComputerName
DeclareFunctionGetComputerNameLib"kernel32"Alias"GetComputerNameA"(ByvallpBufferAsString,nSizeAsLong)AsLong
＇声明SetComputerName
DeclareFunctionSetComputerNameLib"kernel32"Alias"SetComputerNameA"(ByvallpComputerNameAsString)AsLong
＇定义一个获取计算机名字的函数
PublicFunctionGetCName(CName)AsBoolean
DimsComputerNameAsString＇计算机的名字
DimlComputerNameAsLong＇计算机名字的长度
DimlResultAsLong＇GetComputerName的返回值
DimRVAsBoolean
＇GetCName返回值，若为TRUE则表示操作成功
lComputerNameLen=256
sComputerName=Space(lComputerNameLen)
lResult=GetComputerName(sComputerName,lCompputerNameLen)
IflResult<>0ThenCname=Left$(sComputerName,lComputerNameLen)
RV=True
Else
RV=False
EndIf
GetCName=RV
EndFunction
＇定义一个修改计算机名字的函数
PublicFunctionSetCName(CName)AsBoolean
DimlResultAsLong
DimRVAsBoolean
lResult=SetComputerName(CName)
IflResult<>0Then
RV=True修改成功
Else
RV=False
EndIf
SetCName=RV
EndFunction
2、在窗体中添加一命令按钮Command1，双击该按钮并在其中添加如下代码：
SubCommand1-Click()
DIMCNASString
x=GetCName(CN)
Print"ThisComputerNameis:",CN
CN="MYCOMPUTER"
x=SetCName(CN)
Print"NowtheComputernameis:",CN
EndSub
3、保存上述设置和代码，然后按F5运行该程序，观察其运行结果。
需要说明的是：（1）修改完计算机的名字后必须重新启动才能有效；（2）计算机名字中只能含有字母、数字和下面的几种符号：！、@、#、$、、^、；、＇、）、（、·、-、{、}、~、（3）程序的运行环境为：VB4.0(32)、Win95中文版。
->
如果您对本文有任何疑问或者建议，请到讨论区发表您的意见:
>>
论坛入口 <<
上一篇：
如何用VB准确计算年龄 下一篇：
清除字符串中指定的字符
【文章评论】
【收藏本文】
【推荐好友】
【打印本文】
【我要投稿】 【论坛讨论】
