在Win 95中,计算机有一个名字。运行regedit,在“HKEY_LOCAL_MACHINE\System
\CurrentControlSet\control\ComputerName\ComputerName”中将发现
“ComputerName”
=“Default”(或其它字符串),在regedit下可以查看和修改这个名字。我们还可在程序
中通过Win32
API提供的GetComputerName、SetComputerName这两个函数来查看和修改计算机的名字。下面以VB为例来探讨如何编写一个可查看和修改计算机名字的程序。
1、插入一个新模块,在其中添加如下代码:
声明GetComputerName
Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA"
(ByVal lpBuffer As String, nSize As Long) As Long
声明SetComputerName
Declare Function SetComputerName Lib "kernel32" Alias "SetComputerNameA"
(ByVal lpComputerName As String) As Long
’定义一个获取计算机名字的函数
Public Function GetCName(CName) As Boolean
Dim sComputerName As String 计算机的名字
Dim lComputerNameLen As Long 计算机名字的长度
Dim lResult As Long GetComputerName的返回值
Dim RV As Boolean GetCName返回值,若为TRUE则表示操作成功
lComputerNameLen = 256
sComputerName = Space(lComputerNameLen)
lResult = GetComputerName(sComputerName, lComputerNameLen)
If lResult <> 0 Then
CName = Left$(sComputerName, lComputerNameLen)
RV = True
Else
RV = False
End If
GetCName = RV
End Function
定义一个修改计算机名字的函数
Public Function SetCName(CName As String) 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 "Thi omputer Name is:",CN
CN="MYCOMPUTER"
x = SetCName(CN)
Print "Now the Computer name is:",CN
End Sub
3、保存上述设置和代码,然后按F5运行该程序,观察其运行结果。
需要说明的是:(1)修改完计算机的名字后必须重新启动才能有效;(2)计算机名字中只能含有字母、数字和下面的几种符号:!、@、#、$、%、^、;、、)、(、.、-、_、{、}、~;(3)程序的运行环境为:VB
4.0(32)、Win 95中文版。
[VB.NET程序]GSM短信模块库函数,可以用VB,VC,调用简单实用 [办公软件]PowerPoint做交互课件之弃用VBA [办公软件]VBA获取U盘、主板、CPU序列号和网卡MAC地址 [办公软件]VBA设置文件属性及加密源代码示例 [办公软件]VBA中初始化ADO连接的几种方法 [网络安全]“VB破坏者变种N”病毒摘要 [Web开发]ASP.NET上传文件到数据库VB版 [办公软件]在Excel中利用VBA实现多表单元格数据的读取与赋值… [办公软件]使用Vba读取已关闭的Excel工作薄数据到当前工作表… [办公软件]Excel编程基础之VBA文件操作详解
|