使用WH_DEBUG出错
希望能够破解学校的Lanstar8.0所以参照http://hi.baidu.com/tys1b0037f/blog/item/8f35e5cee610bf0493457ed9.html这篇文章写了如下代码
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 UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long
Public Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, ByVal nCode As Long, ByVal wParam As Long, lparam As Any) As Long
Public Const WH_DEBUG = 9
Public Const WH_KEYBOARD = 2
Public Const WH_MOUSE = 7
Public hHook As Long
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lparam As Any) As Long
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Const SW_HIDE = 0
Public Const WM_close = 16
Public Const SC_MINIMIZE = &HF020&
Public Const WM_SYSCOMMAND = &H112
Public Function HwndCalc() As Long
Dim hand As Long
hand = FindWindow(vbNullString, "RenderWindow")
HwndCalc = hand
End Function
Public Sub EnableHook()
If hHook = 0 Then
hHook = SetWindowsHookEx(WH_DEBUG, AddressOf HookProc, App.hInstance, 0)
End If
End Sub
Public Sub FreeHook()
If hHook <> 0 Then
Call UnhookWindowsHookEx(hHook)
hHook = 0
End If
End Sub
Public Function HookProc(ByVal nCode As Long, ByVal wParam As Long, ByVal lparam As Long) As Long
'Dim typMHS As MSLLHOOKSTRUCT, pt As POINTAPI
If wParam = WH_KEYBOARD Or wParam = WH_MOUSE Then
HookProc = 1
'If wParam = WH_MOUSE Then
'HookProc = 1
Else: HookProc = CallNextHookEx(hHook, iCode, wParam, lparam)
End If
End Function
可以实现最小化窗口，但一旦加载WH_DEBUG钩子就会造成lanstar进程被删，而且explore.exe的进程也会被删
求如何修改 你是exe不是dll 不懂，难道VB设全局钩子只能用dll吗？求代码 全局WH_DEBUG要用dll，不管是vb还是别的 那代码该如何写呢，网上说什么VB不能写DLL但可以调用VC写的
本人初学求解释 vb弄这个的确不是很容易 看来只能在课上看视频了，本来想联机打CS的。。。郁闷
CS叫上我！虽然不知道CS是啥 找myjian，他有办法。因为他经常打CS游戏。 CS很好玩。
补充：VB , API
