|
用Visual Basic修改Windows98注册表 |
|
|
|
|
|
Windows98系统注册表中包含关于系统配置及运行的重要信息。本文以修改KEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run子键分支中的键值信息为例，介绍如何在Visual Basic中，利用Win32 API函数修改注册表。
一、声明Win32 API函数
因为Visual Basic 6.0本身没有提供对系统注册表中“键” 的创建、打开、关闭、删除等操作的功能函数，所以，首先在程序的开始声明以下Win32 API 函数：
Const REG_SZ=1
Global Const HKEY_LOCAL_MACHINE
=＆H80000002
Declare Function RegOpenKey Lib“advapi32”
Alias “RegOpenKeyA”(ByVal hkey As Long,
ByVal lpszSubKey As String,phkResult As Long) As Long
’该函数用于打开系统注册表中已存在的键。
函数的返回值：键打开成功返回0，否则返回非0，
phkResult被设置为该键的句柄。
Declare Function RegSetValueEx Lib “advapi32”
Alias “RegSetValueExA” (ByVal hkey As
Long,ByVal lpszValueName As String,ByVal
dwReserved As Long,ByVal fdwType As Long,
lpbData As Any,ByVal cbData As Long) As Long
’该函数用于向系统注册表中指定的键添加键名和键值。
函数的返回值： 添加键名、键值成功返回0，否则返回非0。
Declare Function RegCloseKey Lib “advapi32”
Alias “RegCloseKey” (ByVal hkey As Long) As Long
’该函数用于关闭系统注册表中打开的键。
函数的返回值：键关闭成功返回0，否则返回非0。
编写功能函数
Function oRegOpenKey (ByVal hkey As Long, ByVal lpszSubKey As String,phkResult As Long) As Boolean
Dim lResult As Long
On Error GoTo 0 ’关闭错误陷阱
lResult=RegOpenKey(hkey,lpszSubKey,phkResult)
If lResult=0 Then
oRegOpenKey=True
Else oRegOpenKey=False
End If
End Function
Function RegSetStringValue(ByVal hkey
As Long,ByVal strValueName As String,
ByVal strData As String,Optional ByVal flog) As Boolean
Dim lResult As Long
On Error GoTo 0
lResult=RegSetValueEx(hkey,strValueName,
0＆,REG_SZ,ByVal strData,LenB(StrConv(strData,
vbFromUicode))＋1)
’StrConv是Visual Basic提供的函数，
返回按指定类型转换的Variant(String)。
’vbFromUicode是Visual Basic的系统常数。
在上面程序中，StrConv(strData,vbFromUnicode)的作用是：根据系统的默认码将字符串转换成Unicode。
If lResult =0 Then
RegSetStringValue=True
Else RegSetStringValue=False
End If
End Function
在Clik事件中编写下列代码
Private sub Commandl_Clik()
Dim hkey As Long
Dim MyReturn As Long
MyReturn=oRegOpenkey(HKEY_LOCAL_MACHINE,
“SOFTWARE\Microsoft\Windows\CurrentVersion\Run”,hkey)
If hkey=0 Then
MsgBox “您要求打开的主键未创建，
或者您的输入有误，请仔细核对后再次运行本程序！”
Exit Sub
End If
MyReturn=RegSetStringValue(hkey,
“MyAcess”,“d:\programfiles\office97\
office\mymsaccess.exe”,False)
’如果flag丢失或为True,则该动作将
被记录在日志文件中，并且，如果用户选择
删除已安装的应用程序，该值将被应用程序删除。
If MyReturn Then
MsgBox “您的程序已成功添加到
Windows 98的启动中，再次启动Windows时
系统将自动运行您的程序！”,vbExclamation,“特别提示”
Else MsgBox “您的这段代码中存在某种错误，
请认真检查！”,vbExclamation,“特别提示”
End If
RegCloseKey(hkey)
End Sub
在百度中查找更多用Visual Basic修改Windows98注册表的内容
|
|
|
|
|
|
“ 用Visual Basic修改Windows98注册表”来源于网络，版权归作者所有！勿用于商业用途。 |
|
| |
本类阅读TOP10