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

  • 相关阅读:
    加快网站访问速度——Yslow极限优化
    Jquery应用实例
    js获取文本框(或文本域)光标位置以及设置光标位置
    编程挑战
    图片view设置gif动图
    判断手机中是否安装了某个App
    session发送的get请求、post请求、上传、下载
    图片的拉伸stretchableImageWithLeftCapWidth
    IOS数据懒加载
    IOS页面(控制器之间)传值之Block
  • 原文地址:https://www.cnblogs.com/love2wllw/p/1744268.html
Copyright © 2011-2022 走看看