friendfor.blogg.se

Private Sub frmJolt_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.LoadĮnd SubThis "blocked", Alt Tab, Ctrl Esc, the Windows key, but, In Windows XP, it still allowed the task manager to po up once Ctrl Alt Del was pressed. GetExecutingAssembly.GetModules()(0)).ToInt32, 0)ĭebug.WriteLine("Keyboard hook failed: " & Err.LastDllError) Public Delegate Function KeyboardHookDelegate( _īyVal wParam As Integer, ByRef lParam As KBDLLHOOKSTRUCT) _Ĭallback = New KeyboardHookDelegate(AddressOf KeyboardCallback) Public Function KeyboardCallback(ByVal Code As Integer, _īyRef lParam As KBDLLHOOKSTRUCT) As Integer Private Sub HookedState(ByVal Text As String) ' Implement this function to block as manyīyRef Hookstruct As KBDLLHOOKSTRUCT) As Boolean Private Const WH_KEYBOARD_LL As Integer = 13& Private Const LLKHF_ALTDOWN As Integer = &H20 Private Const LLKHF_INJECTED As Integer = &H10 Private Const LLKHF_EXTENDED As Integer = &H1 Private Declare Function CallNextHookEx Lib "user32" _īyVal lParam As KBDLLHOOKSTRUCT) As Integer Private Declare Function GetAsyncKeyState Lib "user32" _ Public Declare Function SetWindowsHookEx Lib "user32" _Īlias "SetWindowsHookExA" (ByVal idHook As Integer, _īyVal lpfn As KeyboardHookDelegate, ByVal hmod As Integer, _ Private Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Integer) As Integer 'disable alt+tab and ctrl+esc and alt esc system keys