proje etiketine sahip kayıtlar gösteriliyor. Tüm kayıtları göster

7 Nisan 2018 Cumartesi

C++ ile D3D Menu Yapımı [Hazır Proje ve .dll]

Posted by Karolinax, on 10:10

C++ ile D3D Menu

Merhaba arkadaşlar bugün C++ ile nasıl D3D Menu yapılır ondan bahsedicem.

İlk olarak D3D nedir ve ne işe yarar ondan bahsedicem.

D3D Menu Nedir?


D3D Menu genelde oyunlarda hile yapımında kullanılır. Oyunun arka planında çalışır ve oyun sırasında sizi rahatsız etmeden çalışır. 

Şimdi D3D Menu nasıl yapılır ona geçelim.

Kaynak kodlar biraz fazla olduğu için txt dosyasına koyup link olarak sizlere vereceğim.

D3D'de Menu'deki yazıları değiştirme;


Menu.cpp ile yapılacaktır. Zaten siz projeyi görünce anlayacaksınız neyin nerden yapılacağını.

Menu'ye ek hile eklemek için veya silmek için ise;


Bunu ise Menu.h'den yapılacaktır.

Hile aktif edildiğinde ise;


Örnek Kod;

if(H4CK.Hileler.rapidfire == 1)
{
DWORD Ptr = Menu.CSH + 0x11CF5B;
DWORD Value = 1574503796;
WriteProcessMemory(Process, (LPVOID)Ptr, &Value, 4,NULL);
}

Yukarıda Rapid Fire == 1 ise yani Rapid Fire aktif ise aşağıdaki kodu çalıştır diyoruz ve aşağıdaki kod ise bildiğiniz WriteProccessMemory ve DWORD. Yukarıdaki hile ise Wolfteam adlı oyunda yapılan bir hiledir. İsterseniz Wolfteamda hile yapabilirsiniz ama siz ben başka oyunda hile yapmak istiyorum diyorsanız Yukarıdaki 

DWORD Ptr = Menu.CSH + 0x11CF5B;

Kodunda Menu.CSH ve + işaretini silerek yapabilirsiniz. Cheat Engine'den bulduğunuz pointer ve value'yi ise Pointeri : 0x11CF5B burdan Value'yi ise DWORD Value = 1574503796'den değiştirebilirsiniz.

Menu tasarımını ise Menu.h'den yapabilirsiniz.

ve projeyi kaydetmeye geldi. Şimdi size rar dosyasında vermiş olduğum İnclude ve Lib dosyalarını projenize eklemeniz gerekicek. Onlarıda aşağıdaki sırayı izleyerek yapabilirsiniz.





Kayıt edip çıkın. Şimdi ise projenizi deneyebilirsiniz. Proje Görünümü;


Böyle olacaktır. Siz tasarımını falan kendiniz değiştirebilirsiniz. 

Rar dosyasında hem Projeyi hemde projenizi deneyebileceğiniz D3D Test ve DLL İnjector ekleyeceğim.

Aşağıdaki linkde Projede kullanılan kodlar, hazır proje ve projeyi deneyebileceğiniz D3D Test yanındada DLL İnjector bulunmaktadır.

Tıkla İndir

Rar Şifresi : visualdersleri.blogspot.com

Eğer projede bir sorun veya kafanıza takılan bir sorun olursa yorumlarda belirtiniz.



29 Kasım 2017 Çarşamba

VB.Net ile D3D Menü yapımı

Posted by Karolinax, on 08:14
Merhaba arkadaşlar bugün sizlere Visual Basic'de D3D Menü kodlamasını göstereceğim.


İlk olarak formumuza



6 Adet Label

2 Adet Timer

Timer enabled = True olucaktır 'Her iki Timerde'

Label1 Rengi = Orange
Label2 ve 6 = White
Label3-4-5 = Red Olucaktır.

Label1 = İstediğinizi Yazın.
Label2 = İstediğinizi Yazın.
Label6 = İstediğinizi Yazın.
Label3 = [OFF]
Label4 = [OFF]
Label5 = [OFF]
Ekleyin.


Kullanılan Kodlar;
Public Class Form1 ' Form kaçsa yazın
    Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
        Try
            Interaction.AppActivate("Wolfteam.bin") ' çalışacak uygulama !! cemal !!
            Me.TopMost = True
        Catch
            Me.TopMost = True
        End Try
    End Sub

    Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As EventArgs) Handles Timer1.Tick
        If GetAsyncKeyState(Keys.Down) = -32767 Then


            If Label1.ForeColor = Color.Orange Then
                Label1.ForeColor = Color.White
                Label2.ForeColor = Color.Orange
                Exit Sub
            End If
            
            If Label2.ForeColor = Color.Orange Then
                Label2.ForeColor = Color.White
                Label6.ForeColor = Color.Orange
                Exit Sub
            End If
            If Label6.ForeColor = Color.Orange Then
                Label6.ForeColor = Color.Orange
                Exit Sub
            End If
        End If

        If GetAsyncKeyState(Keys.Up) = -32767 Then
            If Label2.ForeColor = Color.Orange Then
                Label2.ForeColor = Color.White
                Label1.ForeColor = Color.Orange
                Exit Sub
            End If

            If Label1.ForeColor = Color.Orange Then
                Label1.ForeColor = Color.Orange

            End If
            If Label6.ForeColor = Color.Orange Then
                Label6.ForeColor = Color.White
                Label2.ForeColor = Color.Orange
                Exit Sub
            End If

            If Label2.ForeColor = Color.Orange Then
                Label2.ForeColor = Color.Orange

            End If

        End If
        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
    End Sub

    Private Sub Timer2_Tick(ByVal sender As Object, ByVal e As EventArgs) Handles Timer2.Tick
        If GetAsyncKeyState(Keys.Right) = -32767 Then
            If Label1.ForeColor = Color.Orange Then
                Label3.ForeColor = Color.White
                Label3.Text = "[ON]"
                Exit Sub
            End If
            If Label2.ForeColor = Color.Orange Then
                Label4.ForeColor = Color.White
                Label4.Text = "[ON]"
                Exit Sub
            End If
            If Label6.ForeColor = Color.Orange Then
                Label5.ForeColor = Color.White
                Label5.Text = "[ON]"
                Exit Sub
            End If
        End If

        If GetAsyncKeyState(Keys.Left) = -32767 Then
            If Label1.ForeColor = Color.Orange Then
                Label3.ForeColor = Color.Red
                Label3.Text = "[OFF]"
                Exit Sub
            End If
            If Label2.ForeColor = Color.Orange Then
                Label4.ForeColor = Color.Red
                Label4.Text = "[OFF]"
                Exit Sub
            End If
            If Label6.ForeColor = Color.Orange Then
                Label5.ForeColor = Color.Red
                Label5.Text = "[OFF]"
                Exit Sub
            End If
        End If
    End Sub
End Class


Kaydol: Kayıtlar ( Atom )
b2b yazılım vois media