锐客网

  1. 首页 > 生活百科 > it技术 > >

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

IT技术句柄

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
【vb.net大漠获取句柄 大漠插件获取窗口句柄】Dim str1 As String, len1 As Long
hwnd = FindWindowA("[这个窗口的类名(定义于RegisterClass中)]", "[要获取句柄的标题栏名称]")str1 = Space(255) '定义接收字串.
GetWindowText hwnd, str1, 1024
Do While hwnd0
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 hwnd0
hwnd = GetNextWindow(hwnd, 2) '只有2才表示找下一个窗口
GetWindowText hwnd, str1, Len(str1)
SetWindowText hwnd, "我改变了改钮2"
Loop
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 = i1
Do While w.GetElementHwndByClassName("ThunderCommandButton", i)0'按次序遍历
MsgBox w.GetElementHwndByClassName("ThunderCommandButton", i)'得到当前次序按钮的句柄
w.SetElementTextByClassName "ThunderCommandButton", "次序"i, i'设置按钮文本
i = i1
Loop
End If
End Sub
VB.net 获取控件句柄Dim hwnd0 As Integer
Dim hwnd11 As Integer
第二个是你要生成EXE后 运行EXE
第三就是没好像没有文本框控件
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表示其长度 。该方法写入时，文本框中原有内容全部覆盖 。
vb.net如何找到一个网页中的按钮的句柄网页中的按钮没有句柄可言，只有控件id，你想要的到底是什么，找到按钮模拟点击按钮？
找到按钮不难，查找input，id是那个按钮的话就用DOM获取到，然后发送.click方法
也可以用附加js脚本的方式来实现点击那个按钮，js脚本里实现获取那个按钮并点击
关于vb.net大漠获取句柄和大漠插件获取窗口句柄的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息 ， 记得收藏关注本站 。

    推荐阅读


    上一篇：回收手机做什么生意好，回收手机生意好做吗

    下一篇：css3动画项目，css3实现动画的方法