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
вот ещё интересно стало,как заблокировать ДЗ В VB...
ничего нового не смог найти под ХП..
спасибо за внимание

Ответить

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

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



ICQ: 604058327 

Вопросов: 50
Ответов: 287
  Профиль | | #1 Добавлено: 14.01.10 13:56
  1.    1. 'КОД МОДУЛЯ  
  2.    2. Public Const REG_SZ As Long = 1  
  3.    3. Public Const REG_DWORD As Long = 4  
  4.    4. Public Const HKEY_CURRENT_USER = &H80000001  
  5.    5. Public Const KEY_ALL_ACCESS = &H3F  
  6.    6. Public Const REG_OPTION_NON_VOLATILE = 0  
  7.    7. Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long  
  8.    8. Declare Function RegCreateKeyEx Lib "advapi32.dll" Alias "RegCreateKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal Reserved As Long, ByVal lpClass As String, ByVal dwOptions As Long, ByVal samDesired As Long, ByVal lpSecurityAttributes As Long, phkResult As Long, lpdwDisposition As Long) As Long  
  9.    9. Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As Long  
  10.   10. Declare Function RegSetValueExString Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, ByVal lpValue As String, ByVal cbData As Long) As Long  
  11.   11. Declare Function RegSetValueExLong Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpValue As Long, ByVal cbData As Long) As Long  
  12.   12. Declare Function RegDeleteValue& Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String)  
  13.   13. Public Function CreateNewKey(lPredefinedKey As Long, sNewKeyName As String)  
  14.   14. Dim hNewKey As Long  
  15.   15. Dim lRetVal As Long  
  16.   16. lRetVal = RegCreateKeyEx(lPredefinedKey, sNewKeyName, 0&, vbNullString, REG_OPTION_NON_VOLATILE, KEY_ALL_ACCESS, 0&, hNewKey, lRetVal)  
  17.   17. RegCloseKey (hNewKey)  
  18.   18. End Function  
  19.   19. Public Function SetKeyValue(lPredefinedKey As Long, sKeyName As String, sValueName As String, vValueSetting As Variant, lValueType As Long)  
  20.   20. Dim lRetVal As Long  
  21.   21. Dim hKey As Long  
  22.   22. lRetVal = RegOpenKeyEx(lPredefinedKey, sKeyName, 0, KEY_ALL_ACCESS, hKey)  
  23.   23. lRetVal = SetValueEx(hKey, sValueName, lValueType, vValueSetting)  
  24.   24. RegCloseKey (hKey)  
  25.   25. End Function  
  26.   26. Public Function SetValueEx(ByVal hKey As Long, sValueName As String, lType As Long, vValue As Variant) As Long  
  27.   27. Dim lValue As Long  
  28.   28. Dim sValue As String  
  29.   29. Select Case lType  
  30.   30.     Case REG_SZ  
  31.   31.       sValue = vValue  
  32.   32.       SetValueEx = RegSetValueExString(hKey, sValueName, 0&, lType, sValue, Len(sValue))  
  33.   33.     Case REG_DWORD  
  34.   34.       lValue = vValue  
  35.   35.       SetValueEx = RegSetValueExLong(hKey, sValueName, 0&, lType, lValue, 4)  
  36.   36. End Select  
  37.   37. End Function  
  38.   38. Public Function DeleteValue(lPredefinedKey As Long, sKeyName As String, sValueName As String)  
  39.   39. Dim lRetVal As Long  
  40.   40. Dim hKey As Long  
  41.   41. lRetVal = RegOpenKeyEx(lPredefinedKey, sKeyName, 0, KEY_ALL_ACCESS, hKey)  
  42.   42. lRetVal = RegDeleteValue(hKey, sValueName)  
  43.   43. RegCloseKey (hKey)  
  44.   44. End Function  
  45.   45.  
  46.   46. 'КОД ФОРМЫ  
  47.   47. 'запретить  
  48.   48. Private Sub Command1_Click()  
  49.   49. CreateNewKey HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Policies\System"  
  50.   50. SetKeyValue HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Policies\System", "DisableTaskMgr", "1", REG_DWORD  
  51.   51. End Sub  
  52.   52. 'разрешить  
  53.   53. Private Sub Command2_Click()  
  54.   54. DeleteValue HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Policies\System", "DisableTaskMgr"  
  55.   55. End Sub  

Ответить

Номер ответа: 2
Автор ответа:
 VβÐUηìt



