vb.net大漠获取句柄 大漠插件获取窗口句柄

VB怎么获取其它窗体句柄？

首先 你要定义下列的两个函数原形到模块中: 要在模块里定义:

Public Declare Function GetNextWindow Lib "user32" Alias "GetWindow" (ByVal hwnd As Long, ByVal wFlag 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 Declare Function FindWindowa Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Public Declare Function GetForegroundWindow Lib "user32" () As Long

Public Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long

Public Declare Function GetDlgItem Lib "user32" (ByVal hDlg As Long, ByVal nIDDlgItem As Long) As Long

然后在要获取句柄的地方 输入下列代码:

Dim hwnd As Long

Dim str1 As String, len1 As Long

hwnd = FindWindowA("[这个窗口的类名(定义于RegisterClass中)]", "[要获取句柄的标题栏名称]") str1 = Space(255) '定义接收字串.

GetWindowText hwnd, str1, 1024

Do While hwnd 0

hwnd = GetNextWindow(hwnd, 2) '只有2才表示找下一个窗口

len1 = GetWindowText(hwnd, str1, Len(str1))

If (InStr(1, str1, "API", 1) 0) Then

Exit Do

End If

Loop

SetWindowText hwnd, "我把API阅读器的标题改变了"

hwnd = GetNextWindow(hwnd, 5) '5表示子窗口

Do While hwnd 0

hwnd = GetNextWindow(hwnd, 2) '只有2才表示找下一个窗口

GetWindowText hwnd, str1, Len(str1)

SetWindowText hwnd, "我改变了改钮2"

Loop

相关问答

Q1: vb怎么获取控件句柄和内容

　先找到窗口vb.net大漠获取句柄的句柄vb.net大漠获取句柄，再来查找按钮的句柄，如果按钮有文本内容，那就好办，如果没有，那建议你利用SPY++先来察看一下按钮的类型，以此类型为查找参数多次调用FindWindowEx来查找，直到找到的的句柄和Spy++相同，那么这个按钮就找到了。

按钮类名同样，但是你去遍历的时候它的次序始终是固定的。通过id不可靠，有些有id但是有些id是0。

clswindow类，里面有个函数etElementHwndByClassName，可以得到指定的次序按钮。加入你要处理的按钮是在第二个次序，类名为Button，那么就用vb.net大漠获取句柄：GetElementHwndByClassName("Button",2)，即可，

具体代码：

Private Sub Command6_Click()

Dim w As New clsWindow

Dim i%

If w.GetWindowHwndByTitleEx("自动化操作框架") 0 Then

i = i + 1

Do While w.GetElementHwndByClassName("ThunderCommandButton", i) 0'按次序遍历

MsgBox w.GetElementHwndByClassName("ThunderCommandButton", i)'得到当前次序按钮的句柄

w.SetElementTextByClassName "ThunderCommandButton", "次序" i, i'设置按钮文本

i = i + 1

Loop

End If

End Sub

Q2: VB.net 获取控件句柄

Dim hwnd0 As Integer

Dim hwnd11 As Integer

第二个是你要生成EXE后 运行EXE

第三就是没好像没有文本框控件

Q3: VB 获取其他程序控件的句柄

一般是用钩子程序的。

比较复杂，只能说个大体思路，要花最少30分钟。分太少了。

API函数的声明就不说了。

先用findwindow找到窗体，用GetWindow和GetClassName获得其窗体内各对象的句柄，从而可以获得文本框的句柄。

最后用SendMessage函数想文本框发送文本。

tWnd = FindWindow(vbNullString, "窗口名")可以获得外部程序窗口的句柄twnd

bwnd = GetWindow(tWnd, GW_CHILD)可以获得该窗口子对象的集合句柄bwnd

Do Until bwnd = 0

GetClassName bwnd, sSave, 250

If InStr(1, UCase(sSave), "EDIT", vbTextCompare) 0 Then

editwnd = bwnd

Exit Do

End If

bwnd = GetWindow(bwnd, GW_HWNDNEXT)

Loop

以上代码可以读到该窗口中的第一个文本框的句柄editwnd

SendMessage editwnd, WM_SETTEXT, 6, "王小明"

以上代码向editwnd中写入“王小明”，6表示其长度。该方法写入时，文本框中原有内容全部覆盖。

Q4: vb.net如何找到一个网页中的按钮的句柄

网页中的按钮没有句柄可言，只有控件id，你想要的到底是什么，找到按钮模拟点击按钮？

找到按钮不难，查找input，id是那个按钮的话就用DOM获取到，然后发送.click方法

也可以用附加js脚本的方式来实现点击那个按钮，js脚本里实现获取那个按钮并点击

关于vb.net大漠获取句柄和大漠插件获取窗口句柄的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。