大佬们问一个问题

得获得这个程序的句柄才能做到，这个程序有窗口吗？

我懂你的意思，但是如果没有这个进程的句柄，你什么都做不到，你得想一个办法获得这个进程的句柄。如果这个程序有打开的窗体，就能用窗体查出窗体句柄，再得到进程句柄

不获取句柄的情况下不可能搜得到，所有的方法都是建立在句柄上的。不过有用名字搜句柄的办法。
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, ByVal yPoint As Long) As Long
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId 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 GetModuleFileNameEx Lib "psapi.dll" Alias "GetModuleFileNameExA" (ByVal hProcess As Long, ByVal hModule As Long, ByVal lpFileName As String, ByVal nSize As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Const PROCESS_ALL_ACCESS As Long = &H1F0FFF
Private Function GetFileName(hwnd As Long) As String
Dim lpid As Long
Dim sBuffer As String
Dim hHandle As Long
Dim hInst As Long
Dim lRet As Long
sBuffer = Space(255) '必要
GetWindowThreadProcessId hwnd, lpid '获取进程ID
hHandle = OpenProcess(PROCESS_ALL_ACCESS, 0, lpid) '获取进程句柄
lRet = GetModuleFileNameEx(hHandle, 0, sBuffer, 255) '获取进程所在文件路径
GetFileName = sBuffer
End Function
Private Sub Command1_Click()
Dim WinName As String
WinName = InputBox("请输入需要查找的任务名称：", "路径查找器")
If WinName = "" Then Exit Sub
Dim hwndWow As Long
hwndWow = FindWindow(vbNullString, WinName)
If hwndWow <= 0 Then
MsgBox "您搜索的程序 """ & WinName & """ 不存在，请重新查找。", vbOKOnly, "路径查找器"
Exit Sub
End If
Cls
Print "选中窗体名称：" & WinName
Print "选中窗体句柄：" & hwndWow
Print "选中窗体路径：" & GetFileName(hwndWow) '获取句柄窗体文件的路径
End Sub