键盘鼠标动作记录回放

ydj404606848 · 发表于 2010-11-26 11:44:42

本帖最后由 ydj404606848 于 2010-11-26 13:05 编辑

Option Explicit

Private Sub Command1_Click()
EventLog = 0
hHook = SetWindowsHookEx(WH_JOURNALRECORD, AddressOf HookProc, _
App.hInstance, 0)
Command2.Enabled = True
Command1.Enabled = False
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

游客，如果您要查看本帖隐藏内容请回复