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
&
相关文档：
一般会使用WINDOW API的情况，实在是因为VB本身不提供某些功能，但是，程式所
需又不得不然，例如：读取Registry内的资
料，VB只提供SaveSetting、Getsetting 等
系列的指令，但是它只能读取特定地区的值，要读、删、更动其他区域的值时，就无
法
使用。再如：仔细看一看Combo Box的Events，其中 ......
1. 各种进制转换函数 一般的数据进制包括十进制,二进制,十六进制.十进制就是我们日常生活用到的数据进制,因此也是我们最熟悉和清楚的;二进制是计算机的基础进制,主要是因为便于用物理器件实现二进制;八进制和十六进制因为和二进制的天然的亲密关系,并且表示比二进制更方便,
1.
各种进制转换函数
� ......
'工程-->引用 添加 Microsoft activex data objects 2.5 library
'工程-->部件 添加 Microsoft flexgrid control 6.0
Dim Cnn As New ADODB.Connection
Cnn.ConnectionString = "Provider=microsoft.jet.oledb.4.0;data source=E:\Access ......
上午:
VB总结：
下图是用mindmanager制作的VB总结mdb：
常用控件的分类：
属性和过程：
方法和过程
事件过程、Function过程和过程：
VB总结大图：
分歧如下：
数据包括：数据类型、变量、常量、运算符、表达式等几部分，而流程控制语句应不应该加入其中。
我感觉不应该，用“冰块模子&rdquo ......
VB Winsock State属性值
'winsock 状态常数
'sckClosed 0 关闭状态
'sckOpen 1 打开状态
'sckListening 2 侦听状态
'sckConnectionPending 3 连接挂起
'sckResolvingHost 4 解析域名
'sckHostResolved 5 已识别主机
'sckConnecting 6 正在连接
'sckConnected 7 已连接
'sckClosing 8 同级人 ......
