Bilmem aranızda Ultima online oynıyanınız var mı. Var veya yok. Belkide büyük bir problem deildir. Teot denen illegal bir program var. Ben bunun çalışmasını bir yazılım ile fixlemek istiyorum. Genelde teotun'fixi handle nosu veya titlesini kullanarak engellemeye çalışıyorlar. Fakat bunların çözülmesi 5sn bile sürmüyor. Çünkü title ve handle nosu hex editörle anında değiştirilebiliyor. Kod: Sub uokapaa Dim MyErr As Integer On Error Resume Next AppActivate "The Eyes Of Truth" MyErr = Err On Error GoTo Handle_Error Handle_Error: If MyErr > 0 Then Else SendKeys "% " unload me End If End Sub invertali 500 olan bir timer nesnesinin kodlarına uokapaa yazdığımızda bu titleye sahip bir program kapatılabiliyor. Kod: Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" As Long Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" As Long Const WM_CLOSE = &H10 Private Sub Timer1_Timer Dim teot As Long teot = FindWindow SendMessage teot, WM_CLOSE, 0, 0 End Sub Burdada bir timerin invertalini 100 yapıyoruz ve bu teotu kapatıyor. Tabi burda işlev hande nosu olduğu için ve bu no değiştirebildiği için buda pasif kalıyor. Bunu ne yapsak da kullanılamaz hale getirsek bilemiyorum. Acaba bunun bir fixli olurmu çalışması engellenirmi onuda bilemiyorum.300-400 Ytl ye teotu %100 fixledim diye connector yazıyorlar fakat hiçbiri fixliyemiyor Aşağıda teotun linkini verdim. Bunu gerçekten % 100 çalışmasını fixlersem ultima camiasına bomba gibi düşebilirim http://www.filearsivi.com/download. php?file=6e30df8c06c8f80bb6224d38caffb1a4