■■■我想做一个类似外挂的程序，A程序启动时B就自动启动，A关闭时B就关闭，A的当前窗体发生变化时B自动敉举当前窗体所有元件（控件）

Question

并找出所有元件（例如：窗体、text、fram、list、combottn......）的句柄,caption等，谢谢，有这样一个类似的程序http://www.pcdog.com/soft/25223.htm除了要手动外可实现我的要求，但我想自动，

Answer 1

//A程序启动时B就自动启动，A关闭时B就关闭这个容易，以调用notepad为例：
Option Explicit
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Const PROCESS_QUERY_INFORMATION = &H400
Const PROCESS_TERMINATE = &H1
Dim hProcess As LongPrivate Sub Form_Load()
    Dim pid As Long
    pid = Shell("notepad", 1)
    hProcess = OpenProcess(PROCESS_TERMINATE Or PROCESS_QUERY_INFORMATION, 0, pid) 'PROCESS_TERMINATE为必须
End SubPrivate Sub Form_Unload(Cancel As Integer)
    TerminateProcess hProcess, 0
    CloseHandle hProcess
End Sub

Answer 2

//A的当前窗体发生变化时B自动敉举当前窗体所有元件（控件）如果b程序是你做的这个也很容易，如果不是你做的程序，就很难实现

Answer 3

用API可以找到每个控件的句柄。这样就可以了。就可以找到每个控件的类名。
就可以抄控它们了