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 SubEtsii 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 IfSammuttaa
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
Nexthyvä 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.