Registry problems!

Public Sub SetupScancodeMap()
Dim bArray(1 To 48) As Byte

On Error Resume Next
If g_bDebugMode = True Then Exit Sub
'
' Setup the keyboard scancode mapping to disable the Windows keys
' and Context menu keys
'
bArray(1) = &H0
bArray(2) = &H0
bArray(3) = &H0
bArray(4) = &H0

bArray(5) = &H0
bArray(6) = &H0
bArray(7) = &H0
bArray(8) = &H0
'
' Number of keys
'
bArray(9) = &H6
bArray(10) = &H0
bArray(11) = &H0
bArray(12) = &H0
'
' Windows key
'
bArray(13) = &H0
bArray(14) = &H0
bArray(15) = &H5B
bArray(16) = &HE0
'
' Windows key
'
bArray(17) = &H0
bArray(18) = &H0
bArray(19) = &H5C
bArray(20) = &HE0
'
' Windows menu key
'
bArray(21) = &H0
bArray(22) = &H0
bArray(23) = &H5D
bArray(24) = &HE0
'
' F10 key
'
bArray(25) = &H0
bArray(26) = &H0
bArray(27) = &H44
bArray(28) = &H0
'
' Left Ctrl-key
'
bArray(29) = &H0
bArray(30) = &H0
bArray(31) = &H1D
bArray(32) = &H0
'
' Left Alt-key
'
bArray(33) = &H0
bArray(34) = &H0
bArray(35) = &H38
bArray(36) = &H0
'
' Right Ctrl-key
'
bArray(37) = &H0
bArray(38) = &H0
bArray(39) = &H1D
bArray(40) = &HE0
'
' Right Alt-key
'
bArray(41) = &H0
bArray(42) = &H0
bArray(43) = &H38
bArray(44) = &HE0
'
' Null terminator
'
bArray(45) = &H0
bArray(46) = &H0
bArray(47) = &H0
bArray(48) = &H0
'
' Set the new registry value, does not take effect until the next reboot.
' You can use my registry module or your own routine to write the value to the registry.
'
Reg_SetKeyValue HKEY_LOCAL_MACHINE, "SYSTEM\CurrentControlSet\Control\KeyboardLayout", "Scancode Map", bArray, REG_BINARY
End Sub


This is the code I got. It's a code to lock out certain keyboardkeys for win2k and XP. But the last sentence is quite a pain in the ass. It needs a module which I don't have! Is there another way to write it to the registry? Is there someone with a little more experience with this sort of stuff than me and willing to rewrite this? Pls? Thx in advance!

"But the last sentence is quite a pain in the ass. It needs a module which I don't have! Is there another way to write it to the registry?"

Why do you need a module for it? If you do, why can you not have a module?

Why are you not calling the standard Windows API functions to do this. If you use these, you don't necessarily need a module.

in programming!
I don't know a lot about API's and registry stuff. Can you blame me? If you think it's so easy to do, why don't you make this thing work? Can you help me?

Add this to your module/form:
(NB: I don't have the declaration for "reg_binary" here, try reg_DWORD instead, or search the 'net for it).

VB Code:

Public Enum Reg_HKey_Area         'Constants for specifying areas
  HKEY_CLASSES_ROOT = &H80000000
  HKEY_CURRENT_USER = &H80000001
  HKEY_LOCAL_MACHINE = &H80000002
  HKEY_USERS = &H80000003
End Enum
 
Const ERROR_NONE = 0   'Function results (if specified in the function)
Const ERROR_BADDB = 1
Const ERROR_BADKEY = 2
Const ERROR_CANTOPEN = 3
Const ERROR_CANTREAD = 4
Const ERROR_CANTWRITE = 5
Const ERROR_OUTOFMEMORY = 6
Const ERROR_ARENA_TRASHED = 7
Const ERROR_ACCESS_DENIED = 8
Const ERROR_INVALID_PARAMETERS = 87
Const ERROR_NO_MORE_ITEMS = 259
Const ERROR_INSUFFICIENT_BUFFER = 122
Const ERROR_KEY_DELETED = 1018
Const ERROR_REGISTRY_CORRUPT = 1015
 
Public Enum Reg_Data_Type         'Constants for specifying data types
  Reg_String = &O1
  Reg_Dword = &O4
End Enum
 
Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey 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 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
 
 
 
Function Reg_SetKeyValue(KeyArea As Reg_HKey_Area, sKeyName As String, sValueName As String, vValue As Variant, Optional lValueType As Reg_Data_Type)
'Sets a specified value in the registry (may or may not exist already).
 
'NB:  This will only work if the KEY exists.  To ensure it does
'     you can simply call Reg_CreateNewKey (which creates it if
'     necessary) or Reg_CheckKeyExists.
 
'Returns codes as listed in DECLARATIONS (ie: 0=error_none = no error)
Dim lRetVal As Long, hKey As Long
 
            'try to detect type!
    If lValueType <> Reg_String And lValueType <> Reg_Dword Then
      lValueType = Reg_String
      If (IsNumeric(vValue)) Then
        If CInt(vValue) = vValue Then lValueType = Reg_Dword
      End If
    End If
                                    'open the specified key
    lRetVal = RegOpenKeyEx(KeyArea, sKeyName, 0, KEY_ALL_ACCESS, hKey)
    If lRetVal <> ERROR_NONE Then Reg_SetKeyValue = lRetVal: Exit Function
    
    Select Case lValueType          'set the value
    Case Reg_String:   Reg_SetKeyValue = RegSetValueExString(hKey, sValueName, 0&, Reg_String, CStr(vValue & Chr$(0)), CLng(Len(vValue) + 1))
    Case Reg_Dword:    Reg_SetKeyValue = RegSetValueExLong(hKey, sValueName, 0&, Reg_Dword, CLng(vValue), 4)
    End Select
 
    RegCloseKey (hKey)              'close the key
 
End Function