调用原始鼠标输入闪退

黑色幽默ゞ

.版本 2

.DLL命令 SetWindowLong, 整数型, "user32.dll", "SetWindowLongA"
    .参数 hWnd, 整数型
    .参数 nIndex, 整数型
    .参数 dwNewLong, 整数型

.DLL命令 CallWindowProc, 整数型, "user32.dll", "CallWindowProcA"
    .参数 lpPrevWndFunc, 整数型
    .参数 hWnd, 整数型
    .参数 Msg, 整数型
    .参数 wParam, 整数型
    .参数 lParam, 整数型

.DLL命令 RegisterRawInputDevices, 逻辑型, "user32.dll", "RegisterRawInputDevices"
    .参数 pRawInputDevices, RAWINPUTDEVICE, 传址 数组
    .参数 uiNumDevices, 整数型
    .参数 cbSize, 整数型

.DLL命令 GetRawInputData, 整数型, "user32.dll", "GetRawInputData"
    .参数 hRawInput, 整数型
    .参数 uiCommand, 整数型
    .参数 pData, 整数型
    .参数 pcbSize, 整数型, 传址
    .参数 cbSizeHeader, 整数型

.DLL命令 SetLastError, , "kernel32.dll", "SetLastError"
    .参数 dwErrCode, 整数型



.版本 2

.数据类型 RAWINPUTHEADER_32
    .成员 dwType, 整数型
    .成员 dwSize, 整数型
    .成员 hDevice, 整数型
    .成员 wParam, 整数型

.数据类型 RAWMOUSE
    .成员 usFlags, 短整数型
    .成员 usButtonFlags, 短整数型
    .成员 usButtonData, 短整数型
    .成员 对齐保留, 短整数型
    .成员 ulRawButtons, 整数型
    .成员 lLastX, 整数型
    .成员 lLastY, 整数型
    .成员 ulExtraInformation, 整数型

.数据类型 RAWINPUT_32
    .成员 header, RAWINPUTHEADER_32
    .成员 mouse, RAWMOUSE

.数据类型 RAWINPUTDEVICE
    .成员 usUsagePage, 短整数型
    .成员 usUsage, 短整数型
    .成员 dwFlags, 整数型
    .成员 hwndTarget, 整数型

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
原窗口过程	整数型

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

' 你的界面初始化
' 验证结构体大小（正常会输出 40）
' 安装子类化
InstallSubclass ()
' 注册 RawInput
初始化RawInput ()

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

RemoveSubclass ()

子程序名	返回值类型	公开	备 注
InstallSubclass

原窗口过程 ＝ SetWindowLong (_启动窗口.取窗口句柄 (), -4, 到整数 (&WindowProc))

子程序名	返回值类型	公开	备 注
RemoveSubclass

如果 (原窗口过程 ≠ 0)
SetWindowLong (_启动窗口.取窗口句柄 (), -4, 原窗口过程)

子程序名	返回值类型	公开	备 注
WindowProc	整数型
参数名	类 型	参考	可空	数组	备 注
hWnd	整数型
Msg	整数型
wParam	整数型
lParam	整数型

判断 (Msg ＝ 255)  ' WM_INPUT
ProcessWM_INPUT (lParam)
返回 (0)
如果 (原窗口过程 ≠ 0)
返回 (CallWindowProc (原窗口过程, hWnd, Msg, wParam, lParam))
返回 (0)

子程序名	返回值类型	公开	备 注
初始化RawInput

变量名	类 型	静态	数组	备 注
rid	RAWINPUTDEVICE
ridArray	RAWINPUTDEVICE		1
注册结果	逻辑型

rid.usUsagePage ＝ 1
rid.usUsage ＝ 2
rid.dwFlags ＝ 256  ' RIDEV_INPUTSINK
rid.hwndTarget ＝ _启动窗口.取窗口句柄 ()
ridArray [1] ＝ rid
注册结果 ＝ RegisterRawInputDevices (ridArray, 1, 12)
输出调试文本 (“注册结果: ” ＋ 到文本 (注册结果))
' ================== 处理 WM_INPUT ==================

子程序名	返回值类型	公开	备 注
ProcessWM_INPUT
参数名	类 型	参考	可空	数组	备 注
lParam	整数型

变量名	类 型	静态	数组	备 注
raw	RAWINPUT_32
大小	整数型
结果	整数型

' 清空错误码，避免看到历史残留
SetLastError (0)
大小 ＝ 40
结果 ＝ GetRawInputData (lParam, 268435459, 取变量地址 (raw), 大小, 16)
如果 (结果 ＝ 大小)
如果 (raw.header.dwType ＝ 0)  ' 鼠标输入
输出调试文本 (“鼠标移动 X: ” ＋ 到文本 (raw.mouse.lLastX) ＋ “, Y: ” ＋ 到文本 (raw.mouse.lLastY))
输出调试文本 (“非鼠标输入, dwType=” ＋ 到文本 (raw.header.dwType))

