代码
DotNet.loadAssembly "Microsoft.VisualBasic.dll"
DotNet.loadAssembly "Microsoft.DirectX.DirectInput.dll"
SystemGuid = DotNetClass "Microsoft.DirectX.DirectInput.SystemGuid"
KeyboardDevice = DotNetObject "Microsoft.DirectX.DirectInput.Device" SystemGuid.Keyboard
CooperativeLevelFlags = DotNetClass "Microsoft.DirectX.DirectInput.CooperativeLevelFlags"
Operators = DotNetClass "Microsoft.VisualBasic.CompilerServices.Operators"
theCooperativeLevelFlags = Operators.OrObject CooperativeLevelFlags.Background CooperativeLevelFlags.NonExclusive
MaxHWND = DotNetObject "System.IntPtr" (Windows.getMAXHWND() as integer)
KeyboardDevice.SetCooperativeLevel MaxHWND theCooperativeLevelFlags
KeyboardDevice.Acquire()
KeyboardState = KeyboardDevice.GetCurrentKeyboardState()
DxKey = DotNetClass "Microsoft.DirectX.DirectInput.Key"
KeyboardState.item dxkey.x
dxkey.a
--KeyboardDevice.Dispose()
rollout test ""
(
timer clock "testClock" interval:300 --tick once a second
label test ""
on clock tick do
(
enableAccelerators = false
KeyboardState = KeyboardDevice.GetCurrentKeyboardState()
test.text = (KeyboardState.item dxkey.a) as string
)
)
createdialog test
Windows.getMAXHWND()是Max2008新增的函数，故需要Max2008版本，max9可用的过段时间再写，因为这是一个朋友需要的东西，所以，我不急.....
