Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Общий форум

Страница: 1 | 2 | 3 | 4 | 5 |

 

  Вопрос: Блокировка Ctrl+Alt+Del в VB Добавлено: 14.01.10 00:12  

Автор вопроса:  Ins

Ответить

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

Номер ответа: 46
Автор ответа:
 Дмитрий Юпатов



Вопросов: 4
Ответов: 457
  Web-сайт: cargomaster.at.ua/
 Профиль | | #46 		Добавлено: 18.01.10 20:43
Такой способ годится?:
В реестре есть ветка HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies
В ней необходимо создать (если он отсутствует) раздел System
В этом разделе создаем DWORD-параметр с именем DisableTaskMgr
Если ему присвоить 0, то диспетчер запускается, если 1 - бликоруется, и при попытке запуска получим месидж: "заблокировано админом".
Посему такая мысля: при старте прога создает/изменяет запись в реестре на 1, а при выходе ставит 0. А лучше не так даже - при старте прога читает текущее значение ключа и хранит его в памяти. При этом независимо от текущего значения присваивается 0. А при выходе значение ключа восстанавливается до первоначального (мы ж его на ум клали :)).
Возможные опасности: необходимо учитывать, что прога может вывалиться в результате критической ошибки и диспетчер останется заблокированным...

Ответить

Номер ответа: 47
Автор ответа:
 Дмитрий Юпатов



Вопросов: 4
Ответов: 457
  Web-сайт: cargomaster.at.ua/
 Профиль | | #47 		Добавлено: 18.01.10 23:23
немного ошибся:
При этом независимо от текущего значения присваивается 0
надо
При этом независимо от текущего значения присваивается 1

Ответить

Номер ответа: 48
Автор ответа:
 ηikolaŠ~rus



ICQ: 604058327 

Вопросов: 50
Ответов: 287
  Профиль | | #48 Добавлено: 19.01.10 18:02
 но нам то надо код, как это программно сделать?

Ответить

Номер ответа: 49
Автор ответа:
 Дмитрий Юпатов



Вопросов: 4
Ответов: 457
  Web-сайт: cargomaster.at.ua/
 Профиль | | #49 		Добавлено: 19.01.10 22:52
я словами описал способ, выложенный в самом первом ответе.

Ответить

Номер ответа: 50
Автор ответа:
 Winand



Вопросов: 87
Ответов: 2795
  Web-сайт: winandfx.narod.ru
 Профиль | | #50 		Добавлено: 21.01.10 12:36
Немного не в тему, но вчера узнал как работать с реестром через WMI. Очень удобно и кода мало.
Правда это для VBScript, но суть-то одна
  1. Option Explicit
  2. Dim oReg, ret, Value
  3. Const HKEY_CLASSES_ROOT = &H80000000
  4. Const Key = "*\shell\Upload to Internet\command"
  5. Value = Replace(WScript.ScriptFullName, WScript.ScriptName, "") & "upload.exe upload_rghost.vbs ""%1"""
  6. Set oReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
  7. ret = oReg.CreateKey(HKEY_CLASSES_ROOT, Key)
  8. If ret Then
  9. WScript.Echo "Cannot create registry key"
  10. Else
  11. ret = oReg.SetStringValue(HKEY_CLASSES_ROOT, Key, "", Value)
  12. If ret Then WScript.Echo "Cannot set registry key value"
  13. End If

Ответить

Номер ответа: 51
Автор ответа:
 ηikolaŠ~rus



ICQ: 604058327 

Вопросов: 50
Ответов: 287
  Профиль | | #51 Добавлено: 21.01.10 15:53
а что этот коде делает?

Ответить

Номер ответа: 52
Автор ответа:
 Winand



Вопросов: 87
Ответов: 2795
  Web-сайт: winandfx.narod.ru
 Профиль | | #52 		Добавлено: 21.01.10 16:05
Создает раздел HKEY_CLASSES_ROOT\*\shell\Upload to Internet\command
И записывает в него значение Value
(При том видимо нужны админские права)

Ответить

Номер ответа: 53
Автор ответа:
 VBDamager



Вопросов: 0
Ответов: 6
  Профиль | | #53 Добавлено: 12.06.10 12:57
Люди не парьтесь вот сорс на VB6 и без API для запрета TaskMan и RegEdit

  1.  
  2. Option Explicit
  3. Dim Reg As Object
  4.  
  5. Private Sub Запретить_Click()
  6. Set Reg = CreateObject("WScript.Shell")
  7. Reg.RegWrite "HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools", 1, "REG_DWORD"
  8. Reg.RegWrite "HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr", 1, "REG_DWORD"
  9. End Sub
  10.  
  11. Private Sub Разрешить_Click()
  12. Set Reg = CreateObject("WScript.Shell")
  13. Reg.RegWrite "HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools", 0, "REG_DWORD"
  14. Reg.RegWrite "HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr", 0, "REG_DWORD"
  15. End Sub

Ответить

Номер ответа: 54
Автор ответа:
 VBDamager



Вопросов: 0
Ответов: 6
  Профиль | | #54 Добавлено: 12.06.10 13:01
