锐客网

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

vb.net窗体句柄 vba窗口句柄怎么使用

IT技术句柄

在vb.net中什么是窗口句柄 高手用通俗语言解释句柄是 Windows 系统中的概念，和VB.NET无关 。
通俗地讲，句柄就是一个数字，也就是一个编号 。
比如说，你电脑中有10个窗口，每个窗口都会有一个编号，这是操作系统区分各个窗口的依据
vb.net如何通过窗口句柄显示窗口首先声明一下API
在你窗口最顶的位置上写上
Private Declare Function 取窗口句柄 Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
'由于VB支持中文的 我就定义成 取窗口句柄 这个了
'在窗体中添加一个按钮里面放进下面代码就OK了
Private Sub Command1_Click()
Dim 窗口句柄 As Long '声明窗口句柄变量存储
窗口句柄 = 取窗口句柄(vbNullString, "新建 文本文档.txt - 记事本") '取窗口标题的句柄 把得到窗口标题句柄赋予给刚才 窗口句柄 这变量里
If 窗口句柄 = 0 Then '判断窗口句柄是否等于0 如果等于0表示无法找到窗口句柄
MsgBox "无法找到需要的窗口句柄"
Else
MsgBox "已找到窗口句柄 句柄数为："窗口句柄
End If
End Sub
vb.net如何通过窗口句柄获取进程名Imports System.Runtime.InteropServices
Module winapi
DllImport("User32.dll", CallingConvention:=CallingConvention.StdCall, EntryPoint:="GetWindowThreadProcessId") _
Function GetWindowThreadProcessId(ByVal hwnd As IntPtr, ByRef procId As UInt32) As UInt32
End Function
DllImport("kernel32.dll", CallingConvention:=CallingConvention.StdCall, EntryPoint:="OpenProcess") _
Function OpenProcess(ByVal access As UInt32, ByVal inherit As Boolean, ByVal procid As UInt32) As IntPtr
End Function
DllImport("kernel32.dll", CallingConvention:=CallingConvention.StdCall, EntryPoint:="CloseHandle") _
Function CloseHandle(ByVal handle As IntPtr) As Boolean
End Function
DllImport("psapi.dll", CallingConvention:=CallingConvention.StdCall, EntryPoint:="GetModuleFileNameExW", Charset:=CharSet.Unicode) _
Function GetModuleFileNameExW(ByVal hProc As IntPtr, ByVal hMod As IntPtr, ByVal arrName() As Char, ByVal arrSize As UInt32) As UInt32
End Function
End Module
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim procid As UInt32
GetWindowThreadProcessId(Me.Handle, procid)
Dim handle As IntPtr
handle = OpenProcess(1040, False, procid)
Dim name(65536) As Char
Dim nameSize As UInt32 = GetModuleFileNameExW(handle, IntPtr.Zero, name, 65536)
Dim strName As String = New String(name, 0, nameSize)
CloseHandle(handle)
MsgBox(strName)
End Sub
End Class
可恶……vb.net窗体句柄我不会vb……临时去七拼八凑查vb.net窗体句柄了点语法……尽力vb.net窗体句柄了
VB.net 如何根据pid取得程序窗体句柄你想要的应该就是这个吧
'获取进程id
Dim p As Integer = Shell(TextBox1.Text)
'获取进程id对应的句柄
Dim h As IntPtr = System.Diagnostics.Process.GetProcessById(p).Handle
'显示进程id和对应的句柄
Debug.Print(p)
Debug.Print(h.ToString)
vb.net 窗口句柄获取进程名FindWindowEx
VB声明
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
说明
在窗口列表中寻找与指定条件相符的第一个子窗口
返回值
Long，找到的窗口的句柄 。如未找到相符窗口，则返回零 。会设置GetLastError
参数表
参数
类型及说明
hWnd1
Long，在其中查找子的父窗口 。如设为零，表示使用桌面窗口（通常说的顶级窗口都被认为是桌面的子窗口，所以也会对它们进行查找）
hWnd2
Long，从这个窗口后开始查找 。这样便可利用对FindWindowEx的多次调用找到符合条件的所有子窗口 。如设为零，表示从第一个子窗口开始搜索
lpsz1
String，欲搜索的类名 。零表示忽略
lpsz2
String，欲搜索的类名 。零表示忽略
vb.net 创建窗口句柄时出错,Timer 中出现问题因为你窗口关闭的时候Time并没有释放，但是此时Label已经不能访问了
才会出现窗口句柄出错，你试试加上下面的话
Private Sub Form1_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
timer1.Close()
【vb.net窗体句柄 vba窗口句柄怎么使用】timer2.Close()
End Sub
应该就不会报错了 。
希望能帮到你 。
vb.net窗体句柄的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vba窗口句柄怎么使用、vb.net窗体句柄的信息别忘了在本站进行查找喔 。

    推荐阅读


    上一篇：铁盒路由器怎么设置，路由器放铁盒里行吗

    下一篇：如何做好沉浸式营销策略，沉浸化营销