form1 Kod: Private Sub Form_Load Timer1. Interval = 1000 End Sub Private Sub Timer1_Timer Dim islemler(100) As String Dim i As Integer, j As Integer, bayrak As Integer strComputer = "." Set objWMIService = GetObject("winmgmts:" & " !\\" & strComputer & "\root\cimv2") Set colProcessList = objWMIService. ExecQuery("Select from Win32_Process") For Each objProcess In colProcessList islemler = objProcess. Name i = i + 1 Next For j = 0 To i If islemler = "notepad. exe" Then bayrak = 1 Next If bayrak = 1 Then Unload Me Form2. Show End If End Sub form2 Kod: Private Sub Form_Load Timer1. Interval = 1000 End Sub Private Sub Timer1_Timer Dim islemler(100) As String Dim i As Integer, j As Integer, bayrak As Integer strComputer = "." Set objWMIService = GetObject("winmgmts:" & " !\\" & strComputer & "\root\cimv2") Set colProcessList = objWMIService. ExecQuery("Select from Win32_Process") For Each objProcess In colProcessList islemler = objProcess. Name i = i + 1 Next For j = 0 To i If islemler = "notepad. exe" Then bayrak = 1 Next If bayrak = 0 Then Unload Me Form1. Show End If End Sub iki forma da timer eklenmeli(timer1) eğer not defteri açıksa form2 açılıyo eğer not defteri kapatılırsa tekrar form1 e dönüyor. knight online işlemlerde hangi isimle gözüküyor bilmediğim için not defteri için yaptım.

Bir exe acildiginda form2 nin acilmasini istiyorum orn knight online client açildimi form2 acılcak