'' Start the Calculator Dim rp As RemoteProcess = device.GetRemoteProcess() rp.Start("\windows\calc.exe", "") ' List all running processes Console.WriteLine("Type the number of the process you want to end" & _ vbCr & vbLf) Dim processes As Collection(Of RemoteProcess) = device.GetRunningProcesses() Dim i As Integer For i = 0 To processes.Count - 1 Console.WriteLine(i & ") " & processes(i).FileName & _ " [" & processes(i).ToString() & "]") Next i ' Get user input and end the process Dim index As Integer = Convert.ToInt32(Console.ReadLine()) Console.WriteLine("Attempting to stop " & processes(index).FileName) processes(index).Kill() If processes(index).HasExited() Then Console.WriteLine("Process is no longer running") End If |