• Alen
  • Восстановленный участник
  • На форуме с 2 июня 2004г.
  • Сообщений: 20
  • Спасибо: 0

Тема: Доступ в РЕЕСТР средствами VBA или VB

Как програмно (например, нажатием на CommandButton) добраться  до HKEY_CURRENT_USER\Software\Autodesk\AutoCAD\RXX.0\ACAD-XXX:XX\FixedProfile\Command Line Windows\ ;
и здесь в TextWindows.Position (Type REG_SZ) изменить (Modify) значение (Value Data) на "0"

  • На форуме с 16 мая 2004г.
  • Сообщений: 148
  • Спасибо: 0

Re: Доступ в РЕЕСТР средствами VBA или VB

к реестру можно через WinAPI , но проще через VBScript - ставишь в VBA-Tools-References Windows Script Host Object Model.
а в эвенте кнопки
Private Sub CommandButton1_Click()
On Error Resume Next
Dim rr As New WshShell
rr.RegWrite "HKEY_CURRENT_USER\Software\Autodesk\AutoCAD\RXX.0\ACAD-XXX:XX\FixedProfile\Command Line Windows\TextWindows.Position", 0
End Sub

  • Alen
  • Восстановленный участник
  • На форуме с 2 июня 2004г.
  • Сообщений: 20
  • Спасибо: 0

Re: Доступ в РЕЕСТР средствами VBA или VB

> Тютюнников
Спасибо !!!
Решение отличное !
Но в продолжение поставленной задачи у меня не получилось получить данные из того же раздела; команда rr.RegRead дает ошибку. Нужно объявить еще что-то.
Синтаксис такой : rr.RegRead "HKEY_CURRENT_USER\Software\Autodesk\AutoCAD\RXX.0\ACAD-XXX:XX\FixedProfile\Command Line Windows\TextWindows.Position"

  • На форуме с 16 мая 2004г.
  • Сообщений: 148
  • Спасибо: 0

Re: Доступ в РЕЕСТР средствами VBA или VB

читать из реестра так же просто-
надо только переменную объявить, в которую читаете значение
dim rezult as integer
rezult=rr.RegRead("HKEY_CURRENT_USER\Software.......")
только в начале п/п надо
On Error Resume Next
ставить, из-за несоответствия типов могут быть грабли....
а по скриптам хелп от Microsoft есть классный, в MSDN тоже не мало написано. Штучка очень интересная, можно и на ведстраницах использовать