Program to run a query and end another program

Question

Program to run a query and end another program

BNE Sys 61

I have a live emergency map that runs all the time. However, the same computer also shows promotional presentations on the reception TV. In case of an alert (logs fetched by the SQL query, which is working fine), I want this VB program to run the query every 5 seconds, [U]if any result returns[/U], should close the abcd123.exe and bring the zxy.exe (emergency map window) to the front.

Public Class Form1  
    Public SQL As New SQLControl  
  
    Public Sub LoadGrid(Optional Query As String = "")  
        If Query = "" Then  
            SQL.ExecQuery("SELECT TOP 100 * FROM VReview WHERE (Text LIKE '%Help%' or Text LIKE '%Access%') Order By [UTCTimeInserted] Desc;")  
        Else  
            SQL.ExecQuery(Query)  
        End If  
  
        If SQL.HasException(True) Then Exit Sub  
  
        dgvData.DataSource = SQL.DBDT  
    End Sub  
  
End Class

Answer accepted by question author

2 additional answers

Your answer

Answer 1

Jiachen Li-MSFT 34,231 Microsoft External Staff

Hi @BNE Sys ,
You can refer to the following two pieces of code to close the process and bring the window to the front.

Public Class Inventory  
    Public SQL As New SQLControl()  
    Public Sub LoadGrid(Optional Query As String = "")  
        If Query = "" Then  
            SQL.ExecQuery("SELECT TOP 100 * FROM VReview WHERE (Text LIKE '%Help%' or Text LIKE '%Access%') Order By [UTCTimeInserted] Desc;")  
        Else  
            SQL.ExecQuery(Query)  
        End If  
        ' ERROR HANDLING  
        If SQL.HasException(True) Then  
            Timer1.Stop()  
            KillHungProcess("abcd123.exe")  
            StartOrShowProcess("zxy")  
        End If  
  
        dgvData.DataSource = SQL.DBDT  
    End Sub  
  
    Private Sub Inventory_Load(sender As Object, e As EventArgs) Handles MyBase.Load  
        MdiParent = Form1  
        LoadGrid()  
    End Sub  
  
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click  
        Timer1.Interval = 500  
        Timer1.Start()  
    End Sub  
  
  
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick  
        LoadGrid()  
    End Sub  
  
    Public Sub KillHungProcess(processName As String)  
        Dim psi As ProcessStartInfo = New ProcessStartInfo  
        psi.Arguments = "/im " & processName & " /f"  
        psi.FileName = "taskkill"  
        psi.WindowStyle = ProcessWindowStyle.Hidden  
        Dim p As Process = New Process()  
        p.StartInfo = psi  
        p.Start()  
    End Sub  
#Region "DLL Imports"  
    <System.Runtime.InteropServices.DllImport("User32.dll")>  
    Private Shared Function SetForegroundWindow(handle As IntPtr) As Boolean  
    End Function  
  
    <System.Runtime.InteropServices.DllImport("User32.dll")>  
    Private Shared Function ShowWindow(handle As IntPtr, nCmdShow As Integer) As Boolean  
    End Function  
    <System.Runtime.InteropServices.DllImport("User32.dll")>  
    Private Shared Function IsIconic(handle As IntPtr) As Boolean  
    End Function  
#End Region  
    Private Sub StartOrShowProcess(ByVal strProcessName As String)  
        Try  
            Dim handle As IntPtr  
            Dim proc As Process() = Process.GetProcessesByName(strProcessName)  
            If proc.Count > 0 Then  
                For Each procP As Process In proc  
                    handle = procP.MainWindowHandle  
                    If handle <> 0 AndAlso IsIconic(handle) Then 'Do we have a handle and is it minimized?  
                        ShowWindow(handle, 9)  
                        SetForegroundWindow(handle)  
                    End If  
                Next  
            Else 'Not running or started...  
                Process.Start(strProcessName)  
            End If  
  
        Catch ex As Exception  
            'Handle your error...  
        End Try  
    End Sub  
End Class

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.

BNE Sys 61 Reputation points

2022-08-01T23:28:20.667+00:00

Thank you, Jiachen,

I am very new to programming. Where exactly I am gonna add this code? Do I also need to create buttons?
Jiachen Li-MSFT 34,231 Reputation points Microsoft External Staff

2022-08-02T05:37:04.663+00:00

Hi @BNE Sys ,
I've edited my answer, you can check it out.
BNE Sys 61 Reputation points

2022-08-02T20:23:42.32+00:00

I tried to share the files via Git. Do you mind checking because I received too many errors?
teomcam/sqlquerier

Kind regards
Jiachen Li-MSFT 34,231 Reputation points Microsoft External Staff

2022-08-03T02:46:55.66+00:00

Hi @BNE Sys ,
Add a Timer1 and a Button1 to your form on the design page.
Timer1 runs LoadGrid() every five seconds.
Button1 is used to start Timer1.
When I use Notepad as the action object, it gets closed/topped correctly.
The parameter of KillHungProcess needs to contain the extension, the parameter of StartOrShowProcess does not.
BNE Sys 61 Reputation points

2022-08-03T03:43:27.797+00:00

Sorry I need a hand little bit more. Thank you so much but could you please confirm if I am pasting your code to the correct place?
Jiachen Li-MSFT 34,231 Reputation points Microsoft External Staff

2022-08-03T05:41:44.307+00:00

Hi @BNE Sys ,
I've updated my answer and now provide the full code you can use in your third step.

BNE Sys 61

You are, sir, a legend; thank you so much for helping me with such a great effort. I appreciate your time. I can see the data successfully fetching live now. But could not make the process kill yet. As an example, I want to end Notepad.exe and Excel.exe to come in front. I have changed the app name part as seen below. Anywhere else to check?

    Public Sub LoadGrid(Optional Query As String = "")  
        If Query = "" Then  
            SQL.ExecQuery("SELECT TOP 100 * FROM VReview WHERE (Text LIKE '%Help%' or Text LIKE '%Access%') Order By [UTCTimeInserted] Desc;")  
        Else  
            SQL.ExecQuery(Query)  
        End If  
        ' ERROR HANDLING  
        If SQL.HasException(True) Then  
            Timer1.Stop()  
            KillHungProcess("Notepad.exe")  
            StartOrShowProcess("Excel.exe")  
        End If  
  
        dgvData.DataSource = SQL.DBDT  
    End Sub

Jiachen Li-MSFT 34,231 Reputation points Microsoft External Staff

2022-08-04T01:34:11.787+00:00
Hi @BNE Sys ,

KillHungProcess("Notepad.exe") StartOrShowProcess("Excel")

You can add the following code after line 38 to keep the command line to close the window hidden when it is launched.

psi.WindowStyle = ProcessWindowStyle.Hidden
BNE Sys 61 Reputation points

2022-08-04T02:40:38.987+00:00

Sorry I receive this screen in return.
Jiachen Li-MSFT 34,231 Reputation points Microsoft External Staff

2022-08-04T03:47:13.563+00:00

Hi @BNE Sys ,
Sorry for my mistake.
It should be Line 38, After 'psi.FileName = "taskkill"'.

Answer 2

Hi, Not sure, but still not closing the notepad and bringing the excel in front, despite the data correctly fetched and keyword present.

Public Class Inventory  
    Public SQL As New SQLControl()  
    Public Sub LoadGrid(Optional Query As String = "")  
        If Query = "" Then  
            SQL.ExecQuery("SELECT TOP 100 * FROM VReview WHERE Text LIKE '%Access%' Order By [UTCTimeInserted] Desc;")  
        Else  
            SQL.ExecQuery(Query)  
        End If  
        ' ERROR HANDLING  
        If SQL.HasException(True) Then  
            Timer1.Stop()  
            KillHungProcess("Notepad.exe")  
            StartOrShowProcess("Excel.exe")  
        End If  
  
        dgvData.DataSource = SQL.DBDT  
    End Sub  
  
    Private Sub Inventory_Load(sender As Object, e As EventArgs) Handles MyBase.Load  
        MdiParent = Form1  
        LoadGrid()  
    End Sub  
  
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click  
        Timer1.Interval = 500  
        Timer1.Start()  
    End Sub  
  
  
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick  
        LoadGrid()  
    End Sub  
  
    Public Sub KillHungProcess(processName As String)  
        Dim psi As ProcessStartInfo = New ProcessStartInfo  
        psi.Arguments = "/im " & processName & " /f"  
        psi.FileName = "taskkill"  
        psi.WindowStyle = ProcessWindowStyle.Hidden  
        Dim p As Process = New Process()  
        p.StartInfo = psi  
        p.Start()  
    End Sub  
#Region "DLL Imports"  
    <System.Runtime.InteropServices.DllImport("User32.dll")>  
    Private Shared Function SetForegroundWindow(handle As IntPtr) As Boolean  
    End Function  
  
    <System.Runtime.InteropServices.DllImport("User32.dll")>  
    Private Shared Function ShowWindow(handle As IntPtr, nCmdShow As Integer) As Boolean  
    End Function  
    <System.Runtime.InteropServices.DllImport("User32.dll")>  
    Private Shared Function IsIconic(handle As IntPtr) As Boolean  
    End Function  
#End Region  
    Private Sub StartOrShowProcess(ByVal strProcessName As String)  
        Try  
            Dim handle As IntPtr  
            Dim proc As Process() = Process.GetProcessesByName(strProcessName)  
            If proc.Count > 0 Then  
                For Each procP As Process In proc  
                    handle = procP.MainWindowHandle  
                    If handle <> 0 AndAlso IsIconic(handle) Then 'Do we have a handle and is it minimized?  
                        ShowWindow(handle, 9)  
                        SetForegroundWindow(handle)  
                    End If  
                Next  
            Else 'Not running or started...  
                Process.Start(strProcessName)  
            End If  
  
        Catch ex As Exception  
            'Handle your error...  
        End Try  
    End Sub  
End Class

Jiachen Li-MSFT 34,231 Reputation points Microsoft External Staff

2022-08-04T05:29:23.933+00:00

Hi @BNE Sys ,
Try adding a button and test it by adding the following two lines of code to the button click event.

KillHungProcess("Notepad.exe") StartOrShowProcess("Excel")

The code works well in my test.
BNE Sys 61 Reputation points

2022-08-04T06:08:35.697+00:00

Yes, with the button on click, It worked as expected.

But for some reason, not by the keyword from the logs. I see the program successfully filtering and bringing the keyword (Access) from the logs and listing.
Jiachen Li-MSFT 34,231 Reputation points Microsoft External Staff

2022-08-04T06:39:11.783+00:00

Hi @BNE Sys ,
Then you need to check every exception to see if they are null.

Console.WriteLine(SQL.Exception)

Answer 3

BNE Sys 61

How do I do that? Where should paste the line? Thank you

Share via

Program to run a query and end another program

2 additional answers

Your answer