当前位置:主页   - 电脑 - 程序设计 - VB
在VB中获取和修改计算机名字
来源:网络转载   作者:未知   更新时间:2009-01-06
收藏此页】    【字号    】    【打印】    【关闭
在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中文版。


其它资源
来源声明

版权与免责声明
1、本站所发布的文章仅供技术交流参考,本站不主张将其做为决策的依据,浏览者可自愿选择采信与否,本站不对因采信这些信息所产生的任何问题负责。
2、本站部分文章来源于网络,其版权为原权利人所有。由于来源之故,有的文章未能获得作者姓名,署“未知”或“佚名”。对于这些文章,有知悉作者姓名的请告知本站,以便及时署名。如果作者要求删除,我们将予以删除。除此之外本站不再承担其它责任。
3、本站部分文章来源于本站原创,本站拥有所有权利。
4、如对本站发布的信息有异议,请联系我们,经本站确认后,将在三个工作日内做出修改或删除处理。
请参阅权责声明