end if
end if
hookproc = result
end function
public function playbackproc(byval icode as long, byval wparam as long, _
byval lparam as long) as long
dim result as long
canplay = 1
result = 0
if icode < 0 then 'icode小于0必须直接调用下一个消息钩子函数
result = callnexthookex(hplay, icode, wparam, lparam)
elseif icode = hc_sysmodalon then '不允许回放
canplay = 0
elseif icode = hc_sysmodaloff then '允许回放
canplay = 1
elseif ((canplay = 1) and (icode = hc_getnext)) then
if bdelay then
bdelay = false
result = 50
