end if
'从纪录队列中取出消息并赋予lparam指针指向的eventmsg区域
copymemoryt2h lparam, eventarr(playlog), len(eventarr(eventlog))
elseif ((canplay = 1) and (icode = hc_skip)) then
bdelay = true
playlog = playlog + 1
end if
if playlog >= eventlog then
unhookwindowshookex hplay
end if
playbackproc = result
end function
在form1的代码窗口中加入以下代码：
option explicit
private sub command1_click()
eventlog = 0
hhook = setwindowshookex(wh_journalrecord, addressof hookproc, _
app.hinstance, 0)
command2.enabled = true
command1.enabled = false