Люди не парьтесь вот код на VB6 без API и прочей хрени!Запрещает\разрешает TaskMan и RegEdit

  1. Option Explicit
  2. Dim Reg As Object
  3.  
  4. Private Sub Запретить_Click()
  5. Set Reg = CreateObject("WScript.Shell")
  6. Reg.RegWrite "HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools", 1, "REG_DWORD"
  7. Reg.RegWrite "HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr", 1, "REG_DWORD"
  8. End Sub
  9.  
  10. Private Sub Разрешить_Click()
  11. Set Reg = CreateObject("WScript.Shell")
  12. Reg.RegWrite "HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools", 0, "REG_DWORD"
  13. Reg.RegWrite "HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr", 0, "REG_DWORD"
  14. End Sub

Ответить

Номер ответа: 55
Автор ответа:
 VBDamager



Вопросов: 0
Ответов: 6
  Профиль | | #55 Добавлено: 12.06.10 13:02
Люди не парьтесь вот код на VB6 без API и прочей хрени!Запрещает\разрешает TaskMan и RegEdit

  1. Option Explicit
  2. Dim Reg As Object
  3.  
  4. Private Sub Запретить_Click()
  5. Set Reg = CreateObject("WScript.Shell")
  6. Reg.RegWrite "HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools", 1, "REG_DWORD"
  7. Reg.RegWrite "HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr", 1, "REG_DWORD"
  8. End Sub
  9.  
  10. Private Sub Разрешить_Click()
  11. Set Reg = CreateObject("WScript.Shell")
  12. Reg.RegWrite "HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools", 0, "REG_DWORD"
  13. Reg.RegWrite "HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr", 0, "REG_DWORD"
  14. End Sub

Ответить

Номер ответа: 56
Автор ответа:
 VBDamager



Вопросов: 0
Ответов: 6
  Профиль | | #56 Добавлено: 12.06.10 13:03
Люди не парьтесь вот код на VB6 без API и прочей хрени!Запрещает\разрешает TaskMan и RegEdit

Option Explicit
Dim Reg As Object

Private Sub Запретить_Click()
Set Reg = CreateObject("WScript.Shell";)
Reg.RegWrite "HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools", 1, "REG_DWORD"
Reg.RegWrite "HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr", 1, "REG_DWORD"
End Sub

Private Sub Разрешить_Click()
Set Reg = CreateObject("WScript.Shell";)
Reg.RegWrite "HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools", 0, "REG_DWORD"
Reg.RegWrite "HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr", 0, "REG_DWORD"
End Sub

Ответить

Номер ответа: 57
Автор ответа:
 VBDamager



Вопросов: 0
Ответов: 6
  Профиль | | #57 Добавлено: 12.06.10 13:04
Люди не парьтесь вот код на VB6 без API и прочей хрени!Запрещает\разрешает TaskMan и RegEdit

  1. Option Explicit
  2. Dim Reg As Object
  3.  
  4. Private Sub Запретить_Click()
  5. Set Reg = CreateObject("WScript.Shell")
  6. Reg.RegWrite "HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools", 1, "REG_DWORD"
  7. Reg.RegWrite "HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr", 1, "REG_DWORD"
  8. End Sub
  9.  
  10. Private Sub Разрешить_Click()
  11. Set Reg = CreateObject("WScript.Shell")
  12. Reg.RegWrite "HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools", 0, "REG_DWORD"
  13. Reg.RegWrite "HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr", 0, "REG_DWORD"
  14. End Sub

Ответить

Номер ответа: 58
Автор ответа:
 VBDamager



Вопросов: 0
Ответов: 6
  Профиль | | #58 Добавлено: 12.06.10 13:06
Вот код на VB6 без API и прочей хрени!Запрещает\разрешает TaskMan и RegEdit

  1. Option Explicit
  2. Dim Reg As Object
  3.  
  4. Private Sub Запретить_Click()
  5. Set Reg = CreateObject("WScript.Shell")
  6. Reg.RegWrite "HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools", 1, "REG_DWORD"
  7. Reg.RegWrite "HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr", 1, "REG_DWORD"
  8. End Sub
  9.  
  10. Private Sub Разрешить_Click()
  11. Set Reg = CreateObject("WScript.Shell")
  12. Reg.RegWrite "HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools", 0, "REG_DWORD"
  13. Reg.RegWrite "HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr", 0, "REG_DWORD"
  14. End Sub

Ответить

Номер ответа: 59
Автор ответа:
 VbStarter



ICQ: 357911808 

Вопросов: 118
Ответов: 1340
  Web-сайт: moscowdevils.ru
 Профиль | | #59 		Добавлено: 13.06.10 15:04
VBDamager, нахера столько сообщений создал?

Ответить

Номер ответа: 60
Автор ответа:
 VbStarter



ICQ: 357911808 

Вопросов: 118
Ответов: 1340
  Web-сайт: moscowdevils.ru
 Профиль | | #60 		Добавлено: 13.06.10 15:07
Такой способ годится?:
В реестре есть ветка HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies
В ней необходимо создать (если он отсутствует) раздел System
В этом разделе создаем DWORD-параметр с именем DisableTaskMgr
Если ему присвоить 0, то диспетчер запускается, если 1 - бликоруется, и при попытке запуска получим месидж: "заблокировано админом".

Здесь всё и такбыло написано надо было токо сделать код, а он как у дамэйджера простой. блин, дэмэйджер археолог.

Ответить

Страница: 1 | 2 | 3 | 4 | 5 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам