| Вопрос: По работе с реестром | Добавлено: 04.01.07 21:04 |
Автор вопроса:  Ян
|
|
Господа подскажите в чем дело, на одном компе открываю реестр читаю и записываю данные в него. На другом, тот же код не работает. Причем ошибку не возвращает.
' Security Mask constants Public Const READ_CONTROL = &H20000 Public Const SYNCHRONIZE = &H100000 Public Const STANDARD_RIGHTS_ALL = &H1F0000 Public Const STANDARD_RIGHTS_READ = READ_CONTROL Public Const STANDARD_RIGHTS_WRITE = READ_CONTROL Public Const KEY_QUERY_VALUE = &H1 Public Const KEY_SET_VALUE = &H2 Public Const KEY_CREATE_SUB_KEY = &H4 Public Const KEY_ENUMERATE_SUB_KEYS = &H8 Public Const KEY_NOTIFY = &H10 Public Const KEY_CREATE_LINK = &H20 Public Const KEY_ALL_ACCESS = ((STANDARD_RIGHTS_ALL Or KEY_QUERY_VALUE Or _ KEY_SET_VALUE Or KEY_CREATE_SUB_KEY Or KEY_ENUMERATE_SUB_KEYS Or KEY_NOTIFY Or _ KEY_CREATE_LINK) And (Not SYNCHRONIZE)) Public Const KEY_READ = ((STANDARD_RIGHTS_READ Or KEY_QUERY_VALUE Or _ KEY_ENUMERATE_SUB_KEYS Or KEY_NOTIFY) And (Not SYNCHRONIZE)) Public Const KEY_EXECUTE = ((KEY_READ) And (Not SYNCHRONIZE)) Public Const KEY_WRITE = ((STANDARD_RIGHTS_WRITE Or KEY_SET_VALUE _ Or KEY_CREATE_SUB_KEY) And (Not SYNCHRONIZE)) Public Const REG_NONE As Long = 0 Public Const REG_SZ As Long = 1 Public Const REG_EXPAND_SZ As Long = 2 Public Const REG_BINARY As Long = 3 Public Const REG_DWORD As Long = 4 Public Const REG_LINK As Long = 6 Public Const REG_MULTI_SZ As Long = 7 Public Const REG_RESOURCE_LIST As Long = 8 ' Registry section definitions Public Const HKEY_CLASSES_ROOT = &H80000000 Public Const HKEY_CURRENT_USER = &H80000001 Public Const HKEY_LOCAL_MACHINE = &H80000002 Public Const HKEY_USERS = &H80000003 Public Const HKEY_PERFORMANCE_DATA = &H80000004 Public Const HKEY_CURRENT_CONFIG = &H80000005 Public Const HKEY_DYN_DATA = &H80000006 ' Codes returned by Reg API calls Private Const ERROR_NONE = 0 Private Const ERROR_BADDB = 1 Private Const ERROR_BADKEY = 2 Private Const ERROR_CANTOPEN = 3 Private Const ERROR_CANTREAD = 4 Private Const ERROR_CANTWRITE = 5 Private Const ERROR_OUTOFMEMORY = 6 Private Const ERROR_INVALID_PARAMETER = 7 Private Const ERROR_ACCESS_DENIED = 8 Private Const ERROR_INVALID_PARAMETERS = 87 Private Const ERROR_NO_MORE_ITEMS = 259 ' Registry API functions used in this module (there are more of them) 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 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 Private Declare Function RegQueryValueEx 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 Private Declare Function RegEnumValue Lib "advapi32.dll" Alias "RegEnumValueA" (ByVal hKey As Long, ByVal dwIndex As Long, ByVal lpValueName As String, lpcbValueName As Long, ByVal lpReserved As Long, lpType As Long, ByVal lpData As String, lpcbData As Long) As Long Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long 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 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 Private 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 RegFlushKey Lib "advapi32.dll" (ByVal hKey As Long) As Long Private Declare Function RegEnumKey Lib "advapi32.dll" Alias "RegEnumKeyA" (ByVal hKey As Long, ByVal dwIndex As Long, ByVal lpName As String, ByVal cbName As Long) As Long Private Declare Function RegDeleteKey Lib "advapi32.dll" Alias "RegDeleteKeyA" (ByVal hKey As Long, ByVal lpSubKey As String) As Long Private Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String) As Long Function ReadReg() Dim sValue As String sValue = Space$(2048) lValueLength = Len(sValue) lReturn = RegOpenKeyEx(HKEY_CURRENT_USER, "Software\Arm_Sb", 0, KEY_ALL_ACCESS, hSubKeyHandle) If lReturn <> 0 Then Exit Function lReturn = RegQueryValueEx(hSubKeyHandle, "Puth", 0, REG_SZ, sValue, lValueLength) Path = Mid$(sValue, 1, lValueLength - 1) sValue = Space$(2048) lValueLength = Len(sValue) lReturn = RegQueryValueEx(hSubKeyHandle, "Prop", 0, REG_SZ, sValue, lValueLength) Prop = Mid$(sValue, 1, lValueLength - 1) If Mid$(Prop, 1, 1) = "1" Then sValue = Space$(2048) lValueLength = Len(sValue) lReturn = RegQueryValueEx(hSubKeyHandle, "Interval", 0, REG_SZ, sValue, lValueLength) Rast = sValue End If lResult = RegCloseKey(lKeyValue) End Function Значение lReturn (в моем примере)как и положено 0. А вот hSubKeyHandle также 0, хотя не должен. Раздел в реестре существует. |
| Ответы | Всего ответов: 21 |
|
Номер ответа: 1 Автор ответа:  HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #1 | Добавлено: 04.01.07 21:23 |
| возможно нет прав? | ||
|
Номер ответа: 2 Автор ответа: Ян Вопросов: 2 Ответов: 3 |
Профиль | | #2 | Добавлено: 04.01.07 22:38 |
| Что значит нет прав, и там и там я админ | ||
|
Номер ответа: 3 Автор ответа: EROSВопросов: 58 Ответов: 4255  |
Профиль | | #3 | Добавлено: 04.01.07 23:59 |
|
я однажды наступил на такие грабли... неделю бился головой ап стену чуть йаду не принял..)))
Знаешь в чем фишка была??? Это Касперский блокирует вызов API из VBA..Там надо где то в настройках галочку убрать... Или для эксперимента вообще каспера погаси и снова прогони свой код... |
||
|
Номер ответа: 4 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #4 | Добавлено: 05.01.07 02:10 |
ужос... хорошо что я принципиально не использую антивирус касперского 
ЗюЫю если я б стал на такие грабли, и действительно бился ап стену неделю - йаду бы ксперскому почтой выслал
|
||
|
Номер ответа: 5 Автор ответа: ArsenyICQ: 298826769 Вопросов: 53 Ответов: 1732 |
Профиль | | #5 | Добавлено: 05.01.07 02:16 |
|
2 HACKER: Вот и я из-за таких фишек перешел на NOD32...
|
||
|
Номер ответа: 6 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #6 | Добавлено: 05.01.07 02:24 |
| А я на Avast ) | ||
|
Номер ответа: 7 Автор ответа: ArtyomРазработчик Вопросов: 130 Ответов: 6602 |
Профиль | | #7 | Добавлено: 05.01.07 02:31 |
|
Ламерааааааа!
10 лет без вирусов и антивирусов! |
||
|
Номер ответа: 8 Автор ответа: EROSВопросов: 58 Ответов: 4255 |
Профиль | | #8 | Добавлено: 05.01.07 12:35 |
| В последней версии(6.*.*.*) Каспер хоть извещает об этом.. мессагу выдает типа: Макрос VBA пытается вызвать API-функию. Разрешить? А вот в 5-й версии он вообще по тихому гасит этот вызов и все!! И даже ничего не говорит об этом! ))))) | ||
|
Номер ответа: 9 Автор ответа: SharpЛидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #9 | Добавлено: 05.01.07 14:50 |
|
10 лет без вирусов и антивирусов!
Это тебе только кажется, что без вирусов
|
||
|
Номер ответа: 10 Автор ответа: ArsenyICQ: 298826769 Вопросов: 53 Ответов: 1732 |
Профиль | | #10 | Добавлено: 05.01.07 16:24 |
|
10 лет без вирусов и антивирусов!
Хе-хе... А откуда ты это знаешь?
|
||
|
Номер ответа: 11 Автор ответа: ArtyomРазработчик Вопросов: 130 Ответов: 6602 |
Профиль | | #11 | Добавлено: 05.01.07 16:55 |
| Хуле, если б были вирусы, я бы это визуально определил! | ||
|
Номер ответа: 12 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #12 | Добавлено: 05.01.07 18:50 |
|
визуально.... даёшь GUI вирусы? Или ты про приколы вроде окошка форматирования Ц: ))))
Не опять шучу, на самом деле можно приложеним грамотно права разрулить, и вирусы несмогут функционировать/подсесть в автозагрузку итп итд... но с другой стороны вирусы они же разные бывают бывает такие как я пишу, а бывает такие как ms-rem'ы, coban'ы итп итд И вообще, сам майкрософт говорит, что защита должна быть многоуровневая, поэтому плюсом к расдачи прав, будет ещё и хороший антивирус
|
||
|
Номер ответа: 13 Автор ответа: ArtyomРазработчик Вопросов: 130 Ответов: 6602 |
Профиль | | #13 | Добавлено: 05.01.07 18:56 |
|
Нахрена мне нужна фоновая программа которая будет кушать половину процессорного времени и четверть памятьи?
Лушче позаботиться о том, чтоб на машину дерьмо всякое не попадало, чем использовать такие активные средства защиты 
|
||
|
Номер ответа: 14 Автор ответа: ArsenyICQ: 298826769 Вопросов: 53 Ответов: 1732 |
Профиль | | #14 | Добавлено: 05.01.07 18:57 |
|
Хуле, если б были вирусы, я бы это визуально определил!
А не думал, что когда определишь - поздно будет? 
|
||
|
Номер ответа: 15 Автор ответа: ArsenyICQ: 298826769 Вопросов: 53 Ответов: 1732 |
Профиль | | #15 | Добавлено: 05.01.07 19:00 |
|
Лушче позаботиться о том, чтоб на машину дерьмо всякое не попадало, чем использовать такие активные средства защиты
Если имеешь в виду стенку, то она у меня больше жрет, чем NOD32 |
||