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

2008-02-23 06:54:34来源:互联网 阅读 ()

新老客户大回馈,云服务器低至5折

在Win 95中,计算机有一个名字。运行regedit,在“HKEY-LOCAL-MACHINE\System\CurrentControlSet\control\ComputerName\ComputerName”中将发现“ComputerName”=“Default”( 或其它字符串),在regedit下可以查看和修改这个名字。我们还可在程序中通过Win32API提供的GetComputerName、SetComputerName这两个函数来查看和修改计算机的名字。下面以VB为例来探讨如何编写一个可查看和修改计算机名字的程序。

1、 插入一个新模块,在其中添加如下代码:
'声明 GetComputerName
Declare Function GetComputerName Lib "kernel 32" Alias "GetComputerNameA" (Byval lPBuffer As String,nSize As Long)As Long

'声明 SetComputerName
Declare Function SetComputerName Lib "kernel 32" Alias "SetComputerNameA" (Byval lp ComputerName As String)As Long

'定义一个获取计算机名字的函数
Public Function GetCName (CName ) As Boolean
Dim sComputerName As String '计算机的名字
Dim lComputerName As Long '计算机名字的长度
Dim lResult As Long 'GetComputerName的返回值
Dim RV As Boolean

'GetCName返回值,若为TRUE则表示操作成功
lComputerNameLen =256
sComputerName = Space (lComputerNameLen)
lResult =GetComputerName (sComputerName,lCompputerNameLen)
If lResult <>0 Then Cname = Left$ (sComputerName,lComputerNameLen)
RV =True
Else
RV =False
End If
GetCName =RV
End Function

'定义一个修改计算机名字的函数
Public Function SetCName (CName ) As Boolean
Dim lResult As Long
Dim RV As Boolean
lResult =SetComputerName (CName)
If lResult <>0 Then
RV =True 修改成功
Else
RV =False
End If
SetCName =RV
End Function

2、 在窗体中添加一命令按钮Command1,双击该按钮并在其中添加如下代码:

Sub Command1-Click ()
DIM CN AS String
x = GetCName (CN)
Print "This Computer Name is :",CN
CN="MYCOMPUTER"
x = SetCName (CN )
Print "Now the Computer name is :",CN
End Sub

3、 保存上述设置和代码,然后按F5运行该程序,观察其运行结果。

需要说明的是:(1)修改完计算机的名字后必须重新启动才能有效;(2)计算机名字中只能含有字母、数字和下面的几种符号:!、@、#、$、%、^、 ;、'、)、(、· 、- 、{、}、~、(3)程序的运行环境为:VB4.0(32)、Win 95中文版。

上一篇: 如何用VB准确计算年龄
下一篇: 清除字符串中指定的字符

标签:

版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com
特别注意:本站所有转载文章言论不代表本站观点,本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有

上一篇:用VB编写DirectX7.0游戏(下)

下一篇:按下某组键(HotKey)便执行某程式