关于VB,取句柄

Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
Private Declare Function GetModuleFileNameExA Lib "psapi.dll" (ByVal hProcess As Long, ByVal hModule As Long, ByVal lpFilename As String, ByVal nSize As Long) As Long
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Function GetPath(ByVal hwnd As Long) As String
Dim PID As Long, hPss As Long
Dim FileName As String * 1024
Call GetWindowThreadProcessId(hwnd, PID)
hPss = OpenProcess(&HF0000 Or &H100000 Or &HFFF, False, PID)
Call GetModuleFileNameExA(hPss, 0, FileName, 1024)
GetPath = Trim(FileName)
CloseHandle hPss
End Function

Private Sub Command1_Click()
MsgBox GetPath(Val())
End Sub

单击 按钮后 出现？ 怎么回事呢？

我想点击按钮后 把取到的 句柄发送到Text1

Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
获取指定窗口名的窗口句柄

Private Function GetPath(ByVal hwnd As Long) As String MsgBox GetPath(Val())

查找窗口句柄,小示例程序如下：

Option Explicit

'查找窗口句柄 Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Sub Command1_Click() Dim h As Long h = FindWindow(vbNullString, "计算器") If h <> 0 Then MsgBox "您已打开计算器程序" Text1.Text = h Else MsgBox "你未打开计算器程序" End If End Sub

FindWindow函数的详细功能，楼主可以百度一下，记得加分哦

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息