vb.net获取句柄函数 vb 句柄

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或VB.NET用API函数FindWindow获取一个当前XX窗口句柄这是一个vb用findwindow等api找到其它窗口,并且更改其它窗口的文本的源码:
里面也有源码下载的
如果你到它的文章列表中 , 会找到许多其它相关的文章 , 都是api操作其它窗体的例子
VB获取窗口句柄的详细教程1、首先在电脑中打开VB软件,然后点击窗口 。
2、然后找到窗体布局窗口,就可以在这里,直接拖曳鼠标,设置窗体的位置 。
3、如果没有默认打开,回到操作页面中,找到并点击如下图的按钮 。
4、也可以找到stateUpPosition这个属性 。
5、然后在打开点页面中,就可以根据自己的需要,设置预设的类型了 。
VB.net 获取控件句柄Dim hwnd0 As Integer
Dim hwnd11 As Integer
第二个是vb.net获取句柄函数你要生成EXE后 运行EXE
第三就是没好像没有文本框控件
vb.net如何通过窗口句柄显示窗口首先声明一下API
在vb.net获取句柄函数你窗口最顶vb.net获取句柄函数的位置上写上
Private Declare Function 取窗口句柄 Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
'由于VB支持中文vb.net获取句柄函数的 vb.net获取句柄函数我就定义成 取窗口句柄 这个了
'在窗体中添加一个按钮里面放进下面代码就OK了
Private Sub Command1_Click()
Dim 窗口句柄 As Long '声明窗口句柄变量存储
【vb.net获取句柄函数 vb 句柄】窗口句柄 = 取窗口句柄(vbNullString, "新建 文本文档.txt - 记事本") '取窗口标题的句柄 把得到窗口标题句柄赋予给刚才 窗口句柄 这变量里
If 窗口句柄 = 0 Then '判断窗口句柄是否等于0 如果等于0表示无法找到窗口句柄
MsgBox "无法找到需要的窗口句柄"
Else
MsgBox "已找到窗口句柄 句柄数为vb.net获取句柄函数:"窗口句柄
End If
End Sub
vb怎么获取控件句柄和内容 先找到窗口的句柄,再来查找按钮的句柄,如果按钮有文本内容,那就好办,如果没有,那建议你利用SPY先来察看一下按钮的类型,以此类型为查找参数多次调用FindWindowEx来查找,直到找到的的句柄和Spy相同,那么这个按钮就找到了 。
按钮类名同样 , 但是你去遍历的时候它的次序始终是固定的 。通过id不可靠,有些有id但是有些id是0 。
clswindow类 , 里面有个函数etElementHwndByClassName,可以得到指定的次序按钮 。加入你要处理的按钮是在第二个次序,类名为Button , 那么就用: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获取句柄函数和vb 句柄的介绍到此就结束了,不知道你从中找到你需要的信息了吗 ?如果你还想了解更多这方面的信息,记得收藏关注本站 。

    推荐阅读