Как насчет программы B, отправляющей свой собственный идентификатор процесса при вызовах A?
Option Explicit
Private Declare Function GetCurrentProcessId Lib "kernel32" () As Long
Sub execute()
Dim pid As Integer
pid = GetCurrentProcessId()
'Call Program A Pass pid to your Program
End Sub
Это пример, который получает идентификатор процесса Excel, и теперь вы можете вызвать программу, отправив ее в качестве параметра.Программа теперь идентифицирована.