• Üyelik paylaşımı yasaktır! Hesabınızı başkalarına vermeyin! Hesap paylaşımları yasaklama ile sonuçlanacaktır.

wolftü D3D Hile Yapımı

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

#Eq1NoX

THIS IS THE WAY
Moderator
Katılım
21 Eki 2015
Mesajlar
4,844
Beğeni Puanı
3,565
[font=Roboto, sans-serif]"Form1"'in Özellikleri ;[/FONT]
[font=Roboto, sans-serif]ShowIcon = False[/FONT]
[font=Roboto, sans-serif]FormBorderStyle = None[/FONT]
[font=Roboto, sans-serif]BackColor = Black[/FONT]
[font=Roboto, sans-serif]Sıralaması olsun[/FONT]
[font=Roboto, sans-serif][CrossHair] - > Label 1[/FONT]
[font=Roboto, sans-serif][Sınırsız Kurt Topu - > Label 2[/FONT]
[font=Roboto, sans-serif][Combo Hilesi] - > Label 3[/FONT]
[font=Roboto, sans-serif]Üç tanede bunkarın yanına durumunu belirtmek için lazım yani ;[/FONT]
[font=Roboto, sans-serif][OFF] - > Label 4[/FONT]
[font=Roboto, sans-serif][OFF] - > Label 5[/FONT]
[font=Roboto, sans-serif][OFF] - > Label 6[/FONT]
[font=Roboto, sans-serif]gibi. Şimdi 1. Label "ForeColor"' u "Blue" olsun 2 ve 3 ki ise "Yellow" olsun. Label 4, 5 ve 6 nın ki ise "red" olsun.[/FONT]
[font=Roboto, sans-serif]Şimdi menümüzün tasarımı tamam sıra da Timer lar var. Toplamda 6 Timer'e ihtiyacımız var. Açıklaması;[/FONT]
[font=Roboto, sans-serif]Timer1 - > Menüde aşağı ve yukarı hareket etmemizi sağlaması için lazım.[/FONT]
[font=Roboto, sans-serif]Timer2 - > Yine menüde sağa ve sola yani özelliklerimizi açmamıza ve kapamamıza yarayacak.[/FONT]
[font=Roboto, sans-serif]Timer3 - > Oyun içi "CrossHair" hilesinin kodları yazılacak.[/FONT]
[font=Roboto, sans-serif]Timer4 - > Bunada "Sınırsız Kurt Topu" hilesinin kodları yazılacak.[/FONT]
[font=Roboto, sans-serif]Timer5 - > Tabiki buna da "Combo Hilesi" nin kodları yazılacak.[/FONT]
[font=Roboto, sans-serif]Timer6 - > Oyunda hilemizin gözükmesini sağlayacak.[/FONT]
[font=Roboto, sans-serif]Timer 3, 4 ve 5'in "Enabled" leri "False" olacak. 1, 2 ve 6'nın ise "True" olması lazım.[/FONT]
[font=Roboto, sans-serif]------------------------- Bölüm - 2 ---------------------------[/FONT]
[font=Roboto, sans-serif]Fazla söze gerek yok. Hemen "ReadWritingMemory.vb" dosyasını hilemize okutmalıyız.[/FONT]
[font=Roboto, sans-serif]Sol Yukarıdan "Project" > "Add Exiting Item..." > "ReadWritingMemory.vb" dosyasını gösteriniz ve "add"[/FONT]
[font=Roboto, sans-serif]butonuna tıklayınız.[/FONT]
[font=Roboto, sans-serif]Güncel wolftü Adresleri ;[/FONT]
[font=Roboto, sans-serif]CrossHair : 3463F348 Valuesi = 99 , 20 ... İstediğinizi yapabilirsiniz.[/FONT]
[font=Roboto, sans-serif]Sınırsız Kurt Topu : 346ECB0 Valuesi = 1[/FONT]
[font=Roboto, sans-serif]Combo Hilesi : 3463EB24 Valuesi = Siz kaçlı yapmak isterseniz bence 99[/FONT]
[font=Roboto, sans-serif]Şimdi 3, 4 ve 5. Timerlardan başlayalım.[/FONT]
[font=Roboto, sans-serif]Timer3 (CrossHair) Kodları =[/FONT]
[font=Roboto, sans-serif]Kod:[/FONT]

[font=Roboto, sans-serif]Kod:[/FONT]
[font=Roboto, sans-serif]WriteInteger("wolftü.bin", &H3453F348, 20)[/FONT]

[font=Roboto, sans-serif]Timer4 (Sınırsız Kurt Topu) Kodları =[/FONT]
[font=Roboto, sans-serif]Kod:[/FONT]
[font=Roboto, sans-serif]Kod:[/FONT]
[font=Roboto, sans-serif]WriteInteger("wolftü.bin", &H3463ECB0, 1)[/FONT]

[font=Roboto, sans-serif]Timer5 (Combo Hilesi) Kodları =[/FONT]
[font=Roboto, sans-serif]Kod:[/FONT]
[font=Roboto, sans-serif]Kod:[/FONT]
[font=Roboto, sans-serif]WriteInteger("wolftü.bin", &H3463EB24, 99)[/FONT]

[font=Roboto, sans-serif]Siz isterseniz başka hileler hatta başka oyunlarda yapabilirsiniz tanımını yapmak gerekirse ;[/FONT]
[font=Roboto, sans-serif]WriteInteger("Oyun Pencere İsmi", &H Adres Yeri , Valuesi, Mesela Scor: 99999999 Olsun gibi)[/FONT]
[font=Roboto, sans-serif]Yavaşça Menünün kodlamasına başlayalım[/FONT]
[font=Roboto, sans-serif]Timer6'nın kodları : Elle yazmanızı tavsiye ederim.[/FONT]

[font=Roboto, sans-serif]Kod:[/FONT]
[font=Roboto, sans-serif]Kod:[/FONT]
[font=Roboto, sans-serif]Try[/FONT]
[font=Roboto, sans-serif]Interaction.AppActivate("wolftü.bin")[/FONT]
[font=Roboto, sans-serif]Me.TopMost = True[/FONT]
[font=Roboto, sans-serif]Catch[/FONT]
[font=Roboto, sans-serif]Me.TopMost = True[/FONT]
[font=Roboto, sans-serif]End Try[/FONT]
[font=Roboto, sans-serif]System.Windows.Forms.Cursor.Hide()[/FONT]

[font=Roboto, sans-serif]ve "Public Class Form1" in altına:[/FONT]
[font=Roboto, sans-serif]Private Declare Function GetAsyncKeyState Lib "user32 (ByVal vKey As Long) As Integer[/FONT]
[font=Roboto, sans-serif]yapıştıralım.[/FONT]
[font=Roboto, sans-serif]Timer1 ' nın kodları :[/FONT]

[font=Roboto, sans-serif]Kod:[/FONT]
[font=Roboto, sans-serif]Kod:[/FONT]
[font=Roboto, sans-serif]' aşağı tuşunun çalışması için[/FONT]
[font=Roboto, sans-serif]'-------------------başla-------------------[/FONT]
[font=Roboto, sans-serif]If GetAsyncKeyState(Keys.Down) = -32767 Then[/FONT]
[font=Roboto, sans-serif]If Label1.ForeColor = Color.Blue Then[/FONT]
[font=Roboto, sans-serif]Label1.ForeColor = Color.Yellow[/FONT]
[font=Roboto, sans-serif]Label2.ForeColor = Color.Blue[/FONT]
[font=Roboto, sans-serif]Exit Sub[/FONT]
[font=Roboto, sans-serif]EndIf[/FONT]
[font=Roboto, sans-serif]If Label2.ForeColor = Color.Blue Then[/FONT]
[font=Roboto, sans-serif]Label2.ForeColor = Color.Yellow[/FONT]
[font=Roboto, sans-serif]Label3.ForeColor = Color.Blue[/FONT]
[font=Roboto, sans-serif]Exit Sub[/FONT]
[font=Roboto, sans-serif]End If[/FONT]
[font=Roboto, sans-serif]If Label3.ForeColor = Color.Blue Then[/FONT]
[font=Roboto, sans-serif]Label3.ForeColor = Color.Blue[/FONT]
[font=Roboto, sans-serif]Label1.ForeColor = Color.Yellow[/FONT]
[font=Roboto, sans-serif]End If[/FONT]
[font=Roboto, sans-serif]End If[/FONT]
[font=Roboto, sans-serif]'----------------------bitiş-------------------[/FONT]
[font=Roboto, sans-serif]' yukarı tuşunun çalışması için[/FONT]
[font=Roboto, sans-serif]'-------------------başla-------------------[/FONT]
[font=Roboto, sans-serif]If Label1.ForeColor = Color.Blue Then[/FONT]
[font=Roboto, sans-serif]Label1.ForeColor = Color.Yellow[/FONT]
[font=Roboto, sans-serif]Label3.ForeColor = Color.Blue[/FONT]
[font=Roboto, sans-serif]End If[/FONT]
[font=Roboto, sans-serif]If Label2.ForeColor = Color.Blue Then[/FONT]
[font=Roboto, sans-serif]Label2.ForeColor = Color.Yellow[/FONT]
[font=Roboto, sans-serif]Label1.ForeColor = Color.Blue[/FONT]
[font=Roboto, sans-serif]End If[/FONT]
[font=Roboto, sans-serif]If GetAsyncKeyState(Keys.Up) = -32767 Then[/FONT]
[font=Roboto, sans-serif]If Label3.ForeColor = Color.Blue Then[/FONT]
[font=Roboto, sans-serif]Label3.ForeColor = Color.Yellow[/FONT]
[font=Roboto, sans-serif]Label2.ForeColor = Color.Blue[/FONT]
[font=Roboto, sans-serif]Exit Sub[/FONT]
[font=Roboto, sans-serif]End If[/FONT]
[font=Roboto, sans-serif]End If[/FONT]
[font=Roboto, sans-serif]'----------------------bitiş-------------------[/FONT]

[font=Roboto, sans-serif]bu kodlarda bu kadar. Şimdi Timer2'ye geçmeden önce hilemizi[/FONT]
[font=Roboto, sans-serif]kapatma ve gizleme tuşlarının olmasını istiyorsanız hemen yeni bir Timer ekleyin. Kodları da şöyle olacak ;[/FONT]
[font=Roboto, sans-serif]Timer7'nin kodları[/FONT]

[font=Roboto, sans-serif]Kod:[/FONT]
[font=Roboto, sans-serif]Kod:[/FONT]
[font=Roboto, sans-serif]If GetAsyncKeyState(Keys.Insert) = -32767 Then[/FONT]
[font=Roboto, sans-serif]If Label1.Visible = False Then[/FONT]
[font=Roboto, sans-serif]Label1.Visible = True[/FONT]
[font=Roboto, sans-serif]Me.Show()[/FONT]
[font=Roboto, sans-serif]Exit Sub[/FONT]
[font=Roboto, sans-serif]End If[/FONT]
[font=Roboto, sans-serif]If Label1.Visible = True Then[/FONT]
[font=Roboto, sans-serif]Label1.Visible = False[/FONT]
[font=Roboto, sans-serif]Me.Hide()[/FONT]
[font=Roboto, sans-serif]Exit Sub[/FONT]
[font=Roboto, sans-serif]End If[/FONT]
[font=Roboto, sans-serif]End If[/FONT]
[font=Roboto, sans-serif]If GetAsyncKeyState(Keys.Delete) = -32767 Then[/FONT]
[font=Roboto, sans-serif]APPLİCATİON.Exit()[/FONT]
[font=Roboto, sans-serif]Exit Sub[/FONT]
[font=Roboto, sans-serif]End If[/FONT]

[font=Roboto, sans-serif]----->[/FONT]
[font=Roboto, sans-serif]Burada [DELETE] tuşu hileyi kapatırken [INSERT] tuşu ise gizlemenizi ve yeniden açmanızı sağlar şimdi Timer2'nin kodlarına geçebiliriz.[/FONT]
[font=Roboto, sans-serif]Timer2' nin kodları :[/FONT]

[font=Roboto, sans-serif]Kod:[/FONT]
[font=Roboto, sans-serif]Kod:[/FONT]
[font=Roboto, sans-serif]' sağ tuşunun çalışması için[/FONT]
[font=Roboto, sans-serif]'-------------------başla-------------------[/FONT]
[font=Roboto, sans-serif]If GetAsyncKeyState(Keys.Right) = -32767 Then[/FONT]
[font=Roboto, sans-serif]If Label1.ForeColor = Color.Blue Then[/FONT]
[font=Roboto, sans-serif]Label4.ForeColor = Color.Green[/FONT]
[font=Roboto, sans-serif]Label4.Text = "[ON]"[/FONT]
[font=Roboto, sans-serif]Timer3.Enabled = True[/FONT]
[font=Roboto, sans-serif]Exit Sub[/FONT]
[font=Roboto, sans-serif]End If[/FONT]
[font=Roboto, sans-serif]If Label2.ForeColor = Color.Blue Then[/FONT]
[font=Roboto, sans-serif]Label5.ForeColor = Color.Green[/FONT]
[font=Roboto, sans-serif]Label5.Text = "[ON]"[/FONT]
[font=Roboto, sans-serif]Timer4.Enabled = True[/FONT]
[font=Roboto, sans-serif]Exit Sub[/FONT]
[font=Roboto, sans-serif]End If[/FONT]
[font=Roboto, sans-serif]If Label3.ForeColor = Color.Blue Then[/FONT]
[font=Roboto, sans-serif]Label6.ForeColor = Color.Green[/FONT]
[font=Roboto, sans-serif]Label6.Text = "[ON]"[/FONT]
[font=Roboto, sans-serif]End If[/FONT]
[font=Roboto, sans-serif]End If[/FONT]
[font=Roboto, sans-serif]'----------------------bitiş-------------------[/FONT]
[font=Roboto, sans-serif]' sol tuşunun çalışması için[/FONT]
[font=Roboto, sans-serif]'-------------------başla-------------------[/FONT]
[font=Roboto, sans-serif]If GetAsyncKeyState(Keys.Left) = -32767 Then[/FONT]
[font=Roboto, sans-serif]If Label1.ForeColor = Color.Blue Then[/FONT]
[font=Roboto, sans-serif]Label4.ForeColor = Color.Red[/FONT]
[font=Roboto, sans-serif]Label4.Text = "[OFF]"[/FONT]
[font=Roboto, sans-serif]Timer3.Enabled = False[/FONT]
[font=Roboto, sans-serif]Exit Sub[/FONT]
[font=Roboto, sans-serif]End If[/FONT]
[font=Roboto, sans-serif]If Label2.ForeColor = Color.Blue Then[/FONT]
[font=Roboto, sans-serif]Label5.ForeColor = Color.Red[/FONT]
[font=Roboto, sans-serif]Label5.Text = "[OFF]"[/FONT]
[font=Roboto, sans-serif]Timer4.Enabled = False[/FONT]
[font=Roboto, sans-serif]Exit Sub[/FONT]
[font=Roboto, sans-serif]End If[/FONT]
[font=Roboto, sans-serif]If Label3.ForeColor = Color.Blue Then[/FONT]
[font=Roboto, sans-serif]Label6.ForeColor = Color.Red[/FONT]
[font=Roboto, sans-serif]Label6.Text = "[OFF]"[/FONT]
[font=Roboto, sans-serif]Timer5.Enabled = False[/FONT]
[font=Roboto, sans-serif]End If[/FONT]
[font=Roboto, sans-serif]'----------------------bitiş-------------------[/FONT]
[font=Roboto, sans-serif]End If[/FONT]

[font=Roboto, sans-serif]---> Son <---[/FONT]

[font=Roboto, sans-serif]Evet işte bu kada sizinle artık bir hileniz var.[/FONT]
[font=Roboto, sans-serif]+1 rep atmayı unutmayınn[/FONT]
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...


Üst Alt