扫码枪获取HOOK 区分是商品码还是付款码或者手动输入

广二爷xxoo

扫码枪测试.e (1.83 MB, 下载次数: 147)

2019-10-18 15:42 上传

点击文件名下载附件
下载积分: 精币 -2 枚

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口			精易模块请自个调用
变量名	类 型	数组	备 注
付款码hHook	整数型
判断1	整数型

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

窗口_总在最前 (取窗口句柄 (), 真)
付款码hHook ＝ SetWindowsHookExA (13, &付款码钩子, GetModuleHandleA1 (0), 0)
提升进程权限D2 ()

子程序名	返回值类型	公开	备 注
付款码钩子	整数型		键盘钩子获取付款码
参数名	类 型	参考	可空	数组	备 注
nCode	整数型
wParam	整数型
lParam	整数型

变量名	类 型	静态	数组	备 注
消息	MSG
i	整数型		3
键记录	文本型
返回值	整数型
字符数组	整数型		0

如果真 (nCode ＝ 0)
CopyMemory (消息, lParam, 20)
' 判断输入的是否是数字键+回车键
判断 (文本_寻找文本 ( #数字键值, 到文本 (消息.hwnd), , ) ＝ -1 或 消息.hwnd ＝ 8 或 消息.hwnd ＝ 9)
返回 (0)



如果 (消息.wParam ＝ 0)
i [1] ＝ 取启动时间 ()
返回 (1)



如果 (取启动时间 () － i [1] ≤ 25)
判断 (消息.hwnd ＝ 48)
键记录 ＝ 键记录 ＋ “0”
加入成员 (字符数组, 消息.hwnd)
判断 (消息.hwnd ＝ 49)
键记录 ＝ 键记录 ＋ “1”
加入成员 (字符数组, 消息.hwnd)
判断 (消息.hwnd ＝ 50)
加入成员 (字符数组, 消息.hwnd)
键记录 ＝ 键记录 ＋ “2”
判断 (消息.hwnd ＝ 51)
加入成员 (字符数组, 消息.hwnd)
键记录 ＝ 键记录 ＋ “3”
判断 (消息.hwnd ＝ 52)
加入成员 (字符数组, 消息.hwnd)
键记录 ＝ 键记录 ＋ “4”
判断 (消息.hwnd ＝ 53)
加入成员 (字符数组, 消息.hwnd)
键记录 ＝ 键记录 ＋ “5”
判断 (消息.hwnd ＝ 54)
加入成员 (字符数组, 消息.hwnd)
键记录 ＝ 键记录 ＋ “6”
判断 (消息.hwnd ＝ 55)
加入成员 (字符数组, 消息.hwnd)
键记录 ＝ 键记录 ＋ “7”
判断 (消息.hwnd ＝ 56)
加入成员 (字符数组, 消息.hwnd)
键记录 ＝ 键记录 ＋ “8”
判断 (消息.hwnd ＝ 57)
加入成员 (字符数组, 消息.hwnd)
键记录 ＝ 键记录 ＋ “9”
判断 (消息.hwnd ＝ 13)  ' 回车键后，判断是否是付款码或者商品码
i [2] ＝ 取文本长度 (键记录)
判断 (i [2] ≤ 19 且 i [2] ≥ 17)
标签1.标题 ＝ 键记录
清除数组 (字符数组)
键记录 ＝ “”
i [2] ＝ 0
返回值 ＝ 0

判断 (i [2] ≤ 16 且 i [2] ≥ 5)
UnhookWindowsHookEx (付款码hHook)
' 执行商品编码输入
计次循环首 (取数组成员数 (字符数组), i [3])
按键2 (字符数组 [i [3]], 5, )
计次循环尾 ()
按键2 (13, 5, )
i [3] ＝ 0
键记录 ＝ “”
i [2] ＝ 0
清除数组 (字符数组)
返回值 ＝ 0
付款码hHook ＝ SetWindowsHookExA (13, &付款码钩子, GetModuleHandleA1 (0), 0)









UnhookWindowsHookEx (付款码hHook)
按键2 (消息.hwnd, 5, )
键记录 ＝ “”
清除数组 (字符数组)
返回值 ＝ 0
付款码hHook ＝ SetWindowsHookExA (13, &付款码钩子, GetModuleHandleA1 (0), 0)



返回 (返回值)

子程序名	返回值类型	公开	备 注
__启动窗口_将被销毁

UnhookWindowsHookEx (付款码hHook)

子程序名	返回值类型	公开	备 注
_时钟1_周期事件

付款码hHook ＝ SetWindowsHookExA (13, &付款码钩子, GetModuleHandleA1 (0), 0)

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口, , , 精易模块请自个调用<br /> .程序集变量 付款码hHook, 整数型<br /> .程序集变量 判断1, 整数型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 窗口_总在最前 (取窗口句柄 (), 真)<br /> 付款码hHook ＝ SetWindowsHookExA (13, &付款码钩子, GetModuleHandleA1 (0), 0)<br /> 提升进程权限D2 ()<br /> <br /> <br /> .子程序 付款码钩子, 整数型, , 键盘钩子获取付款码<br /> .参数 nCode, 整数型<br /> .参数 wParam, 整数型<br /> .参数 lParam, 整数型<br /> .局部变量 消息, MSG<br /> .局部变量 i, 整数型, 静态, "3"<br /> .局部变量 键记录, 文本型, 静态<br /> .局部变量 返回值, 整数型<br /> .局部变量 字符数组, 整数型, 静态, "0"<br /> <br /> <br /> .如果真 (nCode ＝ 0)<br />     CopyMemory (消息, lParam, 20)<br />     ' 判断输入的是否是数字键+回车键<br />     .判断开始 (文本_寻找文本 (#数字键值, 到文本 (消息.hwnd), , ) ＝ -1 或 消息.hwnd ＝ 8 或 消息.hwnd ＝ 9)<br />         返回 (0)<br /> <br />     .默认<br /> <br />         .如果 (消息.wParam ＝ 0)<br />             i [1] ＝ 取启动时间 ()<br />             返回 (1)<br /> <br />         .否则<br /> <br />             .如果 (取启动时间 () － i [1] ≤ 25)<br /> <br />                 .判断开始 (消息.hwnd ＝ 48)<br />                     键记录 ＝ 键记录 ＋ “0”<br />                     加入成员 (字符数组, 消息.hwnd)<br />                 .判断 (消息.hwnd ＝ 49)<br />                     键记录 ＝ 键记录 ＋ “1”<br />                     加入成员 (字符数组, 消息.hwnd)<br />                 .判断 (消息.hwnd ＝ 50)<br />                     加入成员 (字符数组, 消息.hwnd)<br />                     键记录 ＝ 键记录 ＋ “2”<br />                 .判断 (消息.hwnd ＝ 51)<br />                     加入成员 (字符数组, 消息.hwnd)<br />                     键记录 ＝ 键记录 ＋ “3”<br />                 .判断 (消息.hwnd ＝ 52)<br />                     加入成员 (字符数组, 消息.hwnd)<br />                     键记录 ＝ 键记录 ＋ “4”<br />                 .判断 (消息.hwnd ＝ 53)<br />                     加入成员 (字符数组, 消息.hwnd)<br />                     键记录 ＝ 键记录 ＋ “5”<br />                 .判断 (消息.hwnd ＝ 54)<br />                     加入成员 (字符数组, 消息.hwnd)<br />                     键记录 ＝ 键记录 ＋ “6”<br />                 .判断 (消息.hwnd ＝ 55)<br />                     加入成员 (字符数组, 消息.hwnd)<br />                     键记录 ＝ 键记录 ＋ “7”<br />                 .判断 (消息.hwnd ＝ 56)<br />                     加入成员 (字符数组, 消息.hwnd)<br />                     键记录 ＝ 键记录 ＋ “8”<br />                 .判断 (消息.hwnd ＝ 57)<br />                     加入成员 (字符数组, 消息.hwnd)<br />                     键记录 ＝ 键记录 ＋ “9”<br />                 .判断 (消息.hwnd ＝ 13)  ' 回车键后，判断是否是付款码或者商品码<br /> <br />                     i [2] ＝ 取文本长度 (键记录)<br />                     .判断开始 (i [2] ≤ 19 且 i [2] ≥ 17)<br />                         标签1.标题 ＝ 键记录<br />                         清除数组 (字符数组)<br />                         键记录 ＝ “”<br />                         i [2] ＝ 0<br />                         返回值 ＝ 0<br /> <br />                     .判断 (i [2] ≤ 16 且 i [2] ≥ 5)<br /> <br />                         UnhookWindowsHookEx (付款码hHook)<br />                         ' 执行商品编码输入<br />                         .计次循环首 (取数组成员数 (字符数组), i [3])<br />                             按键2 (字符数组 [i [3]], 5, )<br />                         .计次循环尾 ()<br />                         按键2 (13, 5, )<br /> <br /> <br />                         i [3] ＝ 0<br />                         键记录 ＝ “”<br />                         i [2] ＝ 0<br />                         清除数组 (字符数组)<br />                         返回值 ＝ 0<br />                         付款码hHook ＝ SetWindowsHookExA (13, &付款码钩子, GetModuleHandleA1 (0), 0)<br /> <br />                     .默认<br /> <br />                     .判断结束<br /> <br />                 .默认<br /> <br />                 .判断结束<br /> <br />             .否则<br /> <br />                 UnhookWindowsHookEx (付款码hHook)<br />                 按键2 (消息.hwnd, 5, )<br />                 键记录 ＝ “”<br />                 清除数组 (字符数组)<br />                 返回值 ＝ 0<br />                 付款码hHook ＝ SetWindowsHookExA (13, &付款码钩子, GetModuleHandleA1 (0), 0)<br />             .如果结束<br /> <br />         .如果结束<br /> <br />     .判断结束<br /> <br /> .如果真结束<br /> 返回 (返回值)<br /> <br /> .子程序 __启动窗口_将被销毁<br /> <br /> UnhookWindowsHookEx (付款码hHook)<br /> <br /> <br /> .子程序 _时钟1_周期事件<br /> <br /> 付款码hHook ＝ SetWindowsHookExA (13, &付款码钩子, GetModuleHandleA1 (0), 0)

gaopujun

学习一下

gaopujun

学习一下你好

opq123

感谢分享，很给力！~

龍殇

学习一下

xiaoxiao2

感谢分享！

黑暗学徒

学习学习

广二爷xxoo

xmz_2005 发表于 2021-12-10 19:45
超级模块9.2没有! 不能运行。

不用超级模块的

Mines

感谢分享！

Mines

感谢分享！