[2008] Need help with Console Process

[hendrikbez]

I want to start osmon.exe with diffrent parameters, eg. Default, Osmon2, Osmon3, Osmon4 and Osmon5.

After Default has started it must wait 10 seconds, after osmon5 has started it must wait 15 seonds.
Then is must write the PID# to txt file.

I have the code, but when I run it, it only shows the console for 1 second, and then nothing is happening after that.

Imports System.Diagnostics
Imports System.Timers
Imports System.IO
Imports System


Module Module1

    Private Osmon_Delay As New Timer(10000)
    'Private Dop_Delay As New Timer(200000)
    'Private Proxy_Delay As New Timer(15000)

    Private LaunchCounter As Integer = 1

    Private Osmon_Default As New Process
    Private Osmon_Osmon2 As New Process
    Private Osmon_Osmon3 As New Process
    Private Osmon_Osmon4 As New Process
    Private Osmon_Osmon5 As New Process

    Sub Main()
        AddHandler Osmon_Delay.Elapsed, AddressOf myElapsed
        Osmon_Delay.Start()
    End Sub

    Private Sub myElapsed(ByVal source As Object, ByVal e As ElapsedEventArgs)
        ' Static LaunchCounter As Integer = 1

        Select Case LaunchCounter
            ' ''Case 1
            ' ''    Dop_Delay.start()
            ' ''    Process.Start("e:\osb5.0\osb\bin\hrncr.exe")
            ' ''    Dop_Delay.Stop()

            Case 1
                Dim msg As String = ""
                '  This is where you save the DEFAULT name and process ID to a file 
                Osmon_Default.StartInfo.FileName = "E:\OSB5.0\OSB\BIN\osmon.exe"
                Osmon_Default.StartInfo.Arguments = "NAME=DEFAULT"
                Osmon_Default.Start()
                Console.WriteLine("DEFAULT PID = " & Osmon_Default.Id)

                msg = msg & "Osmon 1 PID#"
                msg = msg & Osmon_Default.Id
                msg = msg & "  "
                msg = msg & ControlChars.NewLine
                IO.File.AppendAllText("c:\Segment\PIDNum.txt", msg)


            Case 2
                Dim msg As String = ""
                '  This is where you save the OSMON2 name and process ID to a file  
                Osmon_Osmon2.StartInfo.FileName = "E:\OSB5.0\OSB\BIN\osmon.exe"
                Osmon_Osmon2.StartInfo.Arguments = "NAME=OSMON2"
                Osmon_Osmon2.Start()
                Console.WriteLine("OSMON2 PID = " & Osmon_Osmon2.Id)

                msg = msg & "Osmon 2 PID#"
                msg = msg & Osmon_Osmon2.Id
                msg = msg & "  "
                msg = msg & ControlChars.NewLine
                IO.File.AppendAllText("c:\Segment\PIDNum.txt", msg)

            Case 3
                Dim msg As String = ""
                '  This is where you save the OSMON3 name and process ID to a file   
                Osmon_Osmon3.StartInfo.FileName = "E:\OSB5.0\OSB\BIN\osmon.exe"
                Osmon_Osmon3.StartInfo.Arguments = "NAME=OSMON3"
                Osmon_Osmon3.Start()
                Console.WriteLine("OSMON3 PID = " & Osmon_Osmon3.Id)
                msg = msg & "Osmon 3 PID#"

                msg = msg & Osmon_Osmon3.Id
                msg = msg & "  "
                msg = msg & ControlChars.NewLine
                IO.File.AppendAllText("c:\Segment\PIDNum.txt", msg)

            Case 4
                Dim msg As String = ""
                '  This is where you save the OSMON4 name and process ID to a file   
                Osmon_Osmon4.StartInfo.FileName = "E:\OSB5.0\OSB\BIN\osmon.exe"
                Osmon_Osmon4.StartInfo.Arguments = "NAME=OSMON4"
                Osmon_Osmon4.Start()
                Console.WriteLine("OSMON4 PID = " & Osmon_Osmon4.Id)

                msg = msg & "Osmon 4 PID#"
                msg = msg & Osmon_Osmon4.Id
                msg = msg & "  "
                msg = msg & ControlChars.NewLine
                IO.File.AppendAllText("c:\Segment\PIDNum.txt", msg)

            Case 5
                Dim msg As String = ""
                '  This is where you save the OSMON5 name and process ID to a file   
                Osmon_Osmon5.StartInfo.FileName = "E:\OSB5.0\OSB\BIN\osmon.exe"
                Osmon_Osmon5.StartInfo.Arguments = "NAME=OSMON5"
                Osmon_Osmon5.Start()

                msg = msg & "Osmon 5 PID#"
                msg = msg & Osmon_Osmon5.Id
                msg = msg & "  "
                msg = msg & ControlChars.NewLine
                IO.File.AppendAllText("c:\Segment\PIDNum.txt", msg)
                Osmon_Delay.Stop()
        End Select

        LaunchCounter += 1
    End Sub
End Module

[jmcilhinney]

Your Main method ends immediately after you Start the Timer and your application exits when your Main method ends, therefore your application exits immediately after your Start the Timer.

Get rid of the Timer and use Thread.Sleep to create a delay between each process starting.

Also, the way you're starting your processes is cumbersome given what you need to do. If all you need to do is to specify a file to execute and a commandline parameter then all you need is one line of code:

Process.Start("file name here", "commandline args here")

[hendrikbez]

I am bussy with remote, I did have in in like this on the server project:

Case "STARTOSMON1"
                Shell("E:\osb5.0\osb\bin\OSMON1.bat")
                'SpecialProcess("e:\osb5.0\osb\bin\osmon.exe", "DEFAULT") 'Start Osmon 1
            Case "STARTOSMON2"
                Shell("E:\osb5.0\osb\bin\OSMON2.bat")

I did try it witout the bat file like you can see the markout ones up top. but then I cannot kill them one by one. here is some code on how I am trying to stop it.

Case "STOPOSMON1"
                'Shell("C:\Segment\CloseOsmon1.bat")
                KillOsmon("osmon.exe", "DEFAULT") 'Stop Osmon 1
            Case "STOPOSMON2"
                'Shell("C:\Segment\CloseOsmon2.bat")
                KillOsmon("osmon.exe", "OSMON2") 'Stop Osmon 2

and here is my process.

 Private Sub KillOsmon(ByVal processname As String, ByVal domain As String)
        Try
            Dim searcher As New ManagementObjectSearcher("root\CIMV2", "SELECT * FROM Win32_Process")
            For Each queryObj As ManagementObject In searcher.Get()
                If (queryObj("NAME").ToString = processname) Then
                    Dim thisProcess As Process = Process.GetProcessById(DirectCast(queryObj("ProcessId"), Integer))
                    'Dim thisProcess As Process = Process.GetProcessById(queryObj("ProcessId"))
                    'thisProcess = Process.GetProcessById(queryObj("ProcessId"))
                    thisProcess.Kill()
                End If
            Next
        Catch err As ManagementException
            MessageBox.Show("An error occurred while querying for WMI data: " & err.Message)
        End Try

The only problem that I have is taht I cannot kill the process of the osmons.

So now I am trying to use console now, to see if it wil work