zoukankan      html  css  js  c++  java
  • VB6 根据进程ID(PID)获取窗体句柄

    模块代码:

    Option Explicit

    Private Const GW_HWNDNEXT = 2

    Private Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long
    Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
    Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
    Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwprocessid 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

    Private Function ProcIDFromWnd(ByVal hwnd As Long) As Long
        Dim idProc As Long

        ' Get PID for this HWnd
        GetWindowThreadProcessId hwnd, idProc

        ' Return PID
        ProcIDFromWnd = idProc
    End Function

    Public Function GetWinHandle(hInstance As Long) As Long
        Dim tempHwnd As Long

        ' Grab the first window handle that Windows finds:
        tempHwnd = FindWindow(vbNullString, vbNullString)

        ' Loop until you find a match or there are no more window handles:
        Do Until tempHwnd = 0
            ' Check if no parent for this window
            If GetParent(tempHwnd) = 0 Then
                ' Check for PID match
                If hInstance = ProcIDFromWnd(tempHwnd) Then
                    ' Return found handle
                    GetWinHandle = tempHwnd
                    ' Exit search loop
                    Exit Do
                End If
            End If

            ' Get the next window handle
            tempHwnd = GetWindow(tempHwnd, GW_HWNDNEXT)
        Loop
    End Function

  • 相关阅读:
    VMware15 安装centos7标准板
    jQuery拼接HTML标签元素
    解决win10 蓝牙设备只能配对无法连接 ,并且删除设备无效的问题
    Linux:系统的基本优化
    nano编辑器的设置
    Linux:网络yum源设置
    MySQL:MySQL的基本操作
    MySQL:MySQL的安装
    Python之路:堡垒机实例以及数据库操作
    paramiko 模块安装
  • 原文地址:https://www.cnblogs.com/love2wllw/p/1744268.html
Copyright © 2011-2022 走看看