骚年应该有内涵
给了注册表操作类你，想怎么操作注册表就怎么操作
'这是一个操作注册表的Bas文件,其中包含可以建立新键值,删除
'键值,查询键值的函数
'Sub Main()
'函数在注册表的"HKEY_CURRENT_USER\Software"中建立了
'一个SubKey1项并在其中建立了值，并在显示后删除建立
'的值，如果你想通过RegEdit看到结果，可以将最后两句
'删除，不过要记得手动删除建立的键值
'CreateNewKey HKEY_CURRENT_USER, "Software\SubKey1\SubKey2"
'SetKeyValue HKEY_CURRENT_USER, "Software\SubKey1\SubKey2", "Test", "This is just a test", REG_SZ
'MsgBox QueryValue(HKEY_CURRENT_USER, "Software\SubKey1\SubKey2", "Test")
'DeleteValue HKEY_CURRENT_USER, "Software\SubKey1\SubKey2", "Test"
'DeleteKey HKEY_CURRENT_USER, "Software\SubKey1\SubKey2"
'End Sub
Option Explicit
Global Const REG_SZ As Long = 1
Global Const REG_DWORD As Long = 4
Global Const HKEY_CLASSES_ROOT = &H80000000
Global Const HKEY_CURRENT_USER = &H80000001
Global Const HKEY_LOCAL_MACHINE = &H80000002
Global Const HKEY_USERS = &H80000003
Global Const ERROR_NONE = 0
Global Const ERROR_BADDB = 1
Global Const ERROR_BADKEY = 2
Global Const ERROR_CANTOPEN = 3
Global Const ERROR_CANTREAD = 4
Global Const ERROR_CANTWRITE = 5
Global Const ERROR_OUTOFMEMORY = 6
Global Const ERROR_INVALID_PARAMETER = 7
Global Const ERROR_ACCESS_DENIED = 8
Global Const ERROR_INVALID_PARAMETERS = 87
Global Const ERROR_NO_MORE_ITEMS = 259
Global Const KEY_ALL_ACCESS = &H3F
Global Const REG_OPTION_NON_VOLATILE = 0
Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Declare Function RegCreateKeyEx Lib "advapi32.dll" Alias "RegCreateKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal Reserved As Long, ByVal lpClass As String, ByVal dwOptions As Long, ByVal samDesired As Long, ByVal lpSecurityAttributes As Long, phkResult As Long, lpdwDisposition As Long) As Long
Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As Long
Declare Function RegQueryValueExString Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, ByVal lpData As String, lpcbData As Long) As Long
Declare Function RegQueryValueExLong Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Long, lpcbData As Long) As Long
Declare Function RegQueryValueExNULL Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, ByVal lpData As Long, lpcbData As Long) As Long
Declare Function RegSetValueExString Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, ByVal lpValue As String, ByVal cbData As Long) As Long
Declare Function RegSetValueExLong Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpValue As Long, ByVal cbData As Long) As Long
Private Declare Function RegDeleteKey& Lib "advapi32.dll" Alias "RegDeleteKeyA" (ByVal hKey As Long, ByVal lpSubKey As String)
Private Declare Function RegDeleteValue& Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String)
Public Function DeleteKey(lPredefinedKey As Long, sKeyName As String)
Dim lRetVal As Long
Dim hKey As Long
lRetVal = RegOpenKeyEx(lPredefinedKey, sKeyName, 0, KEY_ALL_ACCESS, hKey)
lRetVal = RegDeleteKey(lPredefinedKey, sKeyName)
RegCloseKey (hKey)
End Function
Public Function DeleteValue(lPredefinedKey As Long, sKeyName As String, sValueName As String)
Dim lRetVal As Long
Dim hKey As Long
lRetVal = RegOpenKeyEx(lPredefinedKey, sKeyName, 0, KEY_ALL_ACCESS, hKey)
lRetVal = RegDeleteValue(hKey, sValueName)
RegCloseKey (hKey)
End Function
Public Function SetValueEx(ByVal hKey As Long, sValueName As String, lType As Long, vValue As Variant) As Long
Dim lValue As Long
Dim sValue As String
Select Case lType
Case REG_SZ
sValue = vValue
SetValueEx = RegSetValueExString(hKey, sValueName, 0&, lType, sValue, Len(sValue))
Case REG_DWORD
lValue = vValue
SetValueEx = RegSetValueExLong(hKey, sValueName, 0&, lType, lValue, 4)
End Select
End Function
Function QueryValueEx(ByVal lhKey As Long, ByVal szValueName As String, vValue As Variant) As Long
Dim cch As Long
Dim lrc As Long
Dim lType As Long
Dim lValue As Long
Dim sValue As String
On Error GoTo QueryValueExError
lrc = RegQueryValueExNULL(lhKey, szValueName, 0&, lType, 0&, cch)
If lrc <> ERROR_NONE Then Error 5
Select Case lType
Case REG_SZ:
sValue = String(cch, 0)
lrc = RegQueryValueExString(lhKey, szValueName, 0&, lType, sValue, cch)
If lrc = ERROR_NONE Then
vValue = Left$(sValue, cch)
Else
vValue = Empty
End If
Case REG_DWORD:
lrc = RegQueryValueExLong(lhKey, szValueName, 0&, lType, lValue, cch)
If lrc = ERROR_NONE Then vValue = lValue
Case Else
lrc = -1
End Select
QueryValueExExit:
QueryValueEx = lrc
Exit Function
QueryValueExError:
Resume QueryValueExExit
End Function
Public Function CreateNewKey(lPredefinedKey As Long, sNewKeyName As String)
Dim hNewKey As Long
Dim lRetVal As Long
lRetVal = RegCreateKeyEx(lPredefinedKey, sNewKeyName, 0&, vbNullString, REG_OPTION_NON_VOLATILE, KEY_ALL_ACCESS, 0&, hNewKey, lRetVal)
RegCloseKey (hNewKey)
End Function
Public Function SetKeyValue(lPredefinedKey As Long, sKeyName As String, sValueName As String, vValueSetting As Variant, lValueType As Long)
Dim lRetVal As Long
Dim hKey As Long
lRetVal = RegOpenKeyEx(lPredefinedKey, sKeyName, 0, KEY_ALL_ACCESS, hKey)
lRetVal = SetValueEx(hKey, sValueName, lValueType, vValueSetting)
RegCloseKey (hKey)
End Function
Public Function QueryValue(lPredefinedKey As Long, sKeyName As String, sValueName As String)
Dim lRetVal As Long
Dim hKey As Long
Dim vValue As Variant
lRetVal = RegOpenKeyEx(lPredefinedKey, sKeyName, 0, KEY_ALL_ACCESS, hKey)
lRetVal = QueryValueEx(hKey, sValueName, vValue)
QueryValue = vValue
RegCloseKey (hKey)
End Function
【VB】修改注册表的DWORD值
Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Const HKEY_LOCAL_MACHINE = &H80000002
Private Const REG_DWORD = 4
Private Sub Command1_Click()
Dim lReturn As Long '储存返回值以判断是否成功
Dim hKey As Long '储存该键句柄
'打开键(此处用RegCreateKey而不用RegOpenKey是因为若键存在,则两者效果相同;若不存在,则前者创建该键,后者报错)
lReturn = RegCreateKey(HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\Hidden\SHOWALL", hKey)
'检测是否为成功(0)
If lReturn = 0 Then
'此处设置键值.设置DWORD时第五个参数为欲修改成的值(Long),最后一个参数总设为4
lReturn = RegSetValueEx(hKey, "CheckedValue", 0, REG_DWORD, 1, 4)
'检测是否失败
If lReturn <> 0 Then MsgBox "失败"
Else
MsgBox "失败"
End If
End Sub
vb 定义 DWORD
dim start as long
dim DllRes(1024) as byte
dim HWND as long
dim DLL(1024) as byte
【VB】修改注册表的DWORD值
Dim Reg
Set Reg=WScript.CreateObject("WScript.Shell")
Reg.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Authentication\LogonUI\Background\OEMBackground
","0","REG_DWORD"
如何用VB读取Dword中十六进制的值
Option Explicit
Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegQueryValue Lib "advapi32.dll" Alias "RegQueryValueA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal lpValue As String, lpcbValue As Long) As Long
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Private Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long
Private Const HKEY_LOCAL_MACHINE = &H80000002
Private Const REG_DWORD As Long = 4
Private Sub Form_Load()
Dim hKey As Long, mSubKey As String
mSubKey = "SOFTWARE\Microsoft\Internet Explorer\AboutURLs\"
Call RegOpenKey(HKEY_LOCAL_MACHINE, mSubKey, hKey)
Dim nValue As Long
Call RegQueryValueEx(hKey, "Home", 0, REG_DWORD, nValue, 4)
MsgBox nValue
Call RegCloseKey(hKey)
End Sub
请问如何用VB将注册表里的DWORD值转换成能看懂的文字串？
vb里面是可以把一个数字转换成一个日期/时间的。具体地，1 表示 1899年12月31日，依此类推下去。这个数字也可以是负数。vb显示日期的范围是 公元 100 年 1 月 1 日到公元 9999 年 12 月 31 日。因此可以这样：
'放一个按钮在form里面看效果（a是日期数字）：
Private Sub Command1_Click()
Dim a As Double, b As String
a = 1
b = FormatDateTime(a, vbGeneralDate)
MsgBox b
End Sub
输出的b就是对应的日期啦~~~这个方法应该是可行的，你可以试试看~~~解决了这个日期显示的问题，我相信十六进制转成十进制就不算什么难题啦...
VB6.0怎么安装 系统是WIN7
我就是win764位旗舰版，安装的是vb6.0的精简版。
非常简单，直接用百度搜索“vb6.0”，然后会出来一堆下载地址，选在ZOL中关村下载，可以直接安装，多少年了，一直用这个，大的软件平台也没病毒，比较安全放心。
希望对你有用，下载地址如下：
http://xiazai.zol.com.cn/xiazaiDown.php?n=de11294b2d213fe65&softid=29939&type=5
不过vb6.0必须在win7下面修改一下兼容性，不然win7特效会让vb6.0各种控件像乌龟一样慢，修改方法是，在安装好的vb6.0.exe文件上点鼠标右键，选择属性，然后按照下图操作。
vb 编程 中汇编 应用，请问 mov edi, dword ptr [esi] ，在vb 里面怎么实现啊？ End Function ，急！！
OPcode = OPcode + "8B3E"
转载请注明出处51数据库 » vb下载cdword vb新建regdword
