Модераторы: Akina

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Проблема написания VBS, Для манипуляций с реестром. 
:(
    Опции темы
HitmanBloodBrother
  Дата 28.9.2007, 08:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 19
Регистрация: 28.9.2007

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



Приветствую всех. 
Подскажите пожалуйста следующее... 
На VBS надо бы написать следующее: 
Нужно чтобы проверялись записи в определенном ключе, вернее их значение. 
К примеру, HKLMExample в этом ключе нужно удалить все записи содержащие 0 в значении, кроме записи Default, тоесть должны остаться только записи с значением отличном от нуля и запись Default. 

Я только начинаю со всем этим добром разбираться и был бы очень признателен если б выложили непосредственно кусочек ключа основанного на данном примере. 

Спасибо.  smile 
PM MAIL   Вверх
Akina
Дата 28.9.2007, 10:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


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

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



Цитата(HitmanBloodBrother @  28.9.2007,  09:58 Найти цитируемый пост)
Нужно чтобы проверялись записи в определенном ключе, вернее их значение. 

Используйте методы RegRead, RegDelete объекта WSHShell. Справка и примеры в MSDN есть. 

Цитата(HitmanBloodBrother @  28.9.2007,  09:58 Найти цитируемый пост)
кроме записи Default

Default удалить невозможно - она эквивалентна ветке ключа. Как файлы "." и ".." в подкаталоге.


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

PM MAIL WWW ICQ Jabber   Вверх
HitmanBloodBrother
  Дата 28.9.2007, 12:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 19
Регистрация: 28.9.2007

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



Спасибо.
С деволтом я понял, а про MSDN можно по-подробнее, ссылочку или так еще чего...я просто толком не знаю как там и чего... :(
PM MAIL   Вверх
Akina
Дата 28.9.2007, 12:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


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

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



Цитата(HitmanBloodBrother @  28.9.2007,  13:14 Найти цитируемый пост)
про MSDN можно по-подробнее, ссылочку

msdn.microsoft.com


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

PM MAIL WWW ICQ Jabber   Вверх
HitmanBloodBrother
Дата 28.9.2007, 12:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 19
Регистрация: 28.9.2007

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



Премного благодарен конечно...
Но где там, то о чем Вы говорили??

Это сообщение отредактировал(а) HitmanBloodBrother - 28.9.2007, 14:33
PM MAIL   Вверх
Akina
Дата 28.9.2007, 12:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


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

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



Tools and Scripting
а вообще там поиск есть - по указанным словам найти страницу имхо не так уж и трудно


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

PM MAIL WWW ICQ Jabber   Вверх
kapbepucm
Дата 28.9.2007, 12:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 993
Регистрация: 14.6.2007
Где: Латвия

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





--------------------
(С) kapbepucm
PM MAIL Skype   Вверх
HitmanBloodBrother
  Дата 28.9.2007, 14:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 19
Регистрация: 28.9.2007

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



Цитата(Akina @ 28.9.2007,  12:42)
Tools and Scripting
а вообще там поиск есть - по указанным словам найти страницу имхо не так уж и трудно

kapbepucm,
Спасибо за ссылку. буду смотреть.


Akina,
А вообще я в своем первом посте-вопросе просил указать совершенно не то, на что Вы мне так старательно указываете ;)

 smile 
PM MAIL   Вверх
Akina
Дата 28.9.2007, 15:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


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

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



Цитата(HitmanBloodBrother @  28.9.2007,  09:58 Найти цитируемый пост)
Нужно чтобы проверялись записи в определенном ключе, вернее их значение. 

Получает WSHShell.RegRead. Сравнивает (ака проверяет) "=". Организует ветвление по результатам проверки If.

Цитата(HitmanBloodBrother @  28.9.2007,  09:58 Найти цитируемый пост)
нужно удалить все записи содержащие 0 в значении

Удаляет WSHShell.RegDelete.

Так что я указал НЕ ТО?


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

PM MAIL WWW ICQ Jabber   Вверх
HitmanBloodBrother
  Дата 28.9.2007, 15:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 19
Регистрация: 28.9.2007

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



Все верно, спасибо.
Мне просто хотелось увидать именно кусочек кода, как скажем проверяет(читает), затем ..ну  и так далее.
Ладно, буду тогда с конкреными вопросами...
Попробую наваять, напишу че да как. ;) smile
PM MAIL   Вверх
Akina
Дата 28.9.2007, 15:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


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

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



Цитата(HitmanBloodBrother @  28.9.2007,  16:42 Найти цитируемый пост)
Мне просто хотелось увидать именно кусочек кода

Ну так там же есть ссылочка по фамилии Example...


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

PM MAIL WWW ICQ Jabber   Вверх
HitmanBloodBrother
  Дата 30.9.2007, 21:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 19
Регистрация: 28.9.2007

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



Немного в сторону, но все же...дабы не создовать новую тему...пожалуйста не трите... ;)
Что не правильно:
Код

Debugflag = True

j = 0
Debug "start:", 0, 0

For 1 = 1 To 10
    Debug "Step:", 1, j
    j = j + 1
Next

Debug "End:", 1, j

WScript.Echo "Result:", j

Sub Debug(text, count, val)
    If DebugFlag Then
        WScript.Echo text, count, " Interim result:", val
    End If
End Sub  

Ругается на 6 строку, 5 символ...что не так?  smile 

Это сообщение отредактировал(а) HitmanBloodBrother - 1.10.2007, 15:58
PM MAIL   Вверх
Akina
Дата 30.9.2007, 22:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


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

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



Цитата(HitmanBloodBrother @  30.9.2007,  22:05 Найти цитируемый пост)
For 1 = 1 To 10




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

PM MAIL WWW ICQ Jabber   Вверх
HitmanBloodBrother
Дата 30.9.2007, 23:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 19
Регистрация: 28.9.2007

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



Цитата(Akina @ 30.9.2007,  22:50)
Цитата(HitmanBloodBrother @  30.9.2007,  22:05 Найти цитируемый пост)
For 1 = 1 To 10

Если не заьруднит, объясни, как должно быть?
В чем ошибка то??
Спасибо.
PM MAIL   Вверх
bom
Дата 30.9.2007, 23:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 329
Регистрация: 22.2.2004
Где: Казахстан, Алматы

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



не переменная
PM MAIL   Вверх
Страницы: (3) Все [1] 2 3 
Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.

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


 




[ Время генерации скрипта: 0.0618 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.