Membuat Program Proses Hunter di VB.Net
Setelah lama tidak membuat posting karena sesuatu hal...
akhirnya saya menambah koleksi dari program-program VB.Net yang saya pelajari. Hari ini saya menyajikan tentang cara membuat task manager dan fungsi untuk mematikan salah satu proses...
Silahkan cek TKP
Silahkan cek TKP
Pertama seperti biasa kita membuat sebuah form. dimana form ini memuat:
2 command button
1 list box
button 1 untuk mematikan proses yang sedang berjalan
button 2 untuk keluar dari form
list box untuk melihat daftar list proses yang sedang berjalan
berikut ini adalah contoh running programnya
Thx for your time
semoga bisa bermanfaat ^^v
Thx for your time
semoga bisa bermanfaat ^^v
untuk yang mau copas coding silahkan di bawah ini
Imports System.Diagnostics.Process Public Class Form1 | |
Inherits System.Windows.Forms.Form | |
Dim proces As Process | |
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load | |
'On Error Goto Fix | |
'dim Str As String=InputBox("Enter process to kill",""Process Killer","Killer") | |
For Each proces In GetProcesses() | |
'If proces.ProcessName = Str.ErrorToString Or Process.ProcessName="smss" Then | |
' proces.Kill() | |
'End If | |
Me.ListBox1.Items.Add(proces.ProcessName) | |
Next | |
'Fix | |
'End | |
End Sub | |
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click | |
'MsgBox(Me.ListBox1.SelectedItem) | |
For Each proces In GetProcesses() | |
If proces.ProcessName = Me.ListBox1.SelectedItem Then | |
proces.Kill() | |
End If | |
Next | |
Me.ListBox1.Items.RemoveAt(Me.ListBox1.SelectedIndex) | |
End Sub | |
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click | |
End | |
End Sub | |
End Class |
{ 0 comments... read them below or add one }
Post a Comment