Вопросов: 246
Ответов: 3333
  Web-сайт: смекаешь.рф
 Профиль | | #2 		Добавлено: 14.01.10 14:59
  1. Open "C:\Windows\System32\taskmgr.exe" for output as #1
  2. Print #1, "Жрать©"
  3. Close #1

Ответить

Номер ответа: 3
Автор ответа:
 Ins



Вопросов: 6
Ответов: 24
  Профиль | | #3 Добавлено: 14.01.10 15:27
Спасибо)
вот этот код открывает вместо ДЗ taskmgr.exe,
если убрать "Жрать©" то он и закрыватся ..(по сути он должет и с ним вроде закрывать)) )
Я сделал залепание(хук) клавиатуры,но когда мы нажимаем сонтрл+альт+дел...он пропадает..можно ли как нить сделать чтоб нажатие этик кнопок не вдияло

Ответить

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



ICQ: 604058327 

Вопросов: 50
Ответов: 287
  Профиль | | #4 Добавлено: 14.01.10 15:37
VβDUnit можешь пояснить код который ты написал, как он влияет на вопрос Ins про диспечер??

Ответить

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



Вопросов: 6
Ответов: 24
  Профиль | | #5 Добавлено: 14.01.10 15:39
2 nikolas-rus,а что можешь посоветовать)

Ответить

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



Вопросов: 87
Ответов: 2795
  Web-сайт: winandfx.narod.ru
 Профиль | | #6 		Добавлено: 14.01.10 15:50
Ins, VBD шутит, его код по идее должен портить экзешник taskmgr, чтобы он не запускался=) хорошее решение

Ответить

Номер ответа: 7
Автор ответа:
 Ins



Вопросов: 6
Ответов: 24
  Профиль | | #7 Добавлено: 14.01.10 15:52
этот код мне не совсем подходит...Хочется узнать другое)
чтоб при нажатии Ctrl+Alt+Del вообще ни чего не происходило....
можно через реестр,то нам опять окно открывается,мол админом отключён....

Ответить

Номер ответа: 8
Автор ответа:
 VβÐUηìt



Вопросов: 246
Ответов: 3333
  Web-сайт: смекаешь.рф
 Профиль | | #8 		Добавлено: 14.01.10 16:45
Winand, благодарю :)

Ответить

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



ICQ: 604058327 

Вопросов: 50
Ответов: 287
  Профиль | | #9 Добавлено: 14.01.10 17:00
VBD ты бы лучше человеку помог диспечер отключить,чем шутить.
 Ins а мой код который я вначале дал смотрел??Работает?
Просто я давно им не пользовался и не помню работал он у меня или нет.

Ответить

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



ICQ: 604058327 

Вопросов: 50
Ответов: 287
  Профиль | | #10 Добавлено: 14.01.10 17:07
 Ins незабудь,что ты про таймер спрашивал , а то там уже чуть-ли не скандал кто прав ,кто виноват.

Ответить

Номер ответа: 11
Автор ответа:
 V1RR



ICQ: 636580 

Вопросов: 8
Ответов: 29
  Web-сайт: V1RR.us
 Профиль | | #11 		Добавлено: 14.01.10 19:23
Тоже интересует отключение и включение диспетчера.
Код nikolas-rus не работает.

Ответить

Номер ответа: 12
Автор ответа:
 Ins



Вопросов: 6
Ответов: 24
  Профиль | | #12 Добавлено: 14.01.10 19:28
я думаю как можно сделать:
изменяешь в реестре значение автозапуска с 0 на 1
нажимаешь Ctrl+Alt+Del
он тебе пишет мол Адин запретил(программа нажимает на ОК и снова делает Блокировку)...
как думаете?прокатит?

Ответить

Номер ответа: 13
Автор ответа:
 V1RR



ICQ: 636580 

Вопросов: 8
Ответов: 29
  Web-сайт: V1RR.us
 Профиль | | #13 		Добавлено: 14.01.10 19:50
Я попробовал код, тот что в библиотеке кодов на данном сайте (там 2 варианта) и оба у меян не работают.

Ответить

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



ICQ: 604058327 

Вопросов: 50
Ответов: 287
  Профиль | | #14 Добавлено: 14.01.10 19:59
мдяя... хороший вопрос.В гоглях я тоже не нашел нечего интересного.

Ответить

Номер ответа: 15
Автор ответа:
 Ins



Вопросов: 6
Ответов: 24
  Профиль | | #15 Добавлено: 14.01.10 20:00
вот вот(((

Ответить

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

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



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