Option Explicit
'以下代码是有问题的。帮忙解释,该数据应如何设置?
RegCreateKey:RegOpenKey:RegSetValueEx :RegColseKey
'假定:以上已定义!
Const mREGKEYCurr = "SOFTWARE\Microsoft\Windows\MMion"
'假定:"HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\MMion"键值已存在

Const HKEY_LOCAL_MACHINE = &H80000002
Const REG_BINARY As Long = 3 '二进制
Dim hKey As Long

Private Sub Com_Error_Click()
Dim mRegStr As String
Dim mRegLong As Long
mRegLong=RegOpenKey (HKEY_LOCAL_MACHINE, mREGKEYCurr, hKey)
If mRegLong = 0 Then
mRegStr = "00 00 00 00 00 00 00 00 03 00 00 00 00 00 5B E0 00 00 5C E0 00 00 00 00"
RegCreateKey HKEY_LOCAL_MACHINE, mREGKEYCurr & "\minmingKey", hKey
RegSetValueEx hKey, "QiuOldErrorValue", "0", REG_BINARY, mRegStr, 4
End If
RegColseKey hKey
End Sub