VB.net
Windows 작업관리자 차단 및 Alt+F4 키 차단
by 호야호잇
2021. 6. 3.
Protected Overrides Function ProcessDialogKey(ByVal keyData As System.Windows.Forms.Keys) As Boolean
Select Case (keyData)
Case Keys.Control
Return True
Case Keys.Alt Or Keys.F4
Return True
End Select
Return MyBase.ProcessDialogKey(keyData)
End Function
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, RegistryValueKind.DWord)
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, RegistryValueKind.DWord)
regkey.Close()
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "Registry Error!")
End Try
End Sub