Wolfteam D3D Hile Yapımı


C ve C++ Programlama    C ve C++ Programlama İle İlgili Paylaşım Kategorisi

Yazar: sonerq26    1 Yorum    877 Görüntüleme
  • 0 Oy - 0 Yüzde

Paylaşım Tarihi: 27.03.2016, 10:49:01 #1
sonerq26 (̅_̅_̅_̅(̅_̅_̅_̅_̅_̅_̅_̅_̅_̅_̅()ڪے~
Cezalı Üye
Status: Çevrimdışı Yorum Sayısı:220 Konu Sayısı:90 Üyelik Tarihi:21.10.2015

"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:
WriteInteger("Wolfteam.bin", &H3453F348, 20)

Timer4 (Sınırsız Kurt Topu) Kodları =
Kod:
Kod:
WriteInteger("Wolfteam.bin", &H3463ECB0, 1)

Timer5 (Combo Hilesi) Kodları =
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:
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:
' 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.
+1 rep atmayı unutmayınn
Paylaşım Tarihi: 28.03.2016, 21:56:07 #2
Protable Cezalı Üye
Cezalı Üye
Status: Çevrimdışı Yorum Sayısı:84 Konu Sayısı:4 Üyelik Tarihi:28.08.2015

#Lock Vb.net bu Big Grin









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

Konuyu görüntüleyenler:
1 Misafir