Проблемы с QueryValue / Visual Basic

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Проблемы с QueryValue

7 сообщений из 7, страница 1 из 1

Проблемы с QueryValue

#34369485

Morion

Гость

Доброго всем времени суток! У меня такая проблема... Для чтения данных из реестра я пользуюсь QueryValue , но... если эта функция пытается считать данные из несуществующего ключа, то она выводит на экран MsgBox с сообщением "No!". А мне этого не надо.
Просто необходимо, чтобы если этот ключ существует, выполнить одно действие, а если не существует - другое. Но появление во время работы программы этого сообщения нежелательно. Как можно это исправить???

...

Рейтинг:

0 / 0

04.03.2007, 11:02

| Ответить | Цитировать | Написать

Проблемы с QueryValue

#34370109

orunbek

Участник

Откуда: Гималай

Сообщения: 2 066

Рейтинг: 0 / 0

Можете код показать?

...

Рейтинг:

0 / 0

05.03.2007, 05:51

| Ответить | Цитировать | Написать

Проблемы с QueryValue

#34370879

Morion

Гость

Например...

Код: plaintext

1.
2.
3.
4.
5.

a = QueryValue (HKEY_LOCAL_MACHINE, "SOFTWARE\Morion\Data", "InstallDir")
If a = "" Then ' то есть если ключа не существует
...
else
...
End If

Если не существует ключа "Morion\Data" или значания "InstallDir", то выводится сообщение "No!"

...

Рейтинг:

0 / 0

05.03.2007, 12:05

| Ответить | Цитировать | Написать

Проблемы с QueryValue

#34374864

Morion

Гость

так значит никак?

...

Рейтинг:

0 / 0

06.03.2007, 15:32

| Ответить | Цитировать | Написать

Проблемы с QueryValue

#34376240

orunbek

Участник

Откуда: Гималай

Сообщения: 2 066

Рейтинг: 0 / 0

А через WMI?

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.

Const HKEY_LOCAL_MACHINE = &H80000002

strComputer = "."

Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _ 
    strComputer & "\root\default:StdRegProv")
 
strKeyPath = "SYSTEM\CurrentControlSet1\Services\Eventlog\System"
strValueName = "Sources"
oReg.GetMultiStringValue HKEY_LOCAL_MACHINE,strKeyPath, _
    strValueName,arrValues
 
For Each strValue In arrValues
    Wscript.Echo  strValue
Next

...

Рейтинг:

0 / 0

07.03.2007, 06:50

| Ответить | Цитировать | Написать

Проблемы с QueryValue

#34378972

Morion

Гость

всё, я понял. в модуле, при помощи котороро я работал с реестром, была такая запись:

Код: plaintext

If lrc <> ERROR_NONE Then MsgBox "No!", vbExclamation, Form1.Caption

Вот из-за неё и выводилось сообщение. вот...

...

Рейтинг:

0 / 0

08.03.2007, 13:40

| Ответить | Цитировать | Написать

Проблемы с QueryValue

#34379552

orunbek

Участник

Откуда: Гималай

Сообщения: 2 066

Рейтинг: 0 / 0

Morionвсё, я понял. в модуле, при помощи котороро я работал с реестром, была такая запись:

Код: plaintext

If lrc <> ERROR_NONE Then MsgBox "No!", vbExclamation, Form1.Caption

Вот из-за неё и выводилось сообщение. вот...
бывает ;-)

...

Рейтинг:

0 / 0

09.03.2007, 07:59

| Ответить | Цитировать | Написать

7 сообщений из 7, страница 1 из 1

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Проблемы с QueryValue

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=60&msg=34370879&tid=2164375]:	0ms
get settings:	7ms
get forum list:	10ms
check forum access:	2ms
check topic access:	2ms
track hit:	53ms
get topic data:	6ms
get forum data:	2ms
get page messages:	28ms
get tp. blocked users:	1ms
others:	202ms

total:	313ms

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы