在VB中获取和修改计算机名字

　2006-02-27 11:42:01　来源：WEB开发网　闂傚倷绶氬ḿ褍螞閹绢喖绠柨鐕傛嫹

闂傚倷绀侀幉锟犲垂閻㈠灚宕查柟鎵閸庡秵銇勯幒鎴濃偓鐢稿磻閹炬枼妲堟繛鍡楃С濞岊亞绱撻崒姘扁枌闁瑰嚖鎷�

婵犵數濮幏鍐川椤撴繄鎹曢梻渚€娼уú銈吤洪妸鈺佺劦妞ゆ帊鑳堕埊鏇㈡煏閸モ晛浠х紒杈╁仱閺佹捇鏁撻敓锟�闂傚倷绶氬ḿ褍螞閹绢喖绠柨鐕傛嫹　　闂傚倷鑳舵灙缂佺粯顨呴埢宥夊即閵忕姵鐎梺缁樺姇閹碱偆鐥閺屾洘绻濊箛鏇犵獥闂佺厧澹婃禍婊堚€旈崘顏佸亾閿濆骸澧ù鐘欏嫮绠鹃柛顐ゅ枎閻忋儲銇勯弴妯哄姦妞ゃ垺鐟╅幃鈩冩償閵囧府鎷�

核心提示：在Win95中，计算机有一个名字，在VB中获取和修改计算机名字，运行regedit，在“HKEY-LOCAL-MACHINE\System\CurrentControlSet\control\ComputerName\ComputerName”中将发现“ComputerName”=“Default”(或其它字符串)，然

在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中文版。