VB 结束进程

最新推荐文章于 2024-07-16 16:52:55 发布

彭思杨

最新推荐文章于 2024-07-16 16:52:55 发布

阅读量738

点赞数

分类专栏： VB 文章标签：开发语言 windows

本文链接：https://blog.csdn.net/phppeng139/article/details/130311062

版权

VB 专栏收录该内容

2 篇文章 0 订阅

订阅专栏

文章描述了一个程序在尝试通过shell调用另一个程序时，如果目标程序尚未正确关闭，会导致文件未找到53错误。作者尝试使用taskkill命令来结束进程，最终成功的方法是使用带参数的Shelltaskkill命令来确保进程被正确终止，然后安全地启动新的程序实例。

摘要由CSDN通过智能技术生成

场景:

遇到两个程序互相shell 调起，导致一个程序进程没结束掉后，在调起程序就会报错“文件未找到53”错误。

老方法面向百度编程

提供 Shell "cmd/c taskkill /f /im 进程名称.exe

结果: 不行还是报错。后来想起以前做的一款程序有记录，翻出来看了下可以。

'结束进程
Shell "taskkill /f /im " & 进程名称, 0 '这个可以用

在贴下我的程序代码

Dim strAppPath As String
Dim strAppName As String

    strAppName = "收款程序.exe"
    strAppPath = App.Path & "\payMoney\" & strAppName

   If Dir(strAppPath) = "" Then '等于空代表没有文件
        msgbox "没有找到要运行文件！"
        Exit Sub
    Else
        '检测程序存在说明程序已经运行，为了不重复运行或者不想运行两个程序 kill 它
        If exitproc(strAppName) = True Then
            ' Shell "cmd/c taskkill /f /im " & strAppName / f
            '结束进程
             Shell "taskkill /f /im " & strAppName, 0
       End If

        '调起支付程序
        ShellExecute Me.hwnd, "open", strAppPath, "", 0, 0

End If