end sub
private sub command2_click()
unhookwindowshookex hhook
hhook = 0
command1.enabled = true
command2.enabled = false
command3.enabled = true
end sub
private sub command3_click()
playlog = 0
hplay = setwindowshookex(wh_journalplayback, addressof playbackproc, _
app.hinstance, 0)
command3.enabled = false
end sub
private sub form_load()
command1.caption = "纪录"
command2.caption = "停止"
command3.caption = "回放"
command2.enabled = false
command3.enabled = false
end sub
