Return exit code

StewartBW 1,145

Hello,

I have 2 VB.net WinForms app (.net 4.0) one is x64 one is x86

From the x64 one, I call the x86 one and need to get back its return code.

Code inside the x64 app:

        Using Compiler As New Process
            Compiler.StartInfo.WorkingDirectory = My.Application.Info.DirectoryPath
            Compiler.StartInfo.FileName = "App.exe"
            Compiler.StartInfo.UseShellExecute = False
            Compiler.StartInfo.RedirectStandardOutput = False
            Compiler.StartInfo.WindowStyle = ProcessWindowStyle.Hidden
            Compiler.EnableRaisingEvents = True
            Compiler.Start()
            Compiler.WaitForExit()
            If Compiler.HasExited = False Then
                Compiler.Kill()
            Else
                MsgBox(Compiler.ExitCode)
            End If
        End Using

And the second x86 app, in the form load., I use:

Environment.ExitCode = xxx
'Environment.Exit(xxx)
Application.Exit()

The problem is that I always get zero as return code :(

Anyone knows why?

Thanks.

KOZ6.0 6,480

What do you put in xxx?

X86WinApp

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Environment.ExitCode = 999
        Application.Exit()
    End Sub
End Class

X64WinApp

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Using Compiler As New Process
            Compiler.StartInfo.WorkingDirectory = My.Application.Info.DirectoryPath
            Compiler.StartInfo.FileName = "X86WinApp.exe"
            Compiler.StartInfo.UseShellExecute = False
            Compiler.StartInfo.RedirectStandardOutput = False
            Compiler.StartInfo.WindowStyle = ProcessWindowStyle.Hidden
            Compiler.EnableRaisingEvents = True
            Compiler.Start()
            Compiler.WaitForExit()
            If Compiler.HasExited = False Then
                Compiler.Kill()
            Else
                MsgBox(Compiler.ExitCode)
            End If
        End Using
    End Sub
End Class

enter image description here

KOZ6.0 6,480

This will cause a window to be displayed for a moment, so for x86App, do the following:

Public Class Form1

    Protected Overrides Sub SetVisibleCore(value As Boolean)
        If Not IsHandleCreated Then
            CreateHandle()
            value = False
        End If
        MyBase.SetVisibleCore(value)
    End Sub

    Protected Overrides Sub OnHandleCreated(e As EventArgs)
        MyBase.OnHandleCreated(e)
        Environment.ExitCode = 999
        Application.Exit()
    End Sub

End Class

StewartBW 1,145 Reputation points

2024-06-18T05:27:18.5733333+00:00

Any number from 1 to 10, initial is zero. when called from the other app.exe, it always returned zero until I disabled Application Framework and set the ExitCode in the New / Finalize

No idea if it can work with Application Framework enabled or not :(
Jiachen Li-MSFT 32,056 Reputation points Microsoft Vendor

2024-06-25T08:08:19.27+00:00

May I know if you have got any chance to check the new replies? I am glad to help if you have any other questions.

2 answers

StewartBW 1,145 Reputation points

2024-06-18T04:15:55.66+00:00

Thanks all, when called from the other app.exe, it always returned zero until I disabled Application Framework and set the ExitCode in the New / Finalize

No idea if it can work with Application Framework enabled or not :(
Please sign in to rate this answer.
KOZ6.0 6,480 Reputation points

2024-06-18T06:45:41.1633333+00:00

I tested it with the application framework disabled, and the set value was returned correctly. Please check that the value is set correctly.

Public Class Form1 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load Environment.ExitCode = 1 MsgBox(Environment.ExitCode) Application.Exit() End Sub End Class
Sign in to comment

Use comments to ask for clarification, additional information, or improvements to the question.
Jiachen Li-MSFT 32,056 Reputation points Microsoft Vendor

2024-06-18T07:28:08.82+00:00

Hi @StewartBW

Disabling the Application Framework ensures that your custom exit code logic is not overridden.

Best Regards.

Jiachen Li

If the answer is helpful, please click "Accept Answer" and upvote it.

Note: Please follow the steps in our documentation to enable e-mail notifications if you want to receive the related email notification for this thread.
Please sign in to rate this answer.

0 comments No comments
Sign in to comment

Use comments to ask for clarification, additional information, or improvements to the question.

Share via

Return exit code

2 answers

Your answer