沢渡さんの提示したスクリプトを改良し、mousew と同じ動作にするように修正したスクリプト。
#module _MouseHWheel_
#define global mouseh getMouseHWheel()
#defcfunc getMouseHWheel
if msgcmdinit = 0{
oncmd gosub *th,0x20E
msgcmdinit = 1
}
if msgcmdblock = 0 : msgcmdblock = 1 : return th_value
return 0
*th
th_value = wparam >> 16
msgcmdblock = 0
return
#global
*main
pos 0,0 : color 0,0,0 : boxf : color 255,255,255
mes ""+mouseh+" / "+mousew
await 10
goto *main