Страница: 1 | 2 | 3 | 4 | 5 |
|
Вопрос: Блокировка Ctrl+Alt+Del в VB
|
Добавлено: 14.01.10 00:12
|
|
Автор вопроса: Ins
|
вот ещё интересно стало,как заблокировать ДЗ В VB...
ничего нового не смог найти под ХП..
спасибо за внимание
Ответить
|
Номер ответа: 1 Автор ответа:
ηikolaŠ~rus
![](images/starBlue.gif) ![](images/starBlue.gif) ![](images/starBlue.gif)
ICQ: 604058327 ![номер 604058327](http://wwp.icq.com/scripts/online.dll?icq=604058327&img=5)
Вопросов: 50 Ответов: 287
|
Профиль | | #1
|
Добавлено: 14.01.10 13:56
|
- 1.
- 2. Public Const REG_SZ As Long = 1
- 3. Public Const REG_DWORD As Long = 4
- 4. Public Const HKEY_CURRENT_USER = &H80000001
- 5. Public Const KEY_ALL_ACCESS = &H3F
- 6. Public Const REG_OPTION_NON_VOLATILE = 0
- 7. Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
- 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. 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. 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. 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. Declare Function RegDeleteValue& Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String)
- 13. Public Function CreateNewKey(lPredefinedKey As Long, sNewKeyName As String)
- 14. Dim hNewKey As Long
- 15. Dim lRetVal As Long
- 16. lRetVal = RegCreateKeyEx(lPredefinedKey, sNewKeyName, 0&, vbNullString, REG_OPTION_NON_VOLATILE, KEY_ALL_ACCESS, 0&, hNewKey, lRetVal)
- 17. RegCloseKey (hNewKey)
- 18. End Function
- 19. Public Function SetKeyValue(lPredefinedKey As Long, sKeyName As String, sValueName As String, vValueSetting As Variant, lValueType As Long)
- 20. Dim lRetVal As Long
- 21. Dim hKey As Long
- 22. lRetVal = RegOpenKeyEx(lPredefinedKey, sKeyName, 0, KEY_ALL_ACCESS, hKey)
- 23. lRetVal = SetValueEx(hKey, sValueName, lValueType, vValueSetting)
- 24. RegCloseKey (hKey)
- 25. End Function
- 26. Public Function SetValueEx(ByVal hKey As Long, sValueName As String, lType As Long, vValue As Variant) As Long
- 27. Dim lValue As Long
- 28. Dim sValue As String
- 29. Select Case lType
- 30. Case REG_SZ
- 31. sValue = vValue
- 32. SetValueEx = RegSetValueExString(hKey, sValueName, 0&, lType, sValue, Len(sValue))
- 33. Case REG_DWORD
- 34. lValue = vValue
- 35. SetValueEx = RegSetValueExLong(hKey, sValueName, 0&, lType, lValue, 4)
- 36. End Select
- 37. End Function
- 38. Public Function DeleteValue(lPredefinedKey As Long, sKeyName As String, sValueName As String)
- 39. Dim lRetVal As Long
- 40. Dim hKey As Long
- 41. lRetVal = RegOpenKeyEx(lPredefinedKey, sKeyName, 0, KEY_ALL_ACCESS, hKey)
- 42. lRetVal = RegDeleteValue(hKey, sValueName)
- 43. RegCloseKey (hKey)
- 44. End Function
- 45.
- 46.
- 47.
- 48. Private Sub Command1_Click()
- 49. CreateNewKey HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Policies\System"
- 50. SetKeyValue HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Policies\System", "DisableTaskMgr", "1", REG_DWORD
- 51. End Sub
- 52.
- 53. Private Sub Command2_Click()
- 54. DeleteValue HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Policies\System", "DisableTaskMgr"
- 55. End Sub
Ответить
|
Страница: 1 | 2 | 3 | 4 | 5 |
Поиск по форуму