VB 找到两个程序的句柄并执行一下操作

来源：百度知道 编辑：UC知道 时间：2024/06/16 10:15:55
这个问题有点怪，本人技术相当低，
研究了很多天，实在做不出来~~帮帮我吧....

假设有个名字叫“12345”的程序，其中有个名为“确定”的按钮，
将这个名为“12345”程序打开两个
（双击后出来一个，再双击又出来一个，是两个，不是一个），
将这两个程序显示（显示名字或句柄都可以）在两个按钮上

单击按钮，就可以对相应的程序中的“确定”按钮进行单击

VB源码...谢谢....
打个比方：
好比在游戏中刷分，刷分需要打开两个游戏，刷分途径就是单击“开始”按钮，那个游戏叫做“123456”。

用VB实现控制游戏中按钮的单击：

将这两个程序的名字或句柄分别显示在两个按钮上（取代list)，

通过单击这两个按钮，可以来实现对“123456”程序中的“确定”按钮的单击

抱歉，定义的第二个写错了，是“start2”
写成“start1”了，代码已修改~~
添加：
两个长点的按钮：Command1 Command2 用于显示句柄
再两个按钮Command3 Command4
无法实现当打开两个程序后分别将它们的句柄显示出来~~所以在打开第一个程序后再打开它，打开第二个后点 Command4（刷新）单击那两个按钮其中一个就可以实现单击

'---------------------------------获得窗体句柄定义
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
Dim c As Long，b As Long
'-----------------------
'----------------------------------------获得“开始”句柄定义
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long,lParam As Any) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 A