[TuT]Robimy Process Killer

[JuanPleXxx]

1. Robimy nową formę.

2. Dodajemy:

1xListBox.

2xButton.

3. Układamy to mniej więcej tak:

 

4.Klikamy teraz 2x na form i nad Public Class for1 dodajemy:

Imports System.Diagnostics

5.Klikamy 2x na formę, i usuwamy ten:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
End Class

A wklejamy w to puste miejsce:

 Private Sub  Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
	Dim proc As Process
	ListBox1.Items.Clear()
	For Each proc In Process.GetProcesses
		ListBox1.Items.Add(proc.ProcessName)
	Next
End Sub
End Class

6.Klikamy 2x na zabij i usuwamy cały kod buttona a dajemy ten:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal  e As System.EventArgs) Handles  Button1.Click
	Try
		If ListBox1.SelectedItems.Count <= 0 Then
			MessageBox.Show("WYBIERZ PROCES!", "Błąd(")
			Return
		End If
		Dim p As System.Diagnostics.Process
		For Each p In System.Diagnostics.Process.GetProcesses()
			Dim arr() As String = _
		  ListBox1.SelectedItem.ToString().Split("-")
			Dim sProcess As String = arr(0).Trim()
			If p.ProcessName = sProcess Then
				p.Kill()
				MsgBox("Proces Zabity.")
				Dim proc As Process
				ListBox1.Items.Clear()
				For Each proc In Process.GetProcesses
					ListBox1.Items.Add(proc.ProcessName)
				Next
			End If
		Next
		ListBox1.Update()
	Catch ex As Exception
	End Try

7.Klikamy 2x na odśwież i teraz już odrazu wklejamy ten kod:

 Dim proc As Process
	ListBox1.Items.Clear()
	For Each proc In Process.GetProcesses
		ListBox1.Items.Add(proc.ProcessName)
	Next
	MsgBox("Lista odświeżona.", MsgBoxStyle.Exclamation)

 

Gotowy kod:

Imports System.Diagnostics
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
	Dim proc As Process
	ListBox1.Items.Clear()
	For Each proc In Process.GetProcesses
		ListBox1.Items.Add(proc.ProcessName)
	Next
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
	Try
		If ListBox1.SelectedItems.Count <= 0 Then
			MessageBox.Show("WYBIERZ PROCES!", "No ProcessSelected(")
			Return
		End If
		Dim p As System.Diagnostics.Process
		For Each p In System.Diagnostics.Process.GetProcesses()
			Dim arr() As String = _
		  ListBox1.SelectedItem.ToString().Split("-")
			Dim sProcess As String = arr(0).Trim()
			If p.ProcessName = sProcess Then
				p.Kill()
				MsgBox("Proces Zabity.")
				Dim proc As Process
				ListBox1.Items.Clear()
				For Each proc In Process.GetProcesses
					ListBox1.Items.Add(proc.ProcessName)
				Next
			End If
		Next
		ListBox1.Update()
	Catch ex As Exception
	End Try
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
	Dim proc As Process
	ListBox1.Items.Clear()
	For Each proc In Process.GetProcesses
		ListBox1.Items.Add(proc.ProcessName)
	Next
	MsgBox("Lista odświeżona.", MsgBoxStyle.Exclamation)
End Sub
End Class

[Gość LastPhoenix450]

Wrzucisz gotowy projekt (nie skompilowany)?

[JuanPleXxx]

Np:

 

Skan:

https://www.virustotal.com/file/e6aee7da04a18724d698851b748c994fa5517f80a52d0609b3c176b3abfdb5e3/analysis/1332010838/

Dl:

http://speedy.sh/7vBS6/WindowsApplication9.rar