VB´°¿Ú¾ä±ú±éÀú´úÂëÎÊÌâ

ÏÂÃæµÄ´úÂëÊÇÎÒ³­±ðÈË```
²»ÖªµÀÔõô°ÑµÃµ½µÄ¾ä±ú·Åµ½±äÁ¿Àï
ÔËÐÐËü``Ëü»áµ¯³ö¾ä±ú````
Ôõô²ÅÄܰѵõ½µÄ¾ä±ú·Åµ½ÎÒHUNDÀï°¡


Option Explicit
Dim HUND //ÕâÊÇÎÒ×Ô¼º¼ÓÉÏÈ¥µÄ´úÂë
Private Sub Command1_Click()
Dim Tmp As Long
    SendMessageCallback -1, 15, 0, 0, AddressOf SednAsyncProc, Tmp
ÎÒÏëÔÚÕâÀﵯ³ö¡°µ¶½£¡±µÄ´°¿Ú```¿ÉÊÇû¾ä±ú
End Sub


ÏÂÃæÊÇÄ£¿éµÄ´úÂë
Option Explicit
Public Declare Function SendMessageCallback Lib "user32" Alias "SendMessageCallbackA" (ByVal hWnd As Long, ByVal msg As Long, ByVal wParam As Long, ByVal lParam As Long, ByVal lpResultCallBack As Long, ByVal dwData As Long) As Long
Public Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hWnd As Long, ByVal lpString As String, ByVal cch As Long) As Long

Public Function SednAsyncProc(ByVal hWnd As Long, ByVal uMsg As Long, ByVal dwData As Long, ByVal lResult As Long) As Long
Dim szTitalBuffer As String * 1024
Dim sf As String * 254

    GetWindowText hWnd, szTitalBuffer, 1024
    If InStr(szTitalBuffer, "µ¶½£") <> 0 Then MsgBox hWnd
End Function
ÔõôʵÏÖ£¿ÖªµÀµÄ˵һÏÂ``
VBÎÒ±¾ÈËû»ù´¡
ÒòΪ°´¼ü¾«Áé±»ÆÁÕÚÁË```²ÅÏëѧVB```

---

If InStr(szTitalBuffer, "µ¶½£") <> 0 Then HUND=hWnd

{{---