qq_34498583
qq_34498583
2017-08-13 05:40

在64位的win7下,用vb6.0设置hook出提示找不到入口。

  • win7 64位 hook
 Private hhook As Long
Private Declare Function SetWindowsHookEx Lib "user32" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long

Private Sub Form_Load()

    hhook = SetWindowsHookEx(2, AddressOf Module1.AddControlHookA, App.hInstance, App.ThreadID)
End Sub

这是源码,运行后提示
图片说明

请问,是64位的win7不支持这个方法吗?64位win7要怎么操作呢?

  • 点赞
  • 回答
  • 收藏
  • 复制链接分享

1条回答