Anti AHH Yapılışı


Wolfteam Pointer & Silah & Karakter Kodları    wolfteam pointer kodları,wolfteam silah kodları,wolfteam karakter kodları,güncel pointer kodlar,güncel 2016 pointerlar,güncel wolfteam kodları,wolfteam güncel pointer kodları, pointerler,

Yazar: murrat256    0 Yorum    217 Görüntüleme
  • 0 Oy - 0 Yüzde
Konu Kapalı

Paylaşım Tarihi: 16.05.2016, 21:22:17 #1
murrat256 Delikanlı
Onaylı Uye
Status: Çevrimdışı Yorum Sayısı:83 Konu Sayısı:11 Üyelik Tarihi:21.04.2016 Rep Puanı: 14

Konuya girmeden önce alıntı olduğunu belirteyim arayanlar için lazım olacaklar için paylaşıyorum.


İlk olarak gerekli malzemeler
1 : 2 adet Checkbox
2 : 2 Adet Timer
2 : 1 Adet Button ve Label


CheckBox1'a Girilecek Kodlar

Kod:
If CheckBox1.Checked = True Then
            Timer1.Start()
        End If
        If CheckBox1.Checked = False Then
            Timer1.Stop()
        End If
CheckBox2'a Girilecek Kodlar

Kod:
If CheckBox2.Checked = True Then
            Timer2.Start()
        End If
        If CheckBox2.Checked = False Then
            Timer2.Stop()
        End If

Timer1'e Girilecek Kodlar

Kod:
Dim hack As Integer = Label1.Text + &H10190
        WriteLong("WolfTeam.bin", hack, "3102510019")
Timer2'ye Girilecek Kodlar

Kod:
Dim hack As Integer = Label1.Text + &H1A1190
        WriteLong("WolfTeam.bin", hack, "3102510019")

Düzenlenicek Yerler = &H123321
Düzenlenicek Yerler = Label1.Text [OBJ Çekilen Labeli Girin.]

Buttona Girilecek Kodlar[EĞER VİSUAL STUDİO 2013 EXPRESS KULLANIYORSANIZ BUNLARI GİRİCEKSİNİZ.]

Kod:
Dim enumerator As IEnumerator
        Dim process As Process = process.GetProcessesByName("WolfTeam.bin")(0)
        Try
            enumerator = process.Modules.GetEnumerator
            Do While enumerator.MoveNext
                Dim current As ProcessModule = DirectCast(enumerator.Current, ProcessModule)
                If (current.FileName.IndexOf("csh") <> -1) Then
                    Me.Label1.Text = current.BaseAddress.ToString
                End If
            Loop
        Finally
            If TypeOf enumerator Is IDisposable Then
                TryCast(enumerator, IDisposable).Dispose()
            End If
        End Try

Buttona Girilecek Kodlar[EĞER VİSUAL BASİC 2010 EXPRESS KULLANIYORSANIZ BUNLARI GİRİCEKSİNİZ.]


Kod:
Dim enumerator As IEnumerator
        Dim process As Process = process.GetProcessesByName("WolfTeam.bin")(0)
        Try
            enumerator = process.Modules.GetEnumerator
            Do While enumerator.MoveNext
                Dim current As ProcessModule = DirectCast(enumerator.Current, ProcessModule)
                If (current.FileName.IndexOf("csh") <> -1) Then
                    Me.Label1.Text = current.BaseAddress.ToString
                End If
            Loop
        Finally
            
        End Try

Kullanıcı İmzası
İmage



Konu Kapalı






Aradığınızı Bulamadınız Mı ?

Konuyu görüntüleyenler:
1 Misafir