很棘手！！窗口拦截问题！！

[Mohoman]

每个系统提示窗体再出现在我们眼前的时候都是需要系统给他发出指令！！他才能出来！！！
如何在他接到指令之前，或者同时！！我们能够得到她接受的指令！！
在他没有出来之前！！把他做一些修改！！！然后再让他出来！！！！

有的朋友说HOOK但是具体解决方法我还是不知道啊！！！希望有经验的朋友帮忙！！
谢谢！！！

谢谢！！

[老人参]

用Vxd吧

[Mohoman]

偶晕倒！！Vxd 阿！！！哈哈！！！2000中能用吗？vb也写不出来啊！！！

这种效果曾经在WindowsFX 1.0中有！！！就可以提前知道！
FX2里面就没了！！！可能是捕捉不到！！影像效果阿！！

[girl888]

用API吧

[tangjinn]

pigpag(噼里啪啦) 你能确定吗？帮忙找找好吗？毕竟你用过， 谢谢

[pigpag]

这个东西很有用，我一直在找啊！！！
没找到……

[tangjinn]

hook可以拦截本程序中的窗体的消息,要拦截操作系统中所有窗体.需要窗体句柄,怎么得到啊?

关注

[pigpag]

hlnpro(错误！死机？晕～～～)：这种危险的事估计只有ServicePack Installer会去做。出错了跳脚都来不及

[pigpag]

//hook可以拦截本程序中的窗体的消息,要拦截操作系统中所有窗体.需要窗体句柄,怎么得到啊?

需要一个额外的DLL。可惜啊，本来我是有的，重装的时候格掉了，有忘了备份在什么地方。网上找找看

[sworddx]

很麻烦的问题。

[James0001]

要 API Hook，自己写 DLL 。

[boywang]

hook api?

[hisofty]

更动MsgBox Button 标题(CBT Hook)

来源:cww

如果我们使用MsgBox，并设定其Buttons为vbYesNo，则出来的Button有 "是(Y)" 与 "否(N)"
，有没有可能变成"Yes(Y)"和 "No(N)"呢，或者有没有办法设定MsgBox的位置呢？如果我们
可以在MsgBox显示出来之前取得其hWnd，便可以进而更动其位置或Button的标题了；其实这
真的有些困难，因为MsgBox一呼叫，该Process便进入等待MsgBox结束的状态，连Timer都
不会动，所以想取得MsgBox的进一步资讯似乎很难。所以只好借重CBT Hook。

CBT Hook是做什麽用的呢？它是before activating, creating, destroying,
minimizing, maximizing, moving, or sizing a window; before completing a
system command; before removing a mouse or keyboard event from the
system message queue; before setting the keyboard focus; or before
synchronizing with the system message queue.在以上的状况发生之前拦截到讯息。
所以了，这就达到我们的目的 -->可在MsgBox display前取得其hWnd了。取得hWnd後再
使用EmunChildWindows()取得MsgBox的Control视窗，并取得"Button"型态者，进而判
断其Caption，并进行更改之。

这个程式重点在说明CBT Hook，我想没有人会为了更动MsgBox内的Button而如此做，应
会自行写一个Form，而来呼叫它，并可设定其位置。

'以下在Form
Private Sub Command1_Click()
Call EnableHook
MsgBoxTitle = "MyTitle5"
MsgBox "haha", vbYesNo, MsgBoxTitle
Call FreeHook

End Sub

'以下程式在.Bas
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
Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long
Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, ByVal nCode As Long, ByVal wParam As Long, lparam As Any) As Long
Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long
Declare Function EnumChildWindows Lib "user32" (ByVal hWndParent As Long, ByVal lpEnumFunc As Long, ByVal lparam As Long) As Long
Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long

Public Const HCBT_ACTIVATE = 5
Public Const WH_CBT = 5

Public hHook As Long
Public MsgBoxTitle as String

Public Sub EnableHook()
If hHook = 0 Then
hHook = SetWindowsHookEx(WH_CBT, AddressOf HookProc, 0, App.ThreadID)
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
If nCode < 0 Then
HookProc = CallNextHookEx(hHook, nCode, wParam, lparam)
Exit Function
End If
'当MsgBox Activate之前去更改Button的标题
If nCode = HCBT_ACTIVATE Then
Dim str5 As String
Dim len5 As Long, i As Long
str5 = String(255, 0)
len5 = 256
i = GetWindowText(wParam, str5, len5)
str5 = Left(str5, InStr(1, str5, Chr(0)) - 1)
'如果Active Window上的标题是MsgBox上的标题
'
If str5 = MsgBoxTitle Then
'取得MsgBox上的所有子window
Call EnumChildWindows(wParam, AddressOf ChgButtonTitle, 0)
End If
End If
HookProc = 0 '令待完成的动作继续完成，若为1，则取消原本要完成的动作
End Function

Private Function ChgButtonTitle(ByVal hwnd As Long, ByVal lparam As Long) As Long
Dim clsName As String, len5 As Long, i As Long
Dim Title As String
If hwnd = 0 Then
ChgButtonTitle = 0
Exit Function
End If
clsName = String(255, 0)
len5 = 256
i = GetClassName(hwnd, clsName, 256)
clsName = Left(clsName, InStr(1, clsName, Chr(0)) - 1)
Title = String(255, 0)
i = GetWindowText(hwnd, Title, 256)
Title = Left(Title, InStr(1, Title, Chr(0)) - 1)
'找到Button型态的子Window，并更改其上的标题
If clsName = "Button" Then
If Title = "是(&Y)" Then
Call SetWindowText(hwnd, "Yes(&Y)")
Else
If Title = "否(&N)" Then
Call SetWindowText(hwnd, "No(&N)")
End If
End If
End If
ChgButtonTitle = 1 '表示继续找下一个子Window
End Function

[jornet]

用上帝之手才能写出来

[miranda516]

关注中……

[Mohoman]

楼上的！！ 你这个出来的效果！！就算没有这个bas也可以实现阿！！我晕到！！写了一大串
没有任何作用！
在他没有出来之前怎么知道他的位置阿！！！
然后修改它的位置！！！然后再让他出来！！！

[tangjinn]

要是有这个DLL可以把windows改乱套， 呵呵。 拿来做病毒不错

[hisofty]

楼主,你傻阿!好心帮你,还说风凉话!!
我帖的不就是在一些系统窗体出来前对它进行修改的一个例子吗!

[Mohoman]

大哥！！你看看！
MsgBoxTitle = "MyTitle5"
MsgBox "haha", vbYesNo, MsgBoxTitle
这样的运行效过河你贴的这个运行结果都一样啊！！

怎么才能看出来修改的结果啊！！

[hisofty]

我想，你根本就没看懂这点代码！！

[Mohoman]

哦了哦了！！确实没看懂！！