请问如何屏蔽掉DEL键已解决

zzm0163 · 发表于 2010-11-13 21:06:28

本帖最后由 zzm0163 于 2010-11-15 10:01 编辑

网吧计费系统被破解，需要屏蔽掉这个键。请高手指点

zzm0163 · 发表于 2010-11-13 21:50:50

各位老大，帮下忙。急

3mile · 发表于 2010-11-13 22:19:57

#include <WinAPI.au3>
#include <WindowsConstants.au3>
#include <StructureConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

Opt('MustDeclareVars', 1)

Global $hHook, $hStub_KeyProc, $buf = "", $title = "", $title_1 = "", $keycode, $buffer = "", $nMsg

Local $hmod
$hStub_KeyProc = DllCallbackRegister("_KeyProc", "long", "int;wparam;lparam")
$hmod = _WinAPI_GetModuleHandle(0)
$hHook = _WinAPI_SetWindowsHookEx($WH_KEYBOARD_LL, DllCallbackGetPtr($hStub_KeyProc), $hmod)
While 1
        Sleep(1)
WEnd

Func _KeyProc($nCode, $wParam, $lParam)
        Local $tKEYHOOKS, $wVKey
        $tKEYHOOKS = DllStructCreate($tagKBDLLHOOKSTRUCT, $lParam)
        If $nCode < 0 Then
                Return _WinAPI_CallNextHookEx($hHook, $nCode, $wParam, $lParam)
        EndIf
        $wVKey = DllStructGetData($tKEYHOOKS, "vkCode")
                If $wVKey=0x1b Then _exit()
        If ($wVKey = 0x2e) Then
                If ($wParam = $WM_KEYDOWN) Then
                        ToolTip("{del} was pressed.")
                        Return 1
                EndIf
        EndIf
        Return _WinAPI_CallNextHookEx($hHook, $nCode, $wParam, $lParam)
EndFunc        ;==>_KeyProc

Func _exit()
        _WinAPI_UnhookWindowsHookEx($hHook)
        DllCallbackFree($hStub_KeyProc)
        Exit
EndFunc   ;==>_exit

zzm0163 · 发表于 2010-11-14 12:17:54

万分感谢

zzm0163 · 发表于 2010-11-14 12:19:02

这个只有脚本在运行的时候才能屏蔽，退出脚本后，就不行了。有没有直接写入系统的方法呢。

m765555 · 发表于 2010-11-15 09:28:27

循环语句太占内存了，有没有其它的方法？？

3mile · 发表于 2010-11-15 09:56:08

回复 6# m765555
你知不知道自己在说什么?

m765555 · 发表于 2010-11-15 11:12:24

难道我说的不是那样的吗，真是很占呀，80%到90%，

m765555 · 发表于 2010-11-15 11:13:46

回复 8# m765555

我是说所有的循环语句占系统资源，我又没说针对你的源码，晕

janecd · 发表于 2010-12-25 23:20:41

正好需要，学习了！！

dd20121221 · 发表于 2013-9-8 18:47:32

请问组合键怎样屏蔽呢？

dd20121221 · 发表于 2013-9-8 18:47:34

请问组合键怎样屏蔽呢？

		自动登录	找回密码
密码			加入

[AU3基础] 请问如何屏蔽掉DEL键已解决

评分

相关帖子

评分

[AU3基础] 请问如何屏蔽掉DEL键 已解决

评分

相关帖子

评分

[AU3基础] 请问如何屏蔽掉DEL键已解决