http://hsp.tv/play/pforum.php?mode=pastwch&num=746
キーボードはこれでできるようです。
マウスの奴を作ってみました
;
; ちょくと氏のhscallbk.dllが必要
;
; http://yokohama.cool.ne.jp/chokuto/
;
#include "user32.as"
#include "hscallbk.as"
#uselib ""
#func proto_HookProc "" int, int, int
#define WH_MOUSE $00000007
#define VK_ESCAPE $0000001B
button "解除",*kaijo
input a,100,100
setcallbk pHookProc, proto_HookProc, *HookProc
mes "フック開始"
GetWindowThreadProcessId hwnd, 0
SetWindowsHookEx WH_MOUSE, varptr(pHookProc), hinstance, stat
hHook = stat
stop
*HookProc
nCode = callbkarg(0)
wp = callbkarg(1)
if nCode < 0 {
CallNextHookEx hHook, nCode, wp, callbkarg(2)
return stat
} else {
switch wp
case VK_ESCAPE
case 0x201:case 0x202:case 0x203:case 0x204:case 0x205:
retval = 1
swbreak
default
CallNextHookEx hHook, nCode, wp, callbkarg(2)
retval = stat
swend
}
return retval
*kaijo
;UnhookWindowsHookEx hHook←解除
mes "フック終了"
自ウィンドウのみですが;;