VPF::Ещо один вопрос по реестру - Форум программистов

Dredina

Дата 16.6.2006, 21:19 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 45
Регистрация: 15.5.2006
Где: Украина, ЖВ

Репутация: нет
Всего: нет

Код


Private Sub Command1_Click()
On Error Resume Next
Dim A As New WshShell
A.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr", 1, RegDword
End Sub

Из за чего может не работать етот код? Ошибок не выдает но не изменяет значения

Akina

Дата 16.6.2006, 21:43 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454

Цитата(Dredina @ 16.6.2006, 22:19

)

Из за чего может не работать етот код?

Думаю из-за неправильного создания объекта. Он должен создаваться через Set A = CreateObject()

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

Dredina

Дата 16.6.2006, 22:27 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 45
Регистрация: 15.5.2006
Где: Украина, ЖВ

Репутация: нет
Всего: нет

Ак как обьявить функцию CreateObject?

Naghual

Дата 17.6.2006, 11:01 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1893
Регистрация: 15.5.2004
Где: Украина, Днепр

Репутация: 26
Всего: 49

1. Ошибок не выдает так как в коде у тебя стоит "On Error Resume Next".

2. Читаем справку. Видим объявление:

Код

object.RegWrite(strName, anyValue [,strType])

Особое внимание прошу обратить на префикс параметра Type!
Читаем далее и убеждаемся в том что префикс там не даром стоит:

Цитата

strType
Optional. String value indicating the value's data type.

Смотрим пример:

Цитата

WshShell. RegWrite"HKCU\Software\ACME\FortuneTeller\", 1, "REG_BINARY"

Справка в MSDN Library

Вывод:
Вам необходимо научится пользоватся поиском и справкой.

3. Функция CreateObject родная и в объявлении не нуждается.

--------------------

Я желаю всем Счастья!

Dredina

Дата 17.6.2006, 12:55 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 45
Регистрация: 15.5.2006
Где: Украина, ЖВ

Репутация: нет
Всего: нет

Так как в примере написано у меня выдает ошибку 424

Код


WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr", 1, "RegDword"

Я по всякому пробовал, но там ошибки токо.. smile

Это сообщение отредактировал(а) Dredina - 17.6.2006, 12:56

Naghual

Дата 17.6.2006, 15:29 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1893
Регистрация: 15.5.2004
Где: Украина, Днепр

Репутация: 26
Всего: 49

Ты хоть просмотрел справку???
Согласно справки "RegDword" пишется как "REG_DWORD"

--------------------

Я желаю всем Счастья!

Dredina

Дата 18.6.2006, 00:15 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 45
Регистрация: 15.5.2006
Где: Украина, ЖВ

Репутация: нет
Всего: нет

Алилуйа!!! Получилось!!!

Код


Private Sub Command1_Click()
  Set Reg = CreateObject("WScript.Shell")
Reg.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr", 0, "REG_DWORD"
End Sub

Через CreateObject smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »