VB中关闭shell打开的外部EXE程序

这篇博客介绍了如何在VB中通过Shell函数启动外部EXE程序,并使用TerminateProcess和OpenProcess函数来关闭该程序。示例代码展示了如何打开记事本或计算器程序,并在需要时终止其进程。
摘要由CSDN通过智能技术生成

Private   Declare   Function   TerminateProcess   Lib   "kernel32"   _  
  (ByVal   hProcess   As   Long,   ByVal   uExitCode   As   Long)   As   Long  
   
  Const   PROCESS_QUERY_INFORMATION   =   &H400  
  Private   hProcess   As   Long  
  -----------------在程序中------------------  
          Dim   pid   As   Long  
           
          pid   =   Shell("notepad.exe",   vbNormalFocus)  
          hProcess   =   OpenProcess(PROCESS_QUERY_INFORMATION,   0,   pid)  
  ----------------如果要关闭-----------------  
  If   hProcess   <>   0   Then  
  aa   =   TerminateProcess(hProcess,   3838)  
  End   If   

 ***********************************************************************************************************

ExitProcess

VB声明
Declare Sub ExitProcess Lib "kernel32" Alias "ExitProcess" (ByVal uExitCode As Long)

评论 1
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值