Msgbox yöntemi ile, açık olan programları gösterelim.
Dim myProcess As Process() = Process.GetProcesses 'Çalışan uygulamaları Process ile tanımlayalım. myProcess kendi uygulamalarımız.
For Each uyg As Process In myProcess 'Döngü ile çalışan uygulamaları bul.
If uyg.MainWindowTitle.Length > 1 Then 'Başlıkların karakter uzunluğunu (">1") hesapla.
MessageBox.Show(uyg.MainWindowTitle) 'Başlıkları sırası ile al.
End If 'Yapıyı bitir.
Next uyg 'Diğer uygulamaya geç.
TextBox'a girilen uygulamanın durumunu kontrol edelim.
Kontrol(TextBox1.Text) 'Oluşturduğumuz kontrol yordamını çalıştıracağımız kod.
Public Sub Kontrol(ByVal Uyg As String) 'Kontrol adında yordam oluşuturuyoruz. Değişkeni tanımlıyoruz.
For Each islem As Process In Process.GetProcessesByName(Uyg) 'Uygulamayı Process içinde tara. (Get ile uygulamaları alıyoruz.)
MessageBox.Show("Program Açık!") 'TextBox içeriği Uyg ile eşleşir ise, olması gerekenler.
Exit Sub 'Yordam'dan çık.
Next 'Diğeri.
MessageBox.Show("Program Kapalı!") 'Eşleşmez ise, olması gerekenler.
End Sub 'Bitir.