输出调试文本 (“获取失败！返回值: ” ＋ 到文本 (结果) ＋ “, 错误码: ” ＋ 到文本 (取最后错误 ()))

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 原窗口过程, 整数型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> ' 你的界面初始化<br /> <br /> ' 验证结构体大小（正常会输出 40）<br /> ' 安装子类化<br /> InstallSubclass ()<br /> ' 注册 RawInput<br /> 初始化RawInput ()<br /> <br /> .子程序 __启动窗口_将被销毁<br /> <br /> RemoveSubclass ()<br /> <br /> .子程序 InstallSubclass<br /> <br /> 原窗口过程 ＝ SetWindowLong (_启动窗口.取窗口句柄 (), -4, 到整数 (&WindowProc))<br /> <br /> .子程序 RemoveSubclass<br /> <br /> .如果 (原窗口过程 ≠ 0)<br />     SetWindowLong (_启动窗口.取窗口句柄 (), -4, 原窗口过程)<br /> .否则<br /> <br /> .如果结束<br /> <br /> <br /> .子程序 WindowProc, 整数型<br /> .参数 hWnd, 整数型<br /> .参数 Msg, 整数型<br /> .参数 wParam, 整数型<br /> .参数 lParam, 整数型<br /> <br /> .判断开始 (Msg ＝ 255)  ' WM_INPUT<br />     ProcessWM_INPUT (lParam)<br />     返回 (0)<br /> .默认<br />     .如果 (原窗口过程 ≠ 0)<br />         返回 (CallWindowProc (原窗口过程, hWnd, Msg, wParam, lParam))<br />     .否则<br />         返回 (0)<br />     .如果结束<br /> <br /> .判断结束<br /> <br /> <br /> .子程序 初始化RawInput<br /> .局部变量 rid, RAWINPUTDEVICE<br /> .局部变量 ridArray, RAWINPUTDEVICE, , "1"<br /> .局部变量 注册结果, 逻辑型<br /> <br /> rid.usUsagePage ＝ 1<br /> rid.usUsage ＝ 2<br /> rid.dwFlags ＝ 256  ' RIDEV_INPUTSINK<br /> rid.hwndTarget ＝ _启动窗口.取窗口句柄 ()<br /> ridArray [1] ＝ rid<br /> 注册结果 ＝ RegisterRawInputDevices (ridArray, 1, 12)<br /> 输出调试文本 (“注册结果: ” ＋ 到文本 (注册结果))<br /> <br /> ' ================== 处理 WM_INPUT ==================<br /> <br /> .子程序 ProcessWM_INPUT<br /> .参数 lParam, 整数型<br /> .局部变量 raw, RAWINPUT_32<br /> .局部变量 大小, 整数型<br /> .局部变量 结果, 整数型<br /> <br /> ' 清空错误码，避免看到历史残留<br /> SetLastError (0)<br /> 大小 ＝ 40<br /> 结果 ＝ GetRawInputData (lParam, 268435459, 取变量地址 (raw), 大小, 16)<br /> .如果 (结果 ＝ 大小)<br />     .如果 (raw.header.dwType ＝ 0)  ' 鼠标输入<br />         输出调试文本 (“鼠标移动 X: ” ＋ 到文本 (raw.mouse.lLastX) ＋ “, Y: ” ＋ 到文本 (raw.mouse.lLastY))<br />     .否则<br />         输出调试文本 (“非鼠标输入, dwType=” ＋ 到文本 (raw.header.dwType))<br />     .如果结束<br /> <br /> .否则<br />     输出调试文本 (“获取失败！返回值: ” ＋ 到文本 (结果) ＋ “, 错误码: ” ＋ 到文本 (取最后错误 ()))<br /> .如果结束

鼠标输入.e (14.69 KB, 下载次数: 1)

昨天 23:45 上传

点击文件名下载附件

许七分

你的dll命令 GetRawInputData 参数pData类型写错了，应该改为：RAWINPUT_32 并勾选传址。

  

DLL命令名	返回值类型	公开	备 注
GetRawInputData	整数型
DLL库文件名:
user32.dll
在DLL库中对应命令名:
GetRawInputData
参数名	类 型	传址	数组	备 注
hRawInput	整数型
uiCommand	整数型
pData	RAWINPUT_32
pcbSize	整数型
cbSizeHeader	整数型

.版本 2<br /> <br /> .DLL命令 GetRawInputData, 整数型, "user32.dll", "GetRawInputData"<br />     .参数 hRawInput, 整数型<br />     .参数 uiCommand, 整数型<br />     .参数 pData, RAWINPUT_32, 传址<br />     .参数 pcbSize, 整数型, 传址<br />     .参数 cbSizeHeader, 整数型

然后再改下调用

  

结果 ＝ GetRawInputData (lParam, 268435459, raw, 大小, 16)  ’ 原来是取变量地址 (raw)，现在直接写变量raw

结果 ＝ GetRawInputData (lParam, 268435459, raw, 大小, 16)  ’ 原来是取变量地址(raw)，现在直接写变量raw