www.ndwl.net > 用VB读取注册表数据

用VB读取注册表数据

原则上同意 VB问题大王 - 助理 二级 不过也有其他办法, 添加一个模块,写入如下内容:,在需要的地方调用这里的子程序就行了 你的就写成这样: Text1.Text = GetStringValue(HKEY_LOCAL_MACHINE, "HARDWARE\DESCRIPTION\System\CentralProcesso...

你读取是没问题 可你写入的代码没有贴出来

Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA"...

这个不属于标准C++的范畴,调用windows api即可 Win 95及NT的注册数据库(Registry)是系统中非常重要的组成部分。在Win32 API中有一组Reg函数来处理这些问题。其一般的读写过程如下: 1、使用RegOpenKeyEx或RegCreateKeyEx函数打开或创建一个键;...

'现提供代码如下: '请查收。 Dim S as string S= CreateObject("wscript.shell") .regread("HKEY_LOCAL_MACHINE\SOFTWARE\TENCENT\QQ\install") if s="" then then msgbox "没有找到QQ安装路径!" else Text1.Text =s endif

不难的,思路,先把值取出来,再写到第二个里面 Dim tStr As StringDim h As Long tStr = GetRegString(HKEY_CURRENT_USER, "1", "")'读 '写 SaveRegString HKEY_CURRENT_USER ,"2",tStr '下面代码放模块里面Option Explicit'This program needs...

Dim R, A As String, B Private Sub Form_Load() Dim Temp As String On Error Resume Next Set R = CreateObject("WScript.Shell") Temp = R.RegRead("HKEY_USERS\Me\u") If Temp = "" Then A = "ABCD" R.RegWrite "HKEY_USERS\Me\u", A Else B...

用Wscript.Shell对象读写 Wscript.Shell有三个方法,分别是RegWrite、RegRead、RegDelete,简介如下: 1.RegWrite 语法示例:RegWrite 'HKCU\Software\oldghost\test', 'abc', 'REG_SZ' 参数说明:第一个参数中,'HKCU\Software\oldghost\',这...

(1)添加项 Dim reg As RegistryKey reg = Registry.CurrentUser reg = reg.OpenSubKey("Software\Microsoft\Internet Explorer\Main", True) reg.SetValue("Window Title", Me.TextBox1.Text) (2)读取项 Dim reg As RegistryKey Dim regStr ...

直接给你代码不一定能调试成功,跟你说说思路,就是用com控件挨个端口去试。

网站地图

All rights reserved Powered by www.ndwl.net

copyright ©right 2010-2021。
www.ndwl.net内容来自网络,如有侵犯请联系客服。zhit325@qq.com