VBNet - Форум - странности

Вопрос: странности Добавлено: 27.03.04 22:56

Автор вопроса: ZoomerSD | ICQ: 148640473

вот такая бяка получаеться, у меня на компе код
Set Reg = CreateObject("WScript.Shell")
On Error GoTo 10
str1 = Reg.RegRead("HKLM\Software\Microsoft\Windows\CurrentVersion\Run\WallPaper")
If Len(str1) > 0 Then Check1.Value = 1
Exit Sub
10
Check1.Value = 0
работает на ура, на другой машине выдают в строке Set Reg = CreateObject("WScript.Shell") ошибку с каким-то чудовещьным номером и непонятным описанием:(( что делать???

Ответить

Ответы Всего ответов: 6

Номер ответа: 1 Автор ответа: cresta Вопросов: 117 Ответов: 1538	Профиль \| \| #1	Добавлено: 28.03.04 01:03
	Как это что делать? Записывай номер ошибки и с этим номером ныряешь в MSDN, и начинаешь долго и упорно искать и переводить Ответить

Номер ответа: 2
Автор ответа:

lamepok

ICQ: 6206624

Вопросов: 5
Ответов: 52

Профиль | | #2

Добавлено: 28.03.04 01:38

А, чего ты хочешь?

Если обхода ошибки то добавь к своей метке №10 Следующий код:

if err="здесь введи номер своей ошибки" then "что угодно"

Ответить

Номер ответа: 3 Автор ответа: lamepok ICQ: 6206624 Вопросов: 5 Ответов: 52	Профиль \| \| #3	Добавлено: 28.03.04 01:43
	Привет Ответить

Номер ответа: 4
Автор ответа:

Sharp

Лидер форума

ICQ: 216865379

Вопросов: 106
Ответов: 9979

Web-сайт: sharpc.livejournal.com
Профиль | | #4

Добавлено: 28.03.04 10:44

Наверно, создать объект не может... Проверь, установлен ли там сервер сценариев. А вообще - юзай API.

Ответить

Номер ответа: 5
Автор ответа:

ZoomerSD

ICQ: 148640473

Вопросов: 135
Ответов: 270

Профиль | | #5

Добавлено: 28.03.04 11:57

MSDN у меня неть(( и я об этом жалею, нет, мне нужен не обход ошибки, а её исправление , а строка On Error GoTo 10 нужна потому, что если нет такого ключа, вылетает ошибка. Sharp прав, там скорее всего не создаёться обьект.И соответственно возникает вопрос, как проверить и установить этот сервер сценариев(программно)?

Ответить

Номер ответа: 6
Автор ответа:

Sharp

Лидер форума

ICQ: 216865379

Вопросов: 106
Ответов: 9979

Web-сайт: sharpc.livejournal.com
Профиль | | #6

Добавлено: 28.03.04 19:09

Посмотри HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Setup\OptionalComponents. Правда, сервера сценариев я там не нашел, но, наверно, плохо искал... Там в папках есть ключи - Installed (установлено или нет) и имя файла inf установки.

Ответить

Страница: 1 |