Mustafa Kemal Atatürk
Uzman Üye
1. Adım: Öncelikle Bize Hilelerin Dosyaları Lazım. Yani Bu Yazacağımız Kodların Çalışması İçin Gereken Birkaç Tane Dosya... Vermeyeceğim.[/FONT][/SIZE]
Şimdi Bunları Geçelim. Proje Kuralım Bir Tane.
New Project'e Tıklıyoruz.
Add Existing Item'a Tıklıyoruz Yada Direk "CTRL+D" Yapıyoruz.
Eklendiğini Sağdaki Tablodan Anlayabilirsiniz.
İşimiz Başlıyor
En Az Gerekenler:
1 Checkbox
1 Timer
1 Buton
1 Label
İsmini Değiştirmek İstediğiniz Form1'deki Herhangi Birşeye 1 Kere Tıklayıp Sağ Alt Tablodan "Text" Kısmını Bulup İsmini İstediğiniz Yapabilirsiniz.
Timer'a Geldik. Şimdi Checkbox Sayımızı Sayalım. 4 Adet Var Değil Mi? Ozaman 4 Adette Timer'ımız Olmak Zorunda!
Eklediğiniz Zaman Alt Kısımlarda Timer 1, Timer2 Olarak Gözükecektir.
Bir Tane Checkbox'a 2 Kere Tıklayalım. "Form1.vb*" Adlı Bir Yer Açılacak Ve Kodlama Kısmına Girmiş Olucağız.
Her Checkbox için Bunu Yazmamız Gerek:
Kod:
Kod:
[CENTER][font=Verdana, Arial, Helvetica, sans-serif]If Checkbox1.Checked = True Then ' 1 Sayısını Değiştirin.[/FONT][/CENTER]
[CENTER][font=Verdana, Arial, Helvetica, sans-serif]Timer1.Start ' 1 Sayısını Değiştirin.[/FONT][/CENTER]"Private Sub Checkbox1" Yazıyor Buradaki Yazan Checkbox1 Hangi CheckBox'un İçinde Olduğunuzu Anlatıyor. Ona Göre 1 Sayısını Değiştirin. Mesela "Private Sub Checkbox2" Yazıyorsa
Kod:
Kod:
[CENTER][font=Verdana, Arial, Helvetica, sans-serif][SIZE=6][font=Arial Black]If Checkbox2.Checked = True Then[/FONT][/SIZE][/FONT][/CENTER]
[CENTER][font=Verdana, Arial, Helvetica, sans-serif][SIZE=6][font=Arial Black]Timer2.Start[/FONT][/SIZE][/FONT][/CENTER]Olarak Değiştireceksiniz.
Eğer Doğru Uygulayıp Bitirdiğinizde Bu Şekilde Gözükecektir.
Eklediğimiz Dosyaları Kullanma Zamanı
Kod:
Kod:
WriteLong("wolftü.bin", Label1.Text + &H12345, "Value")Buradaki "12345" Pointer Olmaktadır. "Güncel Pointerler" Konuları Yaygın Bir Şekilde Forumlarda Paylaşılmaktadır. "Value" Kısmını İse Güncel Pointerler Konusunda "ON Value" veya "Value" olarak bulabilirsiniz.
Şimdi Bu İşlem Çok Önemli! Neden Erkenden Anlatmadığımı Bilmiyorum Ama
Kod:
Kod:
[CENTER][font=Verdana, Arial, Helvetica, sans-serif][SIZE=6][font=Arial Black]Dim p As Process = Process.GetProcessesByName("wolftü.bin")(0) ' ellemeyin.[/FONT][/SIZE][/FONT][/CENTER]
[CENTER][font=Verdana, Arial, Helvetica, sans-serif][SIZE=6][font=Arial Black] For Each moz As System.Diagnostics.ProcessModule In p.Modules[/FONT][/SIZE][/FONT][/CENTER]
[CENTER][font=Verdana, Arial, Helvetica, sans-serif][SIZE=6][font=Arial Black] If moz.FileName.IndexOf("csh") <> -1 Then ' CSH yi OBJ veya BIN yapabilirsiniz. Tabikide hile bin veya obj destekliyorsa... Genelde NameESP gibi özellikler CSH destekliyor...[/FONT][/SIZE][/FONT][/CENTER]
[CENTER][font=Verdana, Arial, Helvetica, sans-serif][SIZE=6][font=Arial Black] label1.Text = moz.BaseAddress.ToString ' Label1.Texti Ellemeyin. 1 tane label oluşturun saklayın[/FONT][/SIZE][/FONT][/CENTER]
[CENTER][font=Verdana, Arial, Helvetica, sans-serif][SIZE=6][font=Arial Black] End If[/FONT][/SIZE][/FONT][/CENTER]
[CENTER][/CENTER]
[CENTER][font=Verdana, Arial, Helvetica, sans-serif][SIZE=6][font=Arial Black] Next[/FONT][/SIZE][/FONT][/CENTER]Bu Kodu Direk Yapıştırabilirsiniz. Kodta Herhangi Bir Hata Mevcut Değildir.
Buda Projemizin Bitmiş Halidir. "Güncel Pointerler" Konularında Hangi Hileye Ait Olduğu Verilmiştir. Ona Göre Dizayn Ediniz. Benim Böyle Gördüğünüz Üzere
Form1 Yazısına 1 Kere Tıklayın. Sağ Altta Aynı Tablo Çıkıyor Gene... "Auto Size Mod" Sizde "Grow Only" Olarak Gözükür. Onu "Grow And Shrink" Olarak Değiştirirseniz Projenin Genişletilmesini Önlersiniz.
Projemizin Bitiş Hali "Form1.vb*" Üzerindeki
Buradan Projeyi Kaydedebilirsiniz.
Projeyi Tamamiyle Kaydedebilirsiniz.
Bunada Tıklamak Zorundasınız. Projeyi Canlandırın. Ve Bundan Sonrası Size Kalmıştır. İyi Günler