Çalışmıyor Wolftü D3D Hile Yapımı


Memory Mezarlığı    Forumda Gereksiz Bulanan veya Artık İşlevi Olmayan Konuların Taşındığı Kategori ( Bi Fatiha Okumadan Geçmeyiniz :) )

Yazar: Ufuk    144 Yorum    7598 Görüntüleme
Konu Kapalı

Paylaşım Tarihi: 02.02.2016, 14:48:28 #1
Ufuk #BEY DİCEKSİNİZ
Griffin Premium
Status: Dışarıda Yorumları:1,128 Konuları:273 Kayıt Tarihi:30.12.2015 Rep Puanı: 545

yazdıklarımı uygularsanız artık sizinde kendinize ait bir hileniz olur
[hide]"Form1"'in Özellikleri ;
ShowIcon = False
FormBorderStyle = None
BackColor = Black
Sıralaması olsun
[CrossHair] - > Label 1
[Sınırsız Kurt Topu - > Label 2
[Combo Hilesi] - > Label 3
Üç tanede bunkarın yanına durumunu belirtmek için lazım yani ;
[OFF] - > Label 4
[OFF] - > Label 5
[OFF] - > Label 6
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.
Şimdi menümüzün tasarımı tamam sıra da Timer lar var. Toplamda 6 Timer'e ihtiyacımız var. Açıklaması;
Timer1 - > Menüde aşağı ve yukarı hareket etmemizi sağlaması için lazım.
Timer2 - > Yine menüde sağa ve sola yani özelliklerimizi açmamıza ve kapamamıza yarayacak.
Timer3 - > Oyun içi "CrossHair" hilesinin kodları yazılacak.
Timer4 - > Bunada "Sınırsız Kurt Topu" hilesinin kodları yazılacak.
Timer5 - > Tabiki buna da "Combo Hilesi" nin kodları yazılacak.
Timer6 - > Oyunda hilemizin gözükmesini sağlayacak.
Timer 3, 4 ve 5'in "Enabled" leri "False" olacak. 1, 2 ve 6'nın ise "True" olması lazım.
------------------------- Bölüm - 2 ---------------------------
Fazla söze gerek yok. Hemen "ReadWritingMemory.vb" dosyasını hilemize okutmalıyız.
Sol Yukarıdan "Project" > "Add Exiting Item..." > "ReadWritingMemory.vb" dosyasını gösteriniz ve "add"
butonuna tıklayınız.
Güncel Wolftü Adresleri ;
CrossHair : 3463F348 Valuesi = 99 , 20 ... İstediğinizi yapabilirsiniz.
Sınırsız Kurt Topu : 346ECB0 Valuesi = 1
Combo Hilesi : 3463EB24 Valuesi = Siz kaçlı yapmak isterseniz bence 99
Şimdi 3, 4 ve 5. Timerlardan başlayalım.
Timer3 (CrossHair) Kodları =
Kod:

Kod:

WriteInteger("Wolftü.bin", &H3453F348, 20)


Timer4 (Sınırsız Kurt Topu) Kodları =
Kod:

Kod:

WriteInteger("Wolftü.bin", &H3463ECB0, 1)


Timer5 (Combo Hilesi) Kodları =
Kod:

Kod:

WriteInteger("Wolftü.bin", &H3463EB24, 99)


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

Kod:

Kod:

Try
Interaction.AppActivate("Wolftü.bin")
Me.TopMost = True
Catch
Me.TopMost = True
End Try
System.Windows.Forms.Cursor.Hide()


ve "Public Class Form1" in altına:
Private Declare Function GetAsyncKeyState Lib "user32 (ByVal vKey As Long) As Integer
yapıştıralım.
Timer1 ' nın kodları :

Kod:

Kod:

' aşağı tuşunun çalışması için
'-------------------başla-------------------
If GetAsyncKeyState(Keys.Down) = -32767 Then
If Label1.ForeColor = Color.Blue Then
Label1.ForeColor = Color.Yellow
Label2.ForeColor = Color.Blue
Exit Sub
EndIf
If Label2.ForeColor = Color.Blue Then
Label2.ForeColor = Color.Yellow
Label3.ForeColor = Color.Blue
Exit Sub
End If
If Label3.ForeColor = Color.Blue Then
Label3.ForeColor = Color.Blue
Label1.ForeColor = Color.Yellow
End If
End If
'----------------------bitiş-------------------
' yukarı tuşunun çalışması için
'-------------------başla-------------------
If Label1.ForeColor = Color.Blue Then
Label1.ForeColor = Color.Yellow
Label3.ForeColor = Color.Blue
End If
If Label2.ForeColor = Color.Blue Then
Label2.ForeColor = Color.Yellow
Label1.ForeColor = Color.Blue
End If
If GetAsyncKeyState(Keys.Up) = -32767 Then
If Label3.ForeColor = Color.Blue Then
Label3.ForeColor = Color.Yellow
Label2.ForeColor = Color.Blue
Exit Sub
End If
End If
'----------------------bitiş-------------------


bu kodlarda bu kadar. Şimdi Timer2'ye geçmeden önce hilemizi
kapatma ve gizleme tuşlarının olmasını istiyorsanız hemen yeni bir Timer ekleyin. Kodları da şöyle olacak ;
Timer7'nin kodları

Kod:

Kod:

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
APPLİCATİON.Exit()
Exit Sub
End If


----->
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.
Timer2' nin kodları :

Kod:

Kod:

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


---> Son <---
Evet işte bu kada sizinle artık bir hileniz var kendinize iyi bakın.


GEREKEN PROGRAMLAR

Write momory write integer indir[Tıkla]
Tıkla Visual Studio İndir
*****************************************************
[/hide]

Kullanıcı İmzası
m32qBP.jpg

Paylaşım Tarihi: 02.02.2016, 14:50:53 #2
NickBeLiRSiZZ Old Mod.
Onaylı Uye
Status: Çevrimdışı Yorumları:293 Konuları:48 Kayıt Tarihi:12.01.2016 Rep Puanı: 23

+Yaralı Saol Big Grin
Edit: Video'lu anlatım eklesen iyi olur bn anladımda diğerleri neyapacak Big Grin
Son Düzenleme: 02.02.2016, 14:53:09, Düzenleyen: NickBeLiRSiZZ.

Kullanıcı İmzası
''İnsan Yükselince Kendini Bişi Zanneder''

-Adolf Hitler.


                    

[img=0x450]https://media.giphy.com/media/MrYqi6NBoMGbe/giphy.gif[/img]

Paylaşım Tarihi: 02.02.2016, 14:52:44 #3
HileciJojuk Yeğen
Aktif Üye
Status: Çevrimdışı Yorumları:8 Konuları:1 Kayıt Tarihi:02.02.2016 Rep Puanı: 0

bakakkkkkk

Paylaşım Tarihi: 02.02.2016, 15:11:56 #4
Bycehennem66 Cezalı Üye
Cezalı Üye
Status: Çevrimdışı Yorumları:12 Konuları:0 Kayıt Tarihi:16.12.2015

Bakalım...

Paylaşım Tarihi: 02.02.2016, 15:14:26 #5
onur5051 Delikanlı
Onaylı Uye
Status: Çevrimdışı Yorumları:117 Konuları:15 Kayıt Tarihi:21.01.2016 Rep Puanı: 3

bakalım .

Kullanıcı İmzası
gZ102b.jpg

4bv5jG.gif

Paylaşım Tarihi: 02.02.2016, 15:22:18 #6
ertubatu277 Yeğen
Aktif Üye
Status: Çevrimdışı Yorumları:27 Konuları:1 Kayıt Tarihi:31.12.2015 Rep Puanı: 0

teşşekkürler

Paylaşım Tarihi: 02.02.2016, 15:23:55 #7
slowbeta12345 Delikanlı
Aktif Üye
Status: Çevrimdışı Yorumları:71 Konuları:1 Kayıt Tarihi:29.01.2016 Rep Puanı: 1

Bakalımm

Paylaşım Tarihi: 02.02.2016, 16:08:51 #8
sgsgg Cezalı Üye
Cezalı Üye
Status: Çevrimdışı Yorumları:2 Konuları:0 Kayıt Tarihi:02.02.2016

Bakalımm




Önceki Konu Sonraki Konu

Konu Kapalı




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

Konuyu Okuyanlar:
1 Ziyaretçi