Seçkin Üye
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
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
Emeğe Saygı +1Rep Cok Görmeyin
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("wolftü.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("wolftü.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("wolftü.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("wolftü.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("wolftü.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("wolftü.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("wolftü.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("wolftü.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("wolftü.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("wolftü.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("wolftü.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("wolftü.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("wolftü.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("wolftü.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("wolftü.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("wolftü.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("wolftü.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("wolftü.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 ClassEmeğe Saygı +1Rep Cok Görmeyin