Çalışmıyor Wolfteam 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    145 Yorum    5878 Görüntüleme
  • 1 Oy - 5 Yüzde
Konu Kapalı

Paylaşım Tarihi: 02.02.2016, 14:48:28 #1
Ufuk #ЦFЦҚ BEY
*****
Moderatör
Status: Dışarıda Yorum Sayısı:962 Konu Sayısı:254 Üyelik Tarihi:30.12.2015 Rep Puanı: 528

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 Wolfteam 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:

Kod:
WriteInteger("Wolfteam.bin", &H3453F348, 20)


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

Kod:

Kod:
WriteInteger("Wolfteam.bin", &H3463ECB0, 1)


Timer5 (Combo Hilesi) Kodları =
Kod:

Kod:

Kod:
WriteInteger("Wolfteam.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:

Kod:
Try
Interaction.AppActivate("Wolfteam.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:

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:

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:

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

linkleri görmek için giriş yapmanız. Yada üye olmanız gerekir.
linkleri görmek için giriş yapmanız. Yada üye olmanız gerekir.
*****************************************************
[/hide]

Kullanıcı İmzası
q41pJR.gif
Paylaşım Tarihi: 02.02.2016, 14:50:53 #2
NickBeLiRSiZZ Old Mod.
Onaylı Uye
Status: Çevrimdışı Yorum Sayısı:296 Konu Sayısı:48 Üyelik Tarihi:12.01.2016 Rep Puanı: 21

+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
Kayıtlı Üye
Status: Çevrimdışı Yorum Sayısı:8 Konu Sayısı:1 Üyelik 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ışı Yorum Sayısı:12 Konu Sayısı:0 Üyelik Tarihi:16.12.2015

Bakalım...
Paylaşım Tarihi: 02.02.2016, 15:14:26 #5
onur5051 Delikanlı
Onaylı Uye
Status: Çevrimdışı Yorum Sayısı:125 Konu Sayısı:16 Üyelik Tarihi:21.01.2016 Rep Puanı: 3

bakalım .

Kullanıcı İmzası
İmage

İmage
Paylaşım Tarihi: 02.02.2016, 15:22:18 #6
ertubatu277 Yeğen
Kayıtlı Üye
Status: Çevrimdışı Yorum Sayısı:24 Konu Sayısı:1 Üyelik Tarihi:31.12.2015 Rep Puanı: 0

teşşekkürler
Paylaşım Tarihi: 02.02.2016, 15:23:55 #7
slowbeta12345 Delikanlı
Kayıtlı Üye
Status: Çevrimdışı Yorum Sayısı:70 Konu Sayısı:1 Üyelik 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ışı Yorum Sayısı:2 Konu Sayısı:0 Üyelik Tarihi:02.02.2016

Bakalımm



Konu Kapalı






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

Konuyu görüntüleyenler:
1 Misafir