VB 查找游戏窗口句柄的方法

VB 查找游戏窗口句柄的方法
信息来源：黑客代码 编辑：root 浏览次数：191 加入时间：2010-3-20 1:40:47 评论(0)
[问题一,不能获得窗口句柄]
一般寻找窗口句柄都是直接FindWindow吧,这样是不行的,QQ三国在这些函数上做了一些处理.我来给大家说个万能的方法吧,
对于GetWindowText方法游戏就管不到了,可以配合使用GetWindow来枚举所有的窗口,再判断枚举的窗口里面是否含有游戏窗口标题文字,
最后取其句柄就行了,下面我给段代码,也给还有疑问的朋友一些帮助,嘻嘻!
Option Explicit
Private Declare Function GetDesktopWindow Lib "USER32" () As Long
Private Declare Function GetWindow Lib "USER32" (ByVal hwnd As Long, ByVal wCmd 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
Private Const GW_CHILD = 5
Private Const GW_HWNDNEXT = 2
Public Function GetHandle(Title As String) As Long
   Dim tmp As String
   Dim hwnd As Long
   Dim lngProcID As Long
   Dim strTitle As String * 255     '//用来存储窗口的标题
      '//取得桌面窗口
   hwnd = GetDesktopWindow()
   '//取得桌面窗口的第一个子窗口
   hwnd = GetWindow(hwnd, GW_CHILD)
   '//通过循环来枚举所有的窗口
   Do While hwnd <> 0
        '//取得下一个窗口的标题，并写入到列表框中
        GetWindowText hwnd, strTitle, Len(strTitle)
        If left$(strTitle, 1) <> vbNullChar Then
             tmp = left$(strTitle, InStr(1, strTitle, vbNullChar))
             If left(tmp, Len(Title)) = Title Then
                GetHandle=hwnd
          &