Anti AHH Yapılışı


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

Yazar: murrat256    0 Yorum    256 Görüntüleme
  • Derecelendirme: 0/5 - 0 oy
Konu Kapalı

Paylaşım Tarihi: 16.05.2016, 21:22:17 #1
murrat256 Delikanlı
Onaylı Uye
Status: Çevrimdışı Yorumları:83 Konuları:11 Kayıt 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:
1
2
3
4
5
6
If CheckBox1.Checked = True Then
            Timer1.Start()
        End If
        If CheckBox1.Checked = False Then
            Timer1.Stop()
        End If

CheckBox2'a Girilecek Kodlar

Kod:
1
2
3
4
5
6
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:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
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:
1
2
3
4
5
6
7
8
9
10
11
12
13
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ı
Resim http://i.hizliresim.com/QMXzOZ.gif




Konu Kapalı






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

Konuyu Okuyanlar:
1 Ziyaretçi