用Visual Basic修改Windows98注册表

用Visual Basic修改Windows98注册表 - 注册表 - 电脑教程网

用Visual Basic修改Windows98注册表

日期:2006-08-08   荐:
  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

(出处:http://www.sheup.com)




标签: