Arkadaslar Cheat Engine de kodları buluyorum ama ben bunu bi program haline getirmek istiyorum nasıl yapabilirim ?
Vb6 + Cheat Engine
- Konuyu başlatan HacKer CriminaL
- Başlangıç tarihi
İlk olarak Başlat>Programlar>Oyunlar>Mayın Tarlası konumundaki Mayın Tarlası oyunumuzu açıyoruz. Daha sonra Cheat Engineyi açıyoruz(farklı bir memory searcher kullanıyorsanız onu açın,örneklerde Cheat Engine'den ekran görüntüleri kullanılacaktır)
Bu ikona tıklıyoruz ve çıkan listeden winmine.exe yi seçiyoruz(mayın tarlasının exe adı).Daha sonra Mayın Tarlasından yeni bir oyun başlatıyoruz.
10 rakamını gördünüzmü.Burdaki rakam bayrak sayımızı gösteriyor.Şimdi Cheat Engineye dönüyoruz ve 'Value' kutucuğuna 10 yazıyoruz-scan type Exact value,value type ise 4 byte kalıyor- ve 'First Scan' butonuna tıklıyoruz.Sol taraftaki listede birsürü adres çıktı değilmi.Bu adresler 10 değerinin bulunduğu yerlerdir.Bende 103 değer çıktı.Listede 103 değer var fakat bize 1 değer lazım.Bu arama işlemi sırasındaki amacımız değer sayısını en aza düşürebilmek.Onun için mayın tarlasında herhangi bir kutucuğa sağ tıkla bayrak koyuyoruz böylece bayrak sayımız 9 a düşüyor yani değişmiş oluyor.Şimdi Cheat Engine ye dönelim.Value kutusundaki 10 değerini silerek 9 yazalım ve 'Next Scan' butonuna basalım ki bu buton bir önceki yaptığımız aramada çıkan sonuçlar üzerinde yeniden arama yapmaya yarar.
Evet bende 1 değer kaldı.Burda bizim için önemli olan değerin 'Address' kısmı yani örnekte '01005194'.Eğer daha fazla değer varsa tekrar bir bayrak koyup, 8 diye aratabilirsiniz.1 değer çıkana kadar bu işlemi tekrarlayın.Tabi illa bayrak değerini düşüreceksiniz diye birşey yok önemli olan değiştirmek..Neyse değeri bulduğumuza göre bu değeri istediğimiz gibi değiştiren programı yazalım.
Visual Basic İçin Örnek Kodlar
Programdan bir görünüm:
İşte mayın tarlasındaki değişiklik:
Bu ikona tıklıyoruz ve çıkan listeden winmine.exe yi seçiyoruz(mayın tarlasının exe adı).Daha sonra Mayın Tarlasından yeni bir oyun başlatıyoruz.
10 rakamını gördünüzmü.Burdaki rakam bayrak sayımızı gösteriyor.Şimdi Cheat Engineye dönüyoruz ve 'Value' kutucuğuna 10 yazıyoruz-scan type Exact value,value type ise 4 byte kalıyor- ve 'First Scan' butonuna tıklıyoruz.Sol taraftaki listede birsürü adres çıktı değilmi.Bu adresler 10 değerinin bulunduğu yerlerdir.Bende 103 değer çıktı.Listede 103 değer var fakat bize 1 değer lazım.Bu arama işlemi sırasındaki amacımız değer sayısını en aza düşürebilmek.Onun için mayın tarlasında herhangi bir kutucuğa sağ tıkla bayrak koyuyoruz böylece bayrak sayımız 9 a düşüyor yani değişmiş oluyor.Şimdi Cheat Engine ye dönelim.Value kutusundaki 10 değerini silerek 9 yazalım ve 'Next Scan' butonuna basalım ki bu buton bir önceki yaptığımız aramada çıkan sonuçlar üzerinde yeniden arama yapmaya yarar.
Evet bende 1 değer kaldı.Burda bizim için önemli olan değerin 'Address' kısmı yani örnekte '01005194'.Eğer daha fazla değer varsa tekrar bir bayrak koyup, 8 diye aratabilirsiniz.1 değer çıkana kadar bu işlemi tekrarlayın.Tabi illa bayrak değerini düşüreceksiniz diye birşey yok önemli olan değiştirmek..Neyse değeri bulduğumuza göre bu değeri istediğimiz gibi değiştiren programı yazalım.
Visual Basic İçin Örnek Kodlar
Kod:
'İlk olarak WinAPI tanımlamalarımız
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowThreadProcessId Lib "user32" Alias "GetWindowThreadProcessId" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
Private Declare Function OpenProcess Lib "kernel32" Alias "OpenProcess" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function WriteProcessMemory Lib "kernel32" Alias "WriteProcessMemory" (ByVal hProcess As Long, lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Private Declare Function ReadProcessMemory Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess As Long, lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Const PROCESS_ALL_ACCESS As Long = &H1F0FFF
'Forma bir TextBox(Text1) bir CommandButton(Command1) ekliyoruz.Ve kodlar..
Private Sub Command1_Click()
On Error Resume Next 'Hata oluşursa görmezden gel devam et
Dim hWnd As Long, pID As Long, hProcess As Long, adres As Long, buffer As Long 'Değişken tanımlamaları Long olarak tanımlıyoruz çünkü integerin sınırı olan 32767 den büyük değerler var
adres = &H1005194 'Buraya Cheat Enginede bulduğunuz adresi başına '&H" koyarak yazın,&H hexi(16 lık sayı sistemini) ifade ediyor
buffer = CLng(Text1.Text) 'Text1 de yazanı sayıya çeviriyoruz
hWnd = FindWindow(vbNullString, "Mayın Tarlası") 'Pencere handlesi alınıyor
GetWindowThreadProcessId hWnd, pID 'Process Id aliyoruz
hProcess = OpenProcess(PROCESS_ALL_ACCESS, False, pID) 'Processi tam yetkiyle açıyoruz
If (WriteProcessMemory(hProcess, ByVal adres, buffer, 4, 0&)) = 1 Then 'Eğer hafızaya yazılmışsa 1 değeri döner
MsgBox "İşlem başarıyla tamamlandı", vbInformation
Else
MsgBox "Bir hata oluştu", vbCritical
End If
CloseHandle (hProcess) 'OpenProcess ile açtığımız handleyi kapatıyoruz..
End Subİşte mayın tarlasındaki değişiklik:
O Kodu ile pek bir şey yazamassın çünkü oyun kapanıp açıldığında değişir bunun için
Pointer Bulman Lazım
Pointer Bulman Lazım
