Arkadaşlar basit bir kod'tur. Gerekli açıklamalar ise ;
Client'inize ekliyebilirsiniz, veya ayrı bir program olarak açabilirsiniz. Sistemi sadece KAPATMA işlemlerinde doğal olarak cpu'udan biraz kullanım alanı yer, fakat bu küçük bir miktardır.
Her 10 saniyede Teot ve EasyUO'ya bakar sistemde açıksa kapatır. Farklı programlar eklenebilir Örnek : Winamp, Msn Vs.
Sizlerinde bakmanızı gerekirse hep beraber değişik fikirler üstünde durarak bu easyuo naletini engellemeye çalışalım. Ben engelledim diyenler illaki çıkacaktır ama sorun açık kaynak kodlarını paylaşmaktır diye düşünüyorum.
Öncelikle;
- Visual Basic'de bir adet form açıyoruz.
-2 Adet Timer
-1 Adet Label
; ekliyoruz.
Form'muza çift tıklayıp bu kodları içine yapıştırın ;
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Const WM_CLOSE = &H10
Private Sub Form_Load()
Dim winHwnd As Long
Dim RetVal As Long
winHwnd = FindWindow(vbNullString, "EUOX")
If winHwnd <> 0 Then
PostMessage winHwnd, WM_CLOSE, 0&, 0&
Else
MsgBox "İllegal programlar açık değildir. Bağlantı Programına Yönlendiriliyorsunuz."
End If
winHwnd = FindWindow(vbNullString, "teot10x")
If winHwnd <> 0 Then
PostMessage winHwnd, WM_CLOSE, 0&, 0&
Else
MsgBox "İllegal programlar açık değildir. Bağlantı Programına Yönlendiriliyorsunuz."
End If
Timer1.Interval = 10000
Timer2.Interval = 1000
Label1.Caption = Timer1.Interval / 1000
End Sub
Private Sub Timer1_Timer()
winHwnd = FindWindow(vbNullString, "EUOX")
If winHwnd <> 0 Then
PostMessage winHwnd, WM_CLOSE, 0&, 0&
End If
End Sub
Private Sub Timer2_Timer()
Label1.Caption = Val(Label1.Caption) - _
Timer2.Interval / 1000
End Sub
Daha sonra Timer 1 ve 2 deki Interval'ları koddaki sn'yeye göre düzenliyelim. Ben 10 sn.yaptım siz 30 'dk da yapabilirsiniz.
Basit fakat faydalı bir program veya kod' oldugunu düşünmekteyim.