помогите с внесением в реестр

  • Автор темы Valon
  • Дата начала
V

Valon

Гость
#1
[HKEY_LOCAL_MACHINE\SYSTEM\RAdmin\v2.0\Server\NtUsers]
"1"=hex(03):24,00,00,00,00,00,00,00,1f,00,00,00,01,05,00,00,00,00,00,05,15,\
00,00,00,b6,44,e4,23,aa,c0,8b,4c,07,e5,3b,2b,00,02,00,00,18,00,00,00,00,00,\
00,00,1f,00,00,00,01,02,00,00,00,00,00,05,20,00,00,00,20,02,00,00


как можно внести вышеуказанное в реестр силами vb не прибегая к созданию rega

objRegistry.SetStringValue(HKEY_LOCAL_MACHINE, sPath, _
"1", Array(24,00,00,00,00,00,00,00,_
1f,00,00,00,01,05,00,00,00,00,00,05,15,00,00,00,b6,44,e4,23,aa,c0,8b,4c,07,e5,3b
,2b,00,02,00,00,18,00,00,00,00,00,00,00,1f,00,00,00,01,02,00,00,00,00,00,05,20,0
0
,00,00,20,02,00,00))

ругается на ошибку наличия ). пробовал разбивать на строки - нифига. Подскажите плииз
 
T

Tanya

Гость
#2
Возможно нужно вносить не String Value, а Bynary Value?
Для этого используется функция SetBinaryValue с аналогичными параметрами
и плюс к этому замечание: если нужно получить значение идентичное

hex(03):24,00,00,00,00,00,00,00,1f,00,00,00,01,05,00,00,00,00,00,05,15,\
00,00,00,b6,44,e4,23,aa,c0,8b,4c,07,e5,3b,2b,00,02,00,00,18,00,00,00,00,00,\
00,00,1f,00,00,00,01,02,00,00,00,00,00,05,20,00,00,00,20,02,00,00

то полагаю, что нужно для каждого значения в массиве (или хотя бы, для значений больших 9))))
добавлять префикс &H:

Код:
lRC = objRegistry.SetBinaryValue(HKEY_LOCAL_MACHINE, sPath, "1", _
Array(&H24&, 0, 0, 0, 0, 0, 0, 0, &H1F&, 0, 0, 0, 1, 5, 0, 0, 0, 0, _
0, 5, &H15&, 0, 0, 0, &HB6, &H44, &HE4, &H23, &HAA, &HC0, &H8B&, _
&H4C, 7, &HE5, &H3B, &H2B, 0, 2, 0, 0, &H18, 0, 0, 0, 0, 0, 0, 0, _
&H1F, 0, 0, 0, 1, 2, 0, 0, 0, 0, 0, 5, &H20, 0, 0, 0, &H20, 2, 0, 0))
В MSDN достаточно хороший пример на эту тему