Ndtyjky

Basically, I'm making a manager that will show the window when you either click a button, or the listbox item.

This can be useful, because in I.T. workplaces, there are programs open with several different windows or instances of that one program running, and switching between the tasks can be easier by seeing the specific instance and clicking it to show it, than to scroll through the taskbar trying to find that ONE document you are looking for.

Two questions I have are:

1. How do I show the window you selected with a button after selecting the instance in the listbox




2. How do I make it so that it only closes the tab/instance of the program instead of the program?

The kill script I'm using is this

Private Sub btnKill_Click(sender As Object, e As EventArgs) Handles btnKill.Click

    Try

        Dim whole As String = Search.SelectedItem.ToString

        Dim pid = whole.Substring(whole.LastIndexOf(" # "))

        pid = pid.Replace(" # ", "")

        Dim p As Process = Process.GetProcessById(pid)

        Try

            p.Kill()

        Catch ex As Exception

            ' MessageBox.Show(ex.Message)

        End Try

    Catch ex As Exception

        ' MessageBox.Show(ex.Message)

    End Try

    Search.Items.Clear()

    For Each p As Process In Process.GetProcesses

        If p.MainWindowTitle = String.Empty = False Then

            Search.Items.Add(p.ProcessName & " # " & p.MainWindowTitle & " # " & p.Id)

        End If

    Next

    'For every process running

    For Each P As Process In Process.GetProcesses

        'Get a list of ALL of the open windows associated with the process  

        Dim windows As IDictionary(Of IntPtr, String) = GetOpenWindowsFromPID(P.Id)

        For Each kvp As KeyValuePair(Of IntPtr, String) In windows

            If kvp.Value.ToLower = "start" = False Then

                lstMain.Items.Add(P.ProcessName & " # " & kvp.Value & " # " & P.Id)

                Search.Items.Clear()

            End If

        Next

    Next

    Try

        Dim whole As String = lstMain.SelectedItem.ToString

        Dim pid = whole.Substring(whole.LastIndexOf(" # "))

        pid = pid.Replace(" # ", "")

        Dim p As Process = Process.GetProcessById(pid)

        Try

            p.Kill()

        Catch ex As Exception

            ' MessageBox.Show(ex.Message)

        End Try

    Catch ex As Exception

        ' MessageBox.Show(ex.Message)

    End Try

    lstMain.Items.Clear()

    For Each p As Process In Process.GetProcesses

        If p.MainWindowTitle = String.Empty = False Then

            lstMain.Items.Add(p.ProcessName & " # " & p.MainWindowTitle & " # " & p.Id)

        End If

    Next

    'For every process running

    For Each P As Process In Process.GetProcesses

        'Get a list of ALL of the open windows associated with the process  

        Dim windows As IDictionary(Of IntPtr, String) = GetOpenWindowsFromPID(P.Id)

        For Each kvp As KeyValuePair(Of IntPtr, String) In windows

            If kvp.Value.ToLower = "start" = False Then

                lstMain.Items.Add(P.ProcessName & " # " & kvp.Value & " # " & P.Id)

            End If

        Next

    Next

End Sub

Even if i have, let's say, 3 different word files open, if I kill one, it kills them all. I think it has to do with:

Dim pid = whole.Substring(whole.LastIndexOf(" # "))

    pid = pid.Replace(" # ", "")

    Dim p As Process = Process.GetProcessById(pid)

Help would be very much appreciated!

THANKS!

-Filip

EDIT: How could I use the "BringtoFront" command with it?