- 26 May 2024
- 52
- 23
Herkese merhaba. Bugün Visual Basic .NET ile basit bir Watchdog (Bekçi Köpeği) yapımı göstereceğim. İnşAllah konu hoşunuza gider. İlk önce, Watchdog'un ne olduğunu anlatacağım.
Watchdog Nedir?
Watchdog, bilgisayarda belirtilen bir programın çalışıp çalışmadığını izler. Eğer uygulama çalışıyorsa, izlemeye devam eder. Eğer uygulama çalışmıyorsa, uygulamayı başlatır ve izlemeye devam eder. Bu şekilde uygulamanın kapatılmasını engeller. Watchdog iki parçadan oluşur. Kodun bir kısmı izlenilen programa, diğer kısmı ise Watchdog olan ayrı uygulamaya eklenir. Bu iki uygulama birbirini izler ve herhangi biri kapatıldığında geri açar. Watchdog, iyi amaçlarla kullanılabileceği gibi kötü amaçlarlada kullanılabilir. Örneğin, bir zararlı yazılım kapanmasını zorlaştırmak için bir Watchdog kullanabilir. Şimdi kodlamaya geçiyoruz.
1. Uygulamamıza Watchdog Timer'ını ekleyelim.
Zaten varolan uygulamamıza (yani izlemek istediğimiz'e) bir adet Timer ekliyoruz. Daha sonra, Timer'ın interval değerini 5000 yani 5 saniyeye ayarlayalım. İsterseniz daha uzun yada kısa sürelere değiştirebilirsiniz.
2. Varolan uygulamanın içine kodları ekleyelim.
Şimdi varolan uygulamamıza Watchdog kodlarını ekleyelim. Eğer eklemezsek ve kullanıcı Watchdog'u kapatırsa Watchdog geri gelmez. Bu sebeple Watchdog'u geri getirmemiz için bu kod önemli.
Kopyala yapıştır için:
Try
Dim işlemler As Process() = Process.GetProcessesByName("watchdog")
If işlemler.Length = 0 Then
Dim işlem As New Process
işlem.StartInfo.FileName = (Application.StartupPath & "\watchdog.exe")
işlem.Start()
End If
Catch ex As Exception
MsgBox("Uygulama hatası: " & ex.Message, MsgBoxStyle.Critical, "Hata")
End Try
Kodlardaki "watchdog" kısmını Watchdog uygulamasının adıyla değiştirin. (Application.StartupPath & "\watchdog.exe") kısmını ise Watchdog uygulamasının konumuyla değiştirin.
3. Watchdog'u yapalım.
Şimdi sıra Watchdog'da. Yine bir adet Timer ekliyoruz ve interval değerini 5000 yapalım.
4. Watchdog'u kodlayalım.
Şimdi sıra Watchdog uygulamasını kodlamakta.
Kopyala yapıştır için:
Try
Dim işlemler As Process() = Process.GetProcessesByName("uygulama")
If işlemler.Length = 0 Then
Dim işlem As New Process
işlem.StartInfo.FileName = (Application.StartupPath & "\uygulama.exe")
işlem.Start()
End If
Catch ex As Exception
MsgBox("Watchdog hatası: " & ex.Message, MsgBoxStyle.Critical, "Hata")
End Try
Kodlardaki "uygulama" kısmını varılan uygulamanızın adıyla değiştirin. (Application.StartupPath & "\uygulama.exe") kısmını ise varolan yani izlemek istediğiniz uygulamanın konumunu yazın.
5. Test zamanı.
Şimdi Watchdog'u test etme zamanı.
İsterseniz Watchdog formunu gizleyebilirsiniz. Okuduğunuz için teşekkürler. İnşAllah size yeni şeyler öğretebilmişimdir.
Watchdog Nedir?
Watchdog, bilgisayarda belirtilen bir programın çalışıp çalışmadığını izler. Eğer uygulama çalışıyorsa, izlemeye devam eder. Eğer uygulama çalışmıyorsa, uygulamayı başlatır ve izlemeye devam eder. Bu şekilde uygulamanın kapatılmasını engeller. Watchdog iki parçadan oluşur. Kodun bir kısmı izlenilen programa, diğer kısmı ise Watchdog olan ayrı uygulamaya eklenir. Bu iki uygulama birbirini izler ve herhangi biri kapatıldığında geri açar. Watchdog, iyi amaçlarla kullanılabileceği gibi kötü amaçlarlada kullanılabilir. Örneğin, bir zararlı yazılım kapanmasını zorlaştırmak için bir Watchdog kullanabilir. Şimdi kodlamaya geçiyoruz.
1. Uygulamamıza Watchdog Timer'ını ekleyelim.
Zaten varolan uygulamamıza (yani izlemek istediğimiz'e) bir adet Timer ekliyoruz. Daha sonra, Timer'ın interval değerini 5000 yani 5 saniyeye ayarlayalım. İsterseniz daha uzun yada kısa sürelere değiştirebilirsiniz.
2. Varolan uygulamanın içine kodları ekleyelim.
Şimdi varolan uygulamamıza Watchdog kodlarını ekleyelim. Eğer eklemezsek ve kullanıcı Watchdog'u kapatırsa Watchdog geri gelmez. Bu sebeple Watchdog'u geri getirmemiz için bu kod önemli.
Kopyala yapıştır için:
Try
Dim işlemler As Process() = Process.GetProcessesByName("watchdog")
If işlemler.Length = 0 Then
Dim işlem As New Process
işlem.StartInfo.FileName = (Application.StartupPath & "\watchdog.exe")
işlem.Start()
End If
Catch ex As Exception
MsgBox("Uygulama hatası: " & ex.Message, MsgBoxStyle.Critical, "Hata")
End Try
Kodlardaki "watchdog" kısmını Watchdog uygulamasının adıyla değiştirin. (Application.StartupPath & "\watchdog.exe") kısmını ise Watchdog uygulamasının konumuyla değiştirin.
3. Watchdog'u yapalım.
Şimdi sıra Watchdog'da. Yine bir adet Timer ekliyoruz ve interval değerini 5000 yapalım.
4. Watchdog'u kodlayalım.
Şimdi sıra Watchdog uygulamasını kodlamakta.
Kopyala yapıştır için:
Try
Dim işlemler As Process() = Process.GetProcessesByName("uygulama")
If işlemler.Length = 0 Then
Dim işlem As New Process
işlem.StartInfo.FileName = (Application.StartupPath & "\uygulama.exe")
işlem.Start()
End If
Catch ex As Exception
MsgBox("Watchdog hatası: " & ex.Message, MsgBoxStyle.Critical, "Hata")
End Try
Kodlardaki "uygulama" kısmını varılan uygulamanızın adıyla değiştirin. (Application.StartupPath & "\uygulama.exe") kısmını ise varolan yani izlemek istediğiniz uygulamanın konumunu yazın.
5. Test zamanı.
Şimdi Watchdog'u test etme zamanı.
İsterseniz Watchdog formunu gizleyebilirsiniz. Okuduğunuz için teşekkürler. İnşAllah size yeni şeyler öğretebilmişimdir.
Son düzenleme: