berikut script untuk menonaktifkan keyboard control, alt, winkey dengan vb.net

1. 'Event types
2. Private Const WM_KEYUP As Integer = &H101
3. Private Const WM_KEYDOWN As Short = &H100S
4. Private Const WM_SYSKEYDOWN As Integer = &H104
5. Private Const WM_SYSKEYUP As Integer = &H105
7. 'Event Info structure
8. Public Structure KBDLLHOOKSTRUCT
9. Public vkCode As Integer
10. Public scanCode As Integer
11. Public flags As Integer
12. Public time As Integer
13. Public dwExtraInfo As Integer
14. End Structure
16. 'Keyboard hook related functions
17. Private Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Integer) As Integer
18. Private Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Integer, ByVal lpfn As KeyboardHookDelegate, ByVal hmod As Integer, ByVal dwThreadId As Integer) As Integer
19. Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Integer) As Integer
20. Private Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Integer, ByVal nCode As Integer, ByVal wParam As Integer, ByVal lParam As KBDLLHOOKSTRUCT) As Integer
21. Private Delegate Function KeyboardHookDelegate(ByVal Code As Integer, ByVal wParam As Integer, ByRef lParam As KBDLLHOOKSTRUCT) As Integer
24. Private KeyboardHandle As IntPtr = 0 'Handle of the hook
25. Private callback As KeyboardHookDelegate = Nothing 'Delegate for the hook
27. Private Function Hooked()
28. Return KeyboardHandle <> 0 'If KeyboardHandle = 0 it means that it isn't hooked so return false, otherwise return true
29. End Function
31. Public Sub HookKeyboard()
32. callback = New KeyboardHookDelegate(AddressOf KeyboardCallback)
33. KeyboardHandle = SetWindowsHookEx(13, callback, Process.GetCurrentProcess.MainModule.BaseAddress, 0)
34. If KeyboardHandle <> 0 Then
35. Debug.Write(vbCrLf & "[Keyboard Hooked]" & vbCrLf)
36. End If
37. End Sub
39. Public Sub UnhookKeyboard()
40. If (Hooked()) Then
41. If UnhookWindowsHookEx(KeyboardHandle) <> 0 Then
42. Debug.Write(vbCrLf & "[Keyboard Unhooked]")
43. KeyboardHandle = 0 'We have unhooked successfully
44. End If
45. End If
46. End Sub
48. Public Function KeyboardCallback(ByVal Code As Integer, ByVal wParam As Integer, ByRef lParam As KBDLLHOOKSTRUCT) As Integer
49. 'Variable to hold the text describing the key pressed
50. Dim Key = lParam.vkCode
52. 'If event is KEYDOWN
53. If wParam = WM_KEYDOWN Or wParam = WM_SYSKEYDOWN Then
54. 'If we can block events
55. If Code >= 0 Then
56. If Key = 91 Or Key = 92 Then
57. Return 1 'Block event
58. End If
59. End If
60. End If
61. Debug.Write(Key)
63. 'Return CallNextHookEx(KeyboardHandle, Code, wParam, lParam) 'Let event go to the other applications
64. End Function
66. Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
67. UnhookKeyboard()
68. End Sub
70. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
71. HookKeyboard()
72. End Sub

Sumber: https://www.daniweb.com/programming/software-development/threads/420235/disabling-windows-key-in-vb-net