That concludes the description of all of the code used in this example. If p.ProcessName = sProcess And p.Id = iId ThenĮnd If Next ' update the list to show the killed process ' has been removed ().Split( " -")ĭim iId As Integer = Convert.ToInt32(arr( 1).Trim()) Return End If ' loop through the running processes looking for a match ' by comparing process name to the name selected in the listbox Dim p As
MessageBox.Show( " Click on a process name to select it.", " No Process ''' ''' ''' ''' Private Sub btnKill_Click( ByVal sender As System. At the end, the handler calls the update method used to repopulate the listbox such that is displays the current list of active processes and their IDs.Ĭopy Code ''' ''' Kill the process selected in the process name If the current process (in the loop) matches on both the process name and process ID, the process is killed. In the kill button click event handler we again loop through all of the running processes and we take the selected item from the process/ID list, and parse it into a string containing the process name and an integer value containing the ID. If you do want to kill off all running instances of an application, disregard the ID and kill all running processes with the same process name. Since you can have multiple processes with the same name, it was necessary to add in the ID along with the name in order to make some distinction between multiple instances of a single application, else, we would end up killing all running instances of the application which may or may not be desirable depending upon what you are doing. The last bit of the code in the application is used to kill a running process. ''' ''' ''' ''' Private Sub btnUpdateProcessList_Click( ByVal sender As System.
The next bit of code in the application is the update button’s click event handler all it does is to call the UpdateProcessList function to update the contents of the listbox.Ĭopy Code ''' ''' Manually update the list of runnings TslProcessCount.Text = " Processes running: " & _ LstProcesses.Sorted = True ' display the number of running processes in ' a status message at the bottom of the page (p.ProcessName & " - " & p.Id.ToString()) ' loop through the running processes and add ' each to the list Dim p As įor Each p In () ''' and add each process name to the process Copy Code ''' ''' Loop through the list of running processes
0 kommentar(er)
