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

**** Hidden Message *****
**** Hidden Message *****

LittlePig 发表于 2011-2-17 11:15:34

sf～
回复看看……

g2368vt 发表于 2011-2-20 12:37:34

随便看看。

沉默的人 发表于 2011-2-22 16:07:47

看一下 。。。。

dabian001 发表于 2011-2-25 11:13:12

回复看看……

马大哈 发表于 2011-2-26 13:30:42

楼上很久不见了

wangwho 发表于 2011-3-29 17:35:25

岂不就是按键精灵？

hjvvsvhsvs 发表于 2011-3-31 10:46:28

复制看看

billypon 发表于 2011-11-17 15:12:36

俺来看看

flexdm 发表于 2011-11-20 18:34:53

看看。....

hack0215 发表于 2011-11-20 19:16:32

随便看看

dsadsasaed3 发表于 2012-2-1 17:34:30

huifulaikankan

y526892224 发表于 2012-2-15 16:36:55

看下代码，呵呵

wajika 发表于 2012-6-17 12:36:24

回复看看先

supertankhzt 发表于 2012-6-18 03:05:34

我一Hook它 就被360挂起 弹出提示说有程序在记录键盘

雨中楼 发表于 2012-7-3 11:05:53


岂不就是按键精灵？

VBCODE 发表于 2012-8-3 23:50:20

看看。学习学习，谢谢分享

upring 发表于 2015-4-17 14:13:14

回复来学习一下

cxtrj 发表于 2020-2-5 18:18:51

学习学习
页: [1]
查看完整版本: 键盘鼠标动作记录回放