d3d menu hazir kod video eklendi


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: secolayabak    91 Yorum    4930 Görüntüleme
  • 0 Oy - 0 Yüzde
Konu Kapalı

Paylaşım Tarihi: 11.06.2016, 00:43:24 #1
secolayabak Ağabey
Onaylı Uye
Status: Çevrimdışı Yorum Sayısı:317 Konu Sayısı:41 Üyelik Tarihi:15.04.2016 Rep Puanı: 30

Size Tamamen Kodlanmış D3D Menü Hack Vereceğim.Sizde Bi Kac Bişi Yaptımıydınız Artık Sizinde D3D Menünüz Olacak Big Grin


Form1`in Özellikleri:

FormBorderStyle = None
BackKolor = Black
ShowIcon = False
ShowIn Taskbar = False


Label`lerin Dizilmesi Gereken Hali:

Label1    (Name ESP)/////////////Label3  ( [OFF] )              
Label2    (No Spread)/////////////Label4  ( [OFF] )
Label6    (No Fall Damage)///////Label5  ( [OFF] )
Label7    (Slot 0 SP)///////////////Label18  ( [OFF] )
Label8    (Early Respawn)////////Label19  ( [OFF] )
Label9    (CrossHair)///////////////Label20  ( [OFF] )
Label10  (WolfAbility)/////////////Label21  ( [OFF] )
Label11  (Inf Ammo)//////////////Label22  ( [OFF] )
Label12  (No Reload)/////////////Label23  ( [OFF] )
Label13  (Rapid Fire)//////////////Label24  ( [OFF] )
Label14  (WallShot)///////////////Label25  ( [OFF] )
Label15  (Takla)//////////////////// Label26  ( [OFF] )  
Label16  (Always Head Shot)//////Label27  ( [OFF] ) 
Label17  (YP Booster)///////////////Label28  ( [OFF] )


19 Adet Timer Ekleyin. Üstteki Label Dizilişini Yaptıktan Sonra Form`unuzu Aşağıya Doğru Büyütüp O Boş Yere 3 Adet Label Ekleyin Ve Büyüttüğünüz Yeri Tekrardan Kapatın Sonradan Eklenen 3 Labelin Sayıları 29,30,31 Olsun Farklı Olursa CSH,BİN,OBJ Cekemez.Labelleri Verdiğim Sayılara Göre Dizdikten Sonra Yanlarındaki Parantezde Ne yazıyosa İsmini Öle Yapın.  1,2,17,18,19 Timer`lerin Enabled`leri True Olsun Diğer Timer`lerin False Olsun.Label1`in ForeColor`u " Orange " Solda Kalan Diğer Label`ler " White " Sağdaki Label`lerin Hepsi " Red " Yapın.

Hileye Eklenecek Dosyalar:
ReadWritingMemory.vb
WritePointerInteger.vb


Bunlar Sizde Vardır 











Her Timer`in Kodunu Timer1 İse Projenizden Timer1`e Çif Tıklayıp Cıkan Yere Burdaki Timer1`in Kodlarını Yapıştırın.Bu Şekilde Yaparsanız Sorunsuz Çalışacakdır

Kod:
Public Class Form1

   Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
   Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
       Try
           Interaction.AppActivate("Wolfteam.bin")
           Me.TopMost = True
       Catch
           Me.TopMost = True
       End Try
   End Sub

   Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
       If GetAsyncKeyState(Keys.Down) = -32767 Then


           If Label1.ForeColor = Color.Orange Then
               Label1.ForeColor = Color.White
               Label2.ForeColor = Color.Orange
               Exit Sub
           End If

           If Label2.ForeColor = Color.Orange Then
               Label2.ForeColor = Color.White
               Label6.ForeColor = Color.Orange
               Exit Sub
           End If
           If Label6.ForeColor = Color.Orange Then
               Label6.ForeColor = Color.White
               Label7.ForeColor = Color.Orange
               Exit Sub
           End If

           If Label7.ForeColor = Color.Orange Then
               Label7.ForeColor = Color.White
               Label8.ForeColor = Color.Orange
               Exit Sub
           End If

           If Label8.ForeColor = Color.Orange Then
               Label8.ForeColor = Color.White
               Label9.ForeColor = Color.Orange
               Exit Sub
           End If

           If Label9.ForeColor = Color.Orange Then
               Label9.ForeColor = Color.White
               Label10.ForeColor = Color.Orange
               Exit Sub
           End If

           If Label10.ForeColor = Color.Orange Then
               Label10.ForeColor = Color.White
               Label11.ForeColor = Color.Orange
               Exit Sub
           End If

           If Label11.ForeColor = Color.Orange Then
               Label11.ForeColor = Color.White
               Label12.ForeColor = Color.Orange
               Exit Sub
           End If

           If Label12.ForeColor = Color.Orange Then
               Label12.ForeColor = Color.White
               Label13.ForeColor = Color.Orange
               Exit Sub
           End If

           If Label13.ForeColor = Color.Orange Then
               Label13.ForeColor = Color.White
               Label14.ForeColor = Color.Orange
               Exit Sub
           End If

           If Label14.ForeColor = Color.Orange Then
               Label14.ForeColor = Color.White
               Label15.ForeColor = Color.Orange
               Exit Sub
           End If

           If Label15.ForeColor = Color.Orange Then
               Label15.ForeColor = Color.White
               Label16.ForeColor = Color.Orange
               Exit Sub
           End If

           If Label16.ForeColor = Color.Orange Then
               Label16.ForeColor = Color.White
               Label17.ForeColor = Color.Orange
               Exit Sub
           End If

           If Label6.ForeColor = Color.Orange Then
               Label6.ForeColor = Color.Orange
               Exit Sub
           End If
       End If

       If GetAsyncKeyState(Keys.Up) = -32767 Then
           If Label17.ForeColor = Color.Orange Then
               Label17.ForeColor = Color.White
               Label16.ForeColor = Color.Orange
               Exit Sub
           End If

           If Label16.ForeColor = Color.Orange Then
               Label16.ForeColor = Color.White
               Label15.ForeColor = Color.Orange
               Exit Sub
           End If

           If Label15.ForeColor = Color.Orange Then
               Label15.ForeColor = Color.White
               Label14.ForeColor = Color.Orange
               Exit Sub
           End If

           If Label14.ForeColor = Color.Orange Then
               Label14.ForeColor = Color.White
               Label13.ForeColor = Color.Orange
               Exit Sub
           End If

           If Label13.ForeColor = Color.Orange Then
               Label13.ForeColor = Color.White
               Label12.ForeColor = Color.Orange
               Exit Sub
           End If

           If Label12.ForeColor = Color.Orange Then
               Label12.ForeColor = Color.White
               Label11.ForeColor = Color.Orange
               Exit Sub
           End If

           If Label11.ForeColor = Color.Orange Then
               Label11.ForeColor = Color.White
               Label10.ForeColor = Color.Orange
               Exit Sub
           End If

           If Label10.ForeColor = Color.Orange Then
               Label10.ForeColor = Color.White
               Label9.ForeColor = Color.Orange
               Exit Sub
           End If

           If Label9.ForeColor = Color.Orange Then
               Label9.ForeColor = Color.White
               Label8.ForeColor = Color.Orange
               Exit Sub
           End If

           If Label8.ForeColor = Color.Orange Then
               Label8.ForeColor = Color.White
               Label7.ForeColor = Color.Orange
               Exit Sub
           End If

           If Label7.ForeColor = Color.Orange Then
               Label7.ForeColor = Color.White
               Label6.ForeColor = Color.Orange
               Exit Sub
           End If

           If Label6.ForeColor = Color.Orange Then
               Label6.ForeColor = Color.White
               Label2.ForeColor = Color.Orange
               Exit Sub
           End If

           If Label2.ForeColor = Color.Orange Then
               Label2.ForeColor = Color.White
               Label1.ForeColor = Color.Orange
               Exit Sub
           End If

           If Label1.ForeColor = Color.Orange Then
               Label1.ForeColor = Color.Orange
               Exit Sub
           End If
       End If
       If GetAsyncKeyState(Keys.Insert) = -32767 Then
           If Label1.Visible = False Then
               Label1.Visible = True
               Me.Show()
               Exit Sub
           End If
           If Label1.Visible = True Then
               Label1.Visible = False
               Me.Hide()
               Exit Sub
           End If
       End If
       If GetAsyncKeyState(Keys.Delete) = -32767 Then
           Application.Exit()
           Exit Sub
       End If
   End Sub

   Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
       If GetAsyncKeyState(Keys.Right) = -32767 Then
           If Label1.ForeColor = Color.Orange Then
               Label3.ForeColor = Color.Green
               Label3.Text = "[ON]"
               Timer3.Enabled = True
               Exit Sub
           End If
           If Label2.ForeColor = Color.Orange Then
               Label4.ForeColor = Color.Green
               Label4.Text = "[ON]"
               Timer4.Enabled = True
               Exit Sub
           End If
           If Label6.ForeColor = Color.Orange Then
               Label5.ForeColor = Color.Green
               Label5.Text = "[ON]"
               Timer5.Enabled = True
               Exit Sub
           End If

           If Label7.ForeColor = Color.Orange Then
               Label18.ForeColor = Color.Green
               Label18.Text = "[ON]"
               Timer6.Enabled = True
               Exit Sub
           End If

           If Label8.ForeColor = Color.Orange Then
               Label19.ForeColor = Color.Green
               Label19.Text = "[ON]"
               Timer7.Enabled = True
               Exit Sub
           End If

           If Label9.ForeColor = Color.Orange Then
               Label20.ForeColor = Color.Green
               Label20.Text = "[ON]"
               Timer8.Enabled = True
               Exit Sub
           End If

           If Label10.ForeColor = Color.Orange Then
               Label21.ForeColor = Color.Green
               Label21.Text = "[ON]"
               Timer9.Enabled = True
               Exit Sub
           End If

           If Label11.ForeColor = Color.Orange Then
               Label22.ForeColor = Color.Green
               Label22.Text = "[ON]"
               Timer10.Enabled = True
               Exit Sub
           End If

           If Label12.ForeColor = Color.Orange Then
               Label23.ForeColor = Color.Green
               Label23.Text = "[ON]"
               Timer11.Enabled = True
               Exit Sub
           End If

           If Label13.ForeColor = Color.Orange Then
               Label24.ForeColor = Color.Green
               Label24.Text = "[ON]"
               Timer12.Enabled = True
               Exit Sub
           End If

           If Label14.ForeColor = Color.Orange Then
               Label25.ForeColor = Color.Green
               Label25.Text = "[ON]"
               Timer13.Enabled = True
               Exit Sub
           End If

           If Label15.ForeColor = Color.Orange Then
               Label26.ForeColor = Color.Green
               Label26.Text = "[ON]"
               Timer14.Enabled = True
               Exit Sub
           End If

           If Label16.ForeColor = Color.Orange Then
               Label27.ForeColor = Color.Green
               Label27.Text = "[ON]"
               Timer15.Enabled = True
               Exit Sub
           End If

           If Label17.ForeColor = Color.Orange Then
               Label28.ForeColor = Color.Green
               Label28.Text = "[ON]"
               Timer16.Enabled = True
               Exit Sub
           End If
       End If

       If GetAsyncKeyState(Keys.Left) = -32767 Then
           If Label1.ForeColor = Color.Orange Then
               Label3.ForeColor = Color.Red
               Label3.Text = "[OFF]"
               Timer3.Enabled = False
               Exit Sub
           End If
           If Label2.ForeColor = Color.Orange Then
               Label4.ForeColor = Color.Red
               Label4.Text = "[OFF]"
               Timer4.Enabled = False
               Exit Sub
           End If
           If Label6.ForeColor = Color.Orange Then
               Label5.ForeColor = Color.Red
               Label5.Text = "[OFF]"
               Timer5.Enabled = False
               Exit Sub
           End If

           If Label7.ForeColor = Color.Orange Then
               Label18.ForeColor = Color.Red
               Label18.Text = "[OFF]"
               Timer6.Enabled = False
               Exit Sub
           End If

           If Label8.ForeColor = Color.Orange Then
               Label19.ForeColor = Color.Red
               Label19.Text = "[OFF]"
               Timer7.Enabled = False
               Exit Sub
           End If

           If Label9.ForeColor = Color.Orange Then
               Label20.ForeColor = Color.Red
               Label20.Text = "[OFF]"
               Timer8.Enabled = False
               Exit Sub
           End If

           If Label10.ForeColor = Color.Orange Then
               Label21.ForeColor = Color.Red
               Label21.Text = "[OFF]"
               Timer9.Enabled = False
               Exit Sub
           End If

           If Label11.ForeColor = Color.Orange Then
               Label22.ForeColor = Color.Red
               Label22.Text = "[OFF]"
               Timer10.Enabled = False
               Exit Sub
           End If

           If Label12.ForeColor = Color.Orange Then
               Label23.ForeColor = Color.Red
               Label23.Text = "[OFF]"
               Timer11.Enabled = False
               Exit Sub
           End If

           If Label13.ForeColor = Color.Orange Then
               Label24.ForeColor = Color.Red
               Label24.Text = "[OFF]"
               Timer12.Enabled = False
               Exit Sub
           End If

           If Label14.ForeColor = Color.Orange Then
               Label25.ForeColor = Color.Red
               Label25.Text = "[OFF]"
               Timer13.Enabled = False
               Exit Sub
           End If

           If Label15.ForeColor = Color.Orange Then
               Label26.ForeColor = Color.Red
               Label26.Text = "[OFF]"
               Timer14.Enabled = False
               Exit Sub
           End If

           If Label16.ForeColor = Color.Orange Then
               Label27.ForeColor = Color.Red
               Label27.Text = "[OFF]"
               Timer15.Enabled = False
               Exit Sub
           End If

           If Label17.ForeColor = Color.Orange Then
               Label28.ForeColor = Color.Red
               Label28.Text = "[OFF]"
               Timer16.Enabled = False
               Exit Sub
           End If
       End If
   End Sub

   Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
       WriteLong("WolfTeam.bin", Label29.Text + &H357E00, "2251829620")
   End Sub

   Private Sub Timer4_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer4.Tick
       WriteLong("WolfTeam.bin", Label29.Text + &H13ACF3, "1301090420")
   End Sub

   Private Sub Timer5_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer5.Tick
       WriteLong("WolfTeam.bin", Label29.Text + &HFE261, "12616719")
   End Sub

   Private Sub Timer6_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer6.Tick
       WriteLong("WolfTeam.bin", Label29.Text + &H1952F3, "3071218292")
   End Sub

   Private Sub Timer7_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer7.Tick
       WriteLong("WolfTeam.bin", Label29.Text + &H855D0, "1574503796")
   End Sub

   Private Sub Timer8_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer8.Tick
       WriteLong("WolfTeam.bin", Label29.Text + &H692478, "550")
   End Sub

   Private Sub Timer9_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer9.Tick
       WritePointerInteger("Wolfteam.bin", Label29.Text + &H61200C, "19601", &H18)
   End Sub

   Private Sub Timer10_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer10.Tick
       WriteLong("WolfTeam.bin", Label29.Text + &H128BC0, "2114045827")
   End Sub

   Private Sub Timer11_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer11.Tick
       WriteLong("WolfTeam.bin", Label29.Text + &H1232FE, "2257258100")
   End Sub

   Private Sub Timer12_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer12.Tick
       WriteLong("WolfTeam.bin", Label29.Text + &H1252FB, "1574503796")
   End Sub

   Private Sub Timer13_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer13.Tick
       WriteLong("WolfTeam.bin", Label30.Text + &H4D510, "5")
   End Sub

   Private Sub Timer14_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer14.Tick
       WriteLong("WolfTeam.bin", Label31.Text + &H1BD65, "378215541")
   End Sub

   Private Sub Timer15_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer15.Tick
       WriteLong("WolfTeam.bin", Label31.Text + &H71715, "1566441904")
   End Sub

   Private Sub Timer16_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer16.Tick
       WriteLong("WolfTeam.bin", Label31.Text + &HE073B, "3224568693")
   End Sub

   Private Sub Timer17_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer17.Tick
       Dim p As Process = Process.GetProcessesByName("WolfTeam.bin")(0)
       For Each moz As System.Diagnostics.ProcessModule In p.Modules
           If moz.FileName.IndexOf("csh") <> -1 Then
               Label29.Text = moz.BaseAddress.ToString
           End If
       Next
   End Sub

   Private Sub Timer18_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer18.Tick
       Dim p As Process = Process.GetProcessesByName("WolfTeam.bin")(0)
       For Each moz As System.Diagnostics.ProcessModule In p.Modules
           If moz.FileName.IndexOf("bin") <> -1 Then
               Label30.Text = moz.BaseAddress.ToString
           End If
       Next
   End Sub

   Private Sub Timer19_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer19.Tick
       Dim p As Process = Process.GetProcessesByName("WolfTeam.bin")(0)
       For Each moz As System.Diagnostics.ProcessModule In p.Modules
           If moz.FileName.IndexOf("obj") <> -1 Then
               Label31.Text = moz.BaseAddress.ToString
           End If
       Next
   End Sub
End Class

Emeğe Saygı +1Rep Cok Görmeyin
Son Düzenleme: 29.08.2016, 14:17:51, Düzenleyen: Retribution.

Kullanıcı İmzası
Seni Severim Seni Seveni`de Severim Seni Ben`den Daha Çok Seveni`de Kurşuna Dizerim
İmage
Paylaşım Tarihi: 11.06.2016, 02:00:26 #2
secolayabak Ağabey
Onaylı Uye
Status: Çevrimdışı Yorum Sayısı:317 Konu Sayısı:41 Üyelik Tarihi:15.04.2016 Rep Puanı: 30

Yararlı Konu Mu Sizce

Kullanıcı İmzası
Seni Severim Seni Seveni`de Severim Seni Ben`den Daha Çok Seveni`de Kurşuna Dizerim
İmage
Paylaşım Tarihi: 11.06.2016, 09:37:02 #3
COLDMAN Delikanlı
Kayıtlı Üye
Status: Çevrimdışı Yorum Sayısı:57 Konu Sayısı:3 Üyelik Tarihi:27.01.2016 Rep Puanı: 1

(11.06.2016, 02:00:26)secolayabak Nickli Kullanıcıdan Alıntı: linkleri görmek için giriş yapmanız. Yada üye olmanız gerekir. Yararlı Konu Mu Sizce

herkes biliyor artık ama olsun hak yememek lazım sagolsun paylşmış
Paylaşım Tarihi: 11.06.2016, 10:44:07 #4
ILoveMH Ağabey
Onaylı Uye
Status: Çevrimdışı Yorum Sayısı:161 Konu Sayısı:25 Üyelik Tarihi:03.04.2016 Rep Puanı: 3

kardeş takla harbiden çalışıyormu ?
Paylaşım Tarihi: 11.06.2016, 11:35:07 #5
*Mstkmlnr Fortune's Fool
Co-Admin
Status: Çevrimiçi Yorum Sayısı:359 Konu Sayısı:77 Üyelik Tarihi:17.08.2015 Rep Puanı: 884

yararlı konu teşekkürler
Paylaşım Tarihi: 11.06.2016, 11:37:26 #6
ILoveMH Ağabey
Onaylı Uye
Status: Çevrimdışı Yorum Sayısı:161 Konu Sayısı:25 Üyelik Tarihi:03.04.2016 Rep Puanı: 3

yaw hata veriyo ya 1 saatir kodladım emegime yazık ya HATA VERİYO Angry
Paylaşım Tarihi: 11.06.2016, 13:39:25 #7
fanatikeren12 Yeğen
Kayıtlı Üye
Status: Çevrimdışı Yorum Sayısı:6 Konu Sayısı:0 Üyelik Tarihi:20.12.2015 Rep Puanı: 0

HANGİ TUŞLARLA HAREKET EDİCEK
Paylaşım Tarihi: 12.06.2016, 00:18:46 #8
secolayabak Ağabey
Onaylı Uye
Status: Çevrimdışı Yorum Sayısı:317 Konu Sayısı:41 Üyelik Tarihi:15.04.2016 Rep Puanı: 30

(11.06.2016, 10:44:07)ILoveMH Nickli Kullanıcıdan Alıntı: linkleri görmek için giriş yapmanız. Yada üye olmanız gerekir. kardeş takla harbiden çalışıyormu ?

Bende Calışıyo Dene Sendede Calışır

Kullanıcı İmzası
Seni Severim Seni Seveni`de Severim Seni Ben`den Daha Çok Seveni`de Kurşuna Dizerim
İmage



Konu Kapalı






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

Konuyu görüntüleyenler:
1 Misafir