Anti-Teot Connector Ile Fixleyin !

Arkadaşlar 2 3 Kod Araştırmasından Sonra Şu Olaya Rastladım Kısa Açıklayım Connectorumuzu Yaparken Forum Load Wardır Boş Alan Boş Alan Connector Acılınca Otomatik Yazılan Kodları Okur Şimdi Özet Çekecek Olursak Bir Kod Yaptım Adam Connecotur Actımı Fix Çalışıcak Nasıl Diyorsanız Şöyle ;

Sub antiteot()
Dim MyErr As Integer
On Error Resume Next
AppActivate "The Eyes Of Truth [REVENGE]  by Ilichev Roman" ' Teot  Titlesi
MyErr = Err
On Error GoTo Handle_Error
Handle_Error:
If MyErr > 0 Then
End
Else
SendKeys "%{F4}" ' Sizin Kararınız !
End If
End Sub

Bu Komutumuz Forumunuzda Boş Biryere Yazınız. Şimdi Nasıl Kullanıcaz Diyorsunuz Kullanımı Çok Basit Formunuza Timer Ekliceksiniz 1 Tane ve Tamerin " intival'ini 500 yapın " ve timerın döngüsüne antiteot yazın.

Bu Ne İşe Yarıcak Diyorsanız ?

Yukarda Titlesi Verilen Programı Kapatıcaktır Teot'un Titlesi " The Eyes Of Truth [REVENGE] by Ilichev Roman " Olduğundan " The Eyes Of Truth [REVENGE] by Ilichev Roman " Adlı Pencereleri Program Kapatıcaktır Bu Titledeki Pencereler Açıldıgında Hemen Kapanıcaktır Bu Programda Connectorun Kapanması Söz Konusu Değildir Sadece Anti Programlar Kapanır Siz Bu Programı Geliştirerek Bir Çok Şeyide Kapatabilirsiniz Olay ,

AppActivate "The Eyes Of Truth [REVENGE]  by Ilichev Roman" 

buraya kapatacagınız programın titlesini yazmak.

Kolay Gelsin ..

Teotun Titlesini Degistirirsek Ne Olucak:zipla

teotu daha connecto ile fixleyebilen yokkki bu iki satırlık yazı kalabalagı fixlesin

ultima dünyası 56b nin stabil olmasını beklio bence

Hmm Ben Titleyi Düşünmeden Yazmışım Programı Haklısınız + Bu Benim Kendi Programım Kimseden Altını Yapmadım Bunuda Üste Basa Basa Söylüyorum.

Ben aksini söylemedim ki.

exe editorlerle teot un adını değiştir çalısır.

Abim eline sağlık güzel olmuş sana birşey diyim titleyi bu kdr uzatmana geek yok sade The Eyes Of Truth yap titleyi değiştirseler bile onu bulucak. Ve bunu handle nosunu öğrenip daha sonra bu handleyi kapayarak yapabilirsin. Ama ne yazıkki bende bilmiyorum bilenlerde öğretmiyor zaten.
Ama bunları öğrendin diyelim bir sorun var oda şu;
Vb de programınızı task listesinden gizleyemezsiniz. Bunun için app.taskvisible=false diyorlar ama işlemiyor gene gözüküyor adam clienti açıp sonra ctrl+alt_del den connectoru kaparsa nolcak ?
Bende çıkış buttonunu vereyim bari

Sub uokapaa()
Dim MyErr As Integer
On Error Resume Next
AppActivate "Ultima Online"
MyErr = Err
On Error GoTo Handle_Error
Handle_Error:
If MyErr > 0 Then
End
Else
SendKeys "%{F4}"
End If
End Sub

Ve bir button ekleyin formunuzun üzerine çıkış buttonu ve click olayına şunu yazın;
uokapaa

Bu kod ile ilk bastığınızda connectoru bulur kapar ve 2.ci ye bastığınızda programınızı sonlandırır. Eğer uo zaten kapalıysa ilkinde kapar. Elimden bu kadar geldi

Bende Yeni Başladım Keşfettim Öle Yazıyım Dedim.