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
&
相关文档：
1. 各种进制转换函数 一般的数据进制包括十进制,二进制,十六进制.十进制就是我们日常生活用到的数据进制,因此也是我们最熟悉和清楚的;二进制是计算机的基础进制,主要是因为便于用物理器件实现二进制;八进制和十六进制因为和二进制的天然的亲密关系,并且表示比二进制更方便,
1.
各种进制转换函数
� ......
Public Class Form1
Dim x As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
x = 1
Timer1.Interval = 1000
Timer1.Start()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e ......
信息监控与隐私保护永远是一对矛盾。
在对付各种信息窃取软件上。
新技术总是层出不穷。本文介绍一种古老的键盘记录器技术，确实很古老。
DOS时代人们就在用了。
但是现在它仍然很有效，在键盘过滤� ......
程序效果：
当点击左边的部件图时，会弹出对话框提示你点击了哪一个区域。
程序思路：
用一个图片区域码图作为点击区域的参照，根据XY取得的颜色识别出属于哪一个区域
程序界面如下：
相关代码如下：
Visual Basic Code
Dim ColorArray ( ) As Long
Dim ColorCount As Long
Private Sub Form_Load ( ......
上午先把主板术语挨个查了一遍，了解它的缩写由来、位置和功能。
主板英文缩写详解：
http://user.qzone.qq.com/904515106/infocenter?ptlang=2052&ADUIN=904515106&ADSESSION=1272977059&ADTAG=CLIENT.QQ.2653_Mysrv.0
下午返工，这次给的教训是惨痛的，我们组试了半天都不能点亮，换硬盘·&mi ......
