Listaa käynnissä olevat ohjelmat, sammuttaa ohjelman ja etsii listasta halutun ohjelman. Tarvitset: Listbox:in, kolme Buttonia ja Textbox:in.
Listaa ohjelmat
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim pList() As Process Dim myProcess As System.Diagnostics.Process pList = myProcess.GetProcesses For Each myProcess In pList ListBox1.Items.Add(myProcess.ProcessName) Next MsgBox("Ohjelmia on käynnissä yhteensä: " & ListBox1.Items.Count, 64, "Ohjelmat") ' näyttää käynnissä olevat ohjelmat End Sub
Etsii ohjelmia listasta
If ListBox1.FindString(TextBox1.Text) <> -1 Then MessageBox.Show("Löydetty") ListBox1.SelectedIndex = ListBox1.FindString(TextBox1.Text) Else MsgBox("Etsimääsi ohjelmaa ei löytynyt.") End If
Sammuttaa
Dim proc As System.Diagnostics.Process Dim pList() As Process pList = Process.GetProcessesByName(ListBox1.Text) For Each proc In pList Dim resp As MsgBoxResult resp = MsgBox("Haluatko sammuttaa " & proc.ProcessName & "?", _ MsgBoxStyle.YesNo, "Sammuta?") If resp = MsgBoxResult.Yes Then proc.Kill() 'sammuttaa valitun ohjelman End If Next
hyvä just tollasta mä tarteen kun teen anti joke programen joka samutaa kavereiden ohjelmat.
mä en saanu toimimaaan
ihan toimiva..
PAITSI että toi kysyy jokasesta ohjelmasta suljetaanko se..
ps. tällä sais tehtyy kivan ohjelman ku laittas että sulkee jonkun servicen nii tulee se auto shutdown homma :]
hähäää, löysin ötökän!
paina sitä button1:stä useamman kerran ni kummallisesti ohjelmia löytyy enemmän kuin niitä oikeasti on.
Sen saa kyllä korjattua niin, että ennen kuin se listaa ohjelmat niin se tyhjentää listan tai kun sammuttaa ohjelman se päivittää listan.
miten ton sais sammuttamaan tietyn ohjelman ihan suoraan ilman että kysyy "Suljetaanko?" ja ettei edes tarviis painaa mistään, iha vaan sammuttas ennaltamäärätyn ohjelman?
voisko tän miteköö liittää tähän ohjelmaan ---> https://www.ohjelmointiputka.net/koodivinkit/
et pystyis sammuttaa etäkoneen ohjelmia jos lisäis tän tohon
Aihe on jo aika vanha, joten et voi enää vastata siihen.