VB中运行一个EXE文件，并对EXE窗口的控件进行操作

最新推荐文章于 2023-02-26 01:23:25 发布

原创

最新推荐文章于 2023-02-26 01:23:25 发布 · 1w 阅读

5 ·

CC 4.0 BY-SA版权

文章标签：

#exe #vb #asynchronous #user #button #query

该博客介绍了如何在VB中通过Shell函数启动一个EXE程序，并利用FindWindow、FindWindowEx及SendMessage等API函数查找并操作EXE窗口的特定控件，如关闭窗口和模拟点击按钮。在操作过程中，遇到并讨论了-2147417843错误，即Automation Error：应用程序正在分派输入异步调用。

1，运行一个EXE程序

 
 Dim   mProcID   As   Long
mProcID   =   Shell(FileName)

2，把这个EXE程序关闭掉

 
  Option   Explicit  
   Const   PROCESS_QUERY_INFORMATION   =   &H400  
   Const   PROCESS_TERMINATE   =   &H1  
   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   Declare   Function   TerminateProcess   Lib   "kernel32"   (ByVal   hProcess   As   Long,   ByVal   uExitCode   As   Long)   As   Long  
    
&nbs