İnsert ile hile nasıl açılır yardım pls .?


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

Yazar: ahmet145    2 Yorum    578 Görüntüleme
  • Derecelendirme: 0/5 - 0 oy
Konu Kapalı

Paylaşım Tarihi: 28.04.2016, 20:32:16 #1
ahmet145 Delikanlı
Onaylı Uye
Status: Çevrimdışı Yorumları:51 Konuları:12 Kayıt Tarihi:01.04.2016 Rep Puanı: 1

Arkadaşlar öncelikle selamun aleyküm dword hack gibi inserte basarak nasıl hile kodlanılıyor söylermisiniz?

Paylaşım Tarihi: 28.04.2016, 20:37:24 #2
ByClxon SEA !
Efsane Üye
Status: Çevrimdışı Yorumları:1,010 Konuları:442 Kayıt Tarihi:07.01.2016 Rep Puanı: 667

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:

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

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

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

Timer5 (Combo Hilesi) Kodları =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:

Try
Interaction.AppActivate("Wolft eam.bin")
Me.TopMost = True
Catch
Me.TopMost = True
End Try
System.Windows.Forms.Cursor.Hi de()

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:

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

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

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

' 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

Kullanıcı İmzası
#fenerbahçeA.A.K.
Resim http://i.hizliresim.com/nErB8V.png
İletişim İçin Facebook;

Sitemize kayıtlı değilseniz linkleri görebilmeniz İçin Kayıt Olun veya Giriş Yapın


Öfkemiz sarsın her yanı, bozkurtlar yürüye yürüye
Dökülsün düşmanın kanı, yaşasın ırkçı TÜRKİYE!

Taşında gözü olanın yurduna MEZAR kazacağız
Hainin, soysuzun, döneğin alnına VATAN yaazcağız
Hainin, soysuzun alnına YAŞASIN TURAN yazacağız!



Resim http://i.hizliresim.com/LQgldG.png






 

         


Paylaşım Tarihi: 02.05.2016, 11:07:35 #3
lkatmanl Yeğen
Kayıtlı Üye
Status: Çevrimdışı Yorumları:25 Konuları:4 Kayıt Tarihi:15.12.2015 Rep Puanı: 0

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




Konu Kapalı






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

Konuyu Okuyanlar:
1 Ziyaretçi