| История развития программирования, программирование, языки программирования, книги программирование | На сайте представлена информация про программирование в Интернете и работу |
|
Калькулятор, помосчь при создании, обьяснение !!! Копирование файлов по локальной сети Запуск программы с параметрами кнопка в заголовке окна Как Вы относитесь к курящим девушкам? Блокировка пол. install JBuilder, kak instalirovatJBuilder7 na linux Огромный расчет - нужно написать прогу, Помогите выбрать язык VB6 vs PB7, интересный прикол дозвон до интрнета Определение стиля рабочего стола error '339' - ДОСТАЛА!!!, дома работает, в универе- нет Как проверить TextBox Таблица значений в 1С, анологично в VB возможно? Справочник функций API, где взять OCX не происходит Text_Validate При закрытии формы, При Form_QueryUnload поле не проверяетс Помогите начинающему, Хочу начать изучать Java... В Word-е как получить имя открытого файла, БЕЗ расширения книга по DirectX события ComboBox скроллы в MDI На Ваш суд и заодно может что подскажете, архив Проблема при ЗАПУСКЕ проги под VB! Связь VB и WWW, какая может быть - Как задать минимальный размер формы? DialUP без настроек в Удаленном доступе к сети Global переменная Взаимодействие PHP c JAVA Запуск программы с заданными параметрами, как сделать? Вопрос по ActiveX не работает функция, rundll32 rnaui.dll,RnaWizard /1 заполнить список ComboBox (DBCombo) _, Значениями из опред. поля Data Base ? Проверка канала, IP адрес Help!!! Проверка Record's Fields На правильность типов, несоотв-е типа введенных USER-om данных Значение ячейки в MS Exel, Как присвоить значение ячейки Текст: Как "снять" слово с текста на метке Ошибка в программе, нахождение точки, на графике VSFlexGrid 7.0 Pro - что об этом знаете, возможность работы без базы данных Дока для подготовки к Certified Programmer Работа с датой, Как ввести дату по шаблону?? компиляция программы на VB, не получается закрыть другое приложение из VB, например Calc HEX - to - String... DEC.... и т.п., Перевод типа данных Глюк с коллекциями как написать условия IF:, 1) Если Х не Integer то... Удаление каталогов, Не могу удалить папку Мыло, через VB Работа с LPT портом!!!, Работа с LPT портом!!! Как Вы относитесь к курящим девушкам? Счетчик, посещаемости... Узнать текущий директорий Скрытие строк в Excel Увеличение DataGrid при увеличении размкра формы, чтоб автоматом добавлялись ячейки Выбор даты из таблицы, что максимально, приближенная к указанной Создание нового листа в Excel из VBA как запомнить цвет Отчеты=(, Не обновляются=( разбивка многострочной строки Перетаскивание группы ячеек в excel Как прочитать текст из Word-ова doc-a Как сделать рандомные картинки при перезагрузке?, готовый пример, куки, Math.random и т.д. Вопрос к мэтрам и зубрам Прблемы при работе с реестром Работа с элементом TabStrip Перехват событий нажатия клавиш. есть немного работы, создать базу данных Как подключить Progress Bar control?, если его нет! Нити(потоки) в VB, Корректное создание Работа программы на VB без Excel |
Платные хостинги Раскрутка сайта Книги по программированию Прблемы при работе с реестром
- Помогите знающие люди я учусь vb без всяких больших учебников так по статьям и т.п.Что неверно я сделал.Испльзую VB6. Создал модуль в нем написал код:Код Public Const REG_SZ As Long = 1Public Const REG_DWORD As Long = 4Public Const HKEY_LOCAL_MACHINE = &H80000002Public Const HKEY_CLASSES_ROOT = &H80000000Public Const HKEY_CURRENT_USER = &H80000001Public Const HKEY_USERS = &H80000003Public Const ERROR_NONE = 0Public Const ERROR_BADDB = 1Public Const ERROR_BADKEY = 2Public Const ERROR_CANTOPEN = 3Public Const ERROR_CANTREAD = 4Public Const ERROR_CANTWRITE = 5Public Const ERROR_OUTOFMEMORY = 6Public Const ERROR_INVALID_PARAMETER = 7Public Const ERROR_ACCESS_DENIED = 8Public Const ERROR_INVALID_PARAMETERS = 87Public Const ERROR_NO_MORE_ITEMS = 259Public Const KEY_ALL_ACCESS = &H3FPublic Const REG_OPTION_NON_VOLATILE = 0Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As LongDeclare 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 LongDeclare 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 LongDeclare 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 LongDeclare 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 LongDeclare 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 LongDeclare 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 LongDeclare 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 LongDeclare Function RegDeleteKey& Lib "advapi32.dll" Alias "RegDeleteKeyA" (ByVal hKey As Long, ByVal lpSubKey As String)Declare Function RegDeleteValue& Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String) 'Nicaaiea iiaiai ee??aPublic Function CreateNewKey(lPredefinedKey As Long, sNewKeyName As String)Dim hNewKey As LongDim lRetVal As LonglRetVal = RegCreateKeyEx(lPredefinedKey, sNewKeyName, 0&, vbNullString, REG_OPTION_NON_VOLATILE, KEY_ALL_ACCESS, 0&, hNewKey, lRetVal)RegCloseKey (hNewKey)End FunctionPublic Function SetKeyValue(lPredefinedKey As Long, sKeyName As String, sValueName As String, vValueSetting As Variant, lValueType As Long)Dim lRetVal As LongDim hKey As LonglRetVal = RegOpenKeyEx(lPredefinedKey, sKeyName, 0, KEY_ALL_ACCESS, hKey)lRetVal = SetValueEx(hKey, sValueName, lValueType, vValueSetting)RegCloseKey (hKey)End FunctionPublic Function SetValueEx(ByVal hKey As Long, sValueName As String, lType As Long, vValue As Variant) As LongDim lValue As LongDim sValue As StringSelect Case lTypeCase REG_SZsValue = vValueSetValueEx = RegSetValueExString(hKey, sValueName, 0&, lType, sValue, Len(sValue))Case REG_DWORDlValue = vValueSetValueEx = RegSetValueExLong(hKey, sValueName, 0&, lType, lValue, 4)End SelectEnd FunctionPublic Function QueryValue(lPredefinedKey As Long, sKeyName As String, sValueName As String)Dim lRetVal As LongDim hKey As LongDim vValue As VariantlRetVal = RegOpenKeyEx(lPredefinedKey, sKeyName, 0, KEY_ALL_ACCESS, hKey)lRetVal = QueryValueEx(hKey, sValueName, vValue)QueryValue = vValueRegCloseKey (hKey)End FunctionFunction QueryValueEx(ByVal lhKey As Long, ByVal szValueName As String, vValue As Variant) As LongDim cch As LongDim lrc As LongDim lType As LongDim lValue As LongDim sValue As StringOn Error GoTo QueryValueExErrorlrc = RegQueryValueExNULL(lhKey, szValueName, 0&, lType, 0&, cch)If lrc <> ERROR_NONE Then MsgBox "Aaiiuo (ee??a) ia nouanoaoao!", vbExclamation, Form1.CaptionSelect Case lType'Aey neiaieuiuoCase REG_SZ:sValue = String(cch, 0)lrc = RegQueryValueExString(lhKey, szValueName, 0&, lType, sValue, cch)If lrc = ERROR_NONE ThenvValue = Left$(sValue, cch)ElsevValue = EmptyEnd IfCase REG_DWORD:lrc = RegQueryValueExLong(lhKey, szValueName, 0&, lType, lValue, cch)If lrc = ERROR_NONE Then vValue = lValueCase Elselrc = -1End SelectQueryValueExExit:QueryValueEx = lrcExit FunctionQueryValueExError:Resume QueryValueExExitEnd FunctionPublic Function DeleteValue(lPredefinedKey As Long, sKeyName As String, sValueName As String)Dim lRetVal As LongDim hKey As LonglRetVal = RegOpenKeyEx(lPredefinedKey, sKeyName, 0, KEY_ALL_ACCESS, hKey)lRetVal = RegDeleteValue(hKey, sValueName)RegCloseKey (hKey)End FunctionPublic Function DeleteKey(lPredefinedKey As Long, sKeyName As String)Dim lRetVal As LonglRetVal = RegDeleteKey(lPredefinedKey, sKeyName)End FunctionhighlightSyntax('vbwMzc3N','vb');потом кинул на форму кнопкуи вписал ей код:Код CreateNewKey HKEY_LOCAL_MACHINE, "VB6"highlightSyntax('vbhkNjk2','vb');ничего не создается и не происходит.Может неправильный модуль?Помогите пожалуйста Это сообщение отредактировал cardinal - 21.10.2004, 18:08 - Взято от сюда - Вот так работает:Код CreateNewKey HKEY_LOCAL_MACHINE, "SOFTWARE\VB6"highlightSyntax('vbZGU4Nz','vb'); Добавлено @ 08:32 ~FoX~, это про встроенные функции VB: SaveSetting, GetAllSettings и GetSetting.А при помощи API functions можешь добраться до любой ветки. - Пожалуйста пользуйтесь тэгами, код читать невозможно и неохото!Погляди тут  |