SamFad
Спасибо всем за Ваш вклад, потому что они заставили меня задуматься. Я нашел способ обойти это, и это установка значения 'DisableTaskmgr' в true в реестре.
Вот как я был в состоянии это выполнить:
Чтобы отключить Taskmanager:
Private Sub DisableTaskManager()
Dim regkey As RegistryKey
Dim keyValueInt As String = "1"
Dim subKey As String = "Software\Microsoft\Windows\CurrentVersion\Policies\System"
Try
regkey = Registry.CurrentUser.CreateSubKey(subKey)
regkey.SetValue("DisableTaskMgr", keyValueInt)
regkey.Close()
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "Registry Error!")
End Try
End Sub
Для Включения Диспетчера Задач
Private Sub EnableTaskManager()
Dim regkey As RegistryKey
Dim keyValueInt As String = "0" '0x00000000 (0)
Dim subKey As String = "Software\Microsoft\Windows\CurrentVersion\Policies\System"
Try
regkey = Registry.CurrentUser.CreateSubKey(subKey)
regkey.SetValue("DisableTaskMgr", keyValueInt)
regkey.Close()
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "Registry Error!")
End Try
End Sub
Спасибо, и я надеюсь, что все найдут этот фрагмент кода полезным.
Mahendra Saini
доступ deniend error ouccer при использовании следующего кода
Private Sub DisableTaskManager()
Дим раздела реестра в разделе реестра
Dim keyValueInt As String = " 1"
Дим подраздел как String = "программное обеспечение\Microsoft\окна\CurrentVersion равное\политики\система"
Попробуй
regkey = Registry.CurrentUser. CreateSubKey(подраздел)
раздел.SetValue ("DisableTaskMgr", keyValueInt)
раздел.Закрывать()
Поймать ex как исключение
MsgBox(ex. Message, MsgBoxStyle.Критично: "Ошибка Реестра!")
Конец Попытки
Конец Подводной Лодки