小编Str*_*ong的帖子

我在此脚本的第7行和第12行中收到800A0414错误:

Module Module1

  Dim p

    Sub Main()
        CreateObject("Wscript.Shell").Run("program.bat", 0, True)

        p = Process.GetProcessesByName("program")
        If p.Count > 0 Then
            WScript.Sleep(300000)
        Else
            CreateObject("Wscript.Shell").Run("program clean up.bat", 0, True)
        End If

    End Sub

    Private Function WScript() As Object
        Throw New NotImplementedException
    End Function

End Module

我正在尝试运行批处理脚本,启动进程,然后等待进程终止,然后运行另一个批处理脚本.我也不希望显示任何命令框.如果他们是一个更容易的方式,请告诉我.

谢谢你的帮助