关于获取句柄的问题

那种鼠标移动到上面获取句柄的能获取到吗？

DirectDraw 的 UI 好像都获取不了，整个窗口就一个Handle

要不我早就获取新版飞信聊天窗口，发短信去了

也是一直获取不到，只好去弄WEB版的飞信

你先要明白一个概念 就是大漠工具取句柄 取得是鼠标当前指向的窗口句柄 也就是说 不需要标题 也不需要类名 模块都是根据标题类名取得窗口句柄 明白了这一点你就应该明白应该如何去取句柄了吧

'因为还有一层"常规"的"#32770"才到"Edit"

'完整代码如下

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Sub Form_Load()

WinH = FindWindow("#32770", vbNullString)

Dim Wintxt As String 256

Do While WinH <> 0

SendMessage WinH, WM_GETTEXT, ByVal 256, ByVal Wintxt

If InStr(Wintxt, "属性") Then

a = FindWindowEx(WinH, 0&, "#32770", "常规")

If a <> 0 Then

b = FindWindowEx(a, 0&, "Edit", vbNullString)

b = FindWindowEx(a, b, "Edit", vbNullString)

b = FindWindowEx(a, b, "Edit", vbNullString)

b = FindWindowEx(a, b, "Edit", vbNullString)

SendMessage b, &HD, ByVal 256, ByVal Wintxt

Exit Do

End If

End If

WinH = FindWindowEx(0, WinH, "#32770", vbNullString)

DoEvents

Loop

MsgBox Replace(Wintxt, Chr(0), "")

End Sub

天龙早已经屏蔽了后台 *** 作,要想实现后台还需要打补丁如果楼主是自学按键的话,还是不要搞这个了看楼主的 *** 作要求,只想挂机打怪,这样就直接用简单游比较好里面的高级版非常好用,可以摆上所有的技能,可以峨嵋自己加血,可以验证报警,配合加血助手(吃宝宝肉)不仅可以实现后台,还能将窗口缩小到任务栏,完全不占桌面楼主如果有兴趣可以用按键的找字功能来抢东西,比如打造图,野外宝石,甚至小;或者做一个跑商脚本我也是自学的按键,以上功能我都实现了,但都是前台,后台等待大神

以上就是关于关于获取句柄的问题全部的内容，包括:关于获取句柄的问题、易语言WIN7系统获取不到窗口句柄，万挂作坊模块，大漠，都获取不到，大漠工具可以获取到，、VB中FindWindowEx无法获取句柄,向各大高手求救ing.在线等...等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！