社区 › VBA/VB/ActiveX/API 编程技术 › 以前的程序现在64位用不了了，求帮助

zgyxn 发表于 2021-4-4 16:24:30

以前的程序现在64位用不了了，求帮助

新换了一台手提，有的程序没法用了！！求大哥们帮忙
'****************利用了API增加对ESC键的判断*****************
Dim varCancel As Variant
Dim ESC As Long
Public Declare Function CallNextHookEx Lib "user32" _
   (ByVal hHook As Long, _
   ByVal nCode As Long, _
   ByVal wParam As Long, _
   ByVal lParam As Long) As Long

Public Declare Function UnhookWindowsHookEx Lib "user32" _
   (ByVal hHook As Long) As Long

Public Declare Function SetWindowsHookEx Lib "user32" _
   Alias "SetWindowsHookExA" _
   (ByVal idHook As Long, _
   ByVal lpfn As Long, _
   ByVal hmod As Long, _
   ByVal dwThreadId As Long) As Long

Public Declare Function PostMessage Lib "user32" _
   Alias "PostMessageA" _
   (ByVal hwnd As Long, _
   ByVal wMsg As Long, _
   ByVal wParam As Long, _
   ByVal lParam As Long) As Long
   Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Private Const VK_ESCAPE = &H1B

Public Const WH_KEYBOARD = 2
Public Const KBH_MASK = &H20000000
Public Const WM_LBUTTONDOWN = &H201
Public Const WM_LBUTTONUP = &H202

Global hHook As Long
Global EscKey As Boolean

mikewolf2k 发表于 2021-4-6 09:46:47

按提示操作。

魔子幻灭 发表于 2021-5-22 20:39:20

Private Declare PtrSafe Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long

查看完整版本: 以前的程序现在64位用不了了，求帮助