visual basıc hile programı yapma

1 TANE TEXTBOX 1 TANE BUTTON EKLEYİN
YUKARDA PROJECT MENÜSÜNDEN ADD MODULEYE TİKLAYİN AÇ BUTONUNA TİKLAYİN KARSINIZA SÖYLE BİR PENCERE GELİCEK

ORAYA AYNEN BUNU YAZIYORSUNUZ

Private Const PROCESS_ALL_ACCESS As Long = &H1F0FFF
Private Declare Function GetWindowThreadProcessId Lib "User32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Private Declare Function ReadProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, ByVal 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 Declare Function FindWindow Lib "User32" Alias "FindWindowA" (ByVal Classname As String, ByVal WindowName As String) As Long
Private Declare Function ReadProcessMem Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, ByRef lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
'Şimdi de fonksiyonumuzu yazıyoruz.
Public Function Longyaz(Offset As Long, WindowName As String, Value As Long) As Boolean
Dim hwnd As Long
Dim ProcessID As Long
Dim ProcessHandle As Long
'Önce oyunun pencere numarasını bulalım;
hwnd = FindWindow(vbNullString, WindowName)
If hwnd = 0 Then 'Oyun şuanda açık değilse
MsgBox "Oyun şuanda açık değil!", vbCritical, "Yazma Hatası" 'Eğer isterseniz bu satırı kaldırabilirsiniz, oyun açık değilse zaten trainer bi işe yaramaz
Exit Function
End If
GetWindowThreadProcessId hwnd, ProcessID
ProcessHandle = OpenProcess(PROCESS_ALL_ACCESS , False, ProcessID)
If ProcessHandle = 0 Then
Exit Function
End If
WriteProcessMemory ProcessHandle, Offset, Value, 4, 0& 'Değeri yazıyoruz
CloseHandle ProcessHandle 'Yazma işlemi bitti, pencere kulbunu kapatıyoruz

End Function

YAZDİKTAN SONRA O PENCEREYİ KAPATA BİLİRSİNİZ.

CHEAT ENGİNE İLE METİN2 DE KOSMA NİN VALUESİNİ BULUYORUZ YADA ATTACK HİZİNİN VALUESİNİ BULUYORUZ.(METİN2 DE YAPİLABİLECEK EN GENEL 2 HİLE)

CHEAT ENGİNEDEN VALUE BULMA İSLEMİ NASİL YAPİLİR BİLMEYENLER İCİN ANLATİYORUM.
CHEAT ENGİNEYİ İNDİRİN.
METİN2 YE GİRİN ADAMİNİZİ ACİN ÜSTÜNDE NE VARSA CİKARTİN SONRA CHEAT ENGİNEYİ ACİN
PROGRAMİ ACİNCA SOL ÜSTTEKİ YANİP SÖNEN BİLGİSAYAR SİMGESİNE TİKLAYİN
ORDAN CİKAN MENÜDEN METİN2.BİN İ SECİN ATTACH TO PROCESS E TİKLAYİN
FİRST SCAN BUTONUNA TİKLAYİN VALUE BÖLÜMÜNE 16256 YAZIN VE SCAN TYPE Yİ EXACT VALUE OLARAK SECİN ALTİNDAKİNİDE 2 BYTE OLARAK SECİN NEXT SCAN BUTONUNA TİKLAYİN
OYUNA GERİ DÖNÜN SADECE AYAKABİ GİYİN YADA KİLİC(KOSU HİZİ VEYA ATAK HİZİ HANGİSİNİ İSTERSENİZ BEN AYAKABİ GİYDİGİNİZİ FARZ EDİYORUM) CHEAT ENGİNEDEN INCREASED VALUE Yİ SECİN VE NEXT SCAN DİYİN SONUCLAR AZALİCAK SONRA OYUNA DÖNÜN AYAKABİNİZİ CİKARİN CHEAT ENGİNEYE DÖNÜN VE EXACT VALUE Yİ SECİN NEXT SCAN DİYİN
SONUCLAR AZALİCAK OYUNA DÖNÜN AYAKABİNİZİ GİYİN COK AZ YÜRÜYÜN (YANİNİZDA HERHANGİ BİR YERE TİKLAYİN) CHEAT ENGİNEYE DÖNÜN İNCREASED VALUE Yİ SECİN NEXT SCAN DİYİN SOL TARAFTA 1 TANE VALUE KALICAK ONU KIRMIZI OK İLE ASAGİ İNDİRİN ASAGİ İNDİRDİGİNİZDE ADDRESS NİN ALTİNDA YAZAN BİZİM VALUEMİZ CHEAT ENGİNE İLE İSİMİZ BİTTİ.
VİSUAL BASİC PROGRAMİNA DÖNELİM COMMAND BUTTUNA TİKLADİGİMİZDA CİKAN EKRANA AYNEN SUNU YAZALİM.
Longyaz &H"Metin2", text1.text
(cheat engineden buldugumuz valueyi buraya yazıyoruz ve basina &H koyuyoruz) BEN &H DEN SONRASİNİ BOS BİRAKTİM ORAYA CHEAT ENGİNEDEN BULDUGUMUZ ADDRESS İN ALTİNDA YAZAN SEYİ YAZİCAZ ÖRNEK:
(&H496F4C2)
ORAYİ SAKİN BOS BİRAKMAYİN YAZDİKTAN SONRA PENCEREYİ KAPATİN VE F5 TUSUNA BASİN PROGRAMİMİZ HAZİR F5 TUSUNA BASİNCA PROGRAMİMİZ ACİLİCAK VE ORDAKİ YAZI YAZMA YERİNE YANİ TEXTBOX KUTUSUNA (ASIL HIZIMIZ 16256) ASIL HIZIMIZ 16256 OLDUGUNDAN DAHA HIZLI GİTMEK İCİN 16350,16700 RAKAM SİZE KALMİS
ARTİK SİZDE BİR PROGRAM YAPTİNİZ HEMDE COK SEVDİGİNİZ METİN2 OYUNUNA HİLE PROGRAMİ
ARKADASLAR TAM 3 SAATİMİ HARCADİM EMEGE SAYGİ LÜTFEN HİC BİR YERİ ALİNTİ DEGİLDİR KRİSTALLAN TARAFİNDAN HAZİRLANMİSTİR
SON OLARAK HER OYUN İCİN DENİYEBİLİRSİNİZ....

Çok Karışık Neyin Ne Olduğu Belli Değil Az Düzenle.

Edit..


Örneğin GTA San Andreas para hilesi yapımı
Cheat engine açıp sol üst köşedeki PC simgesine tıklayın ve Gta san anreas exe seçin.

Oyundaki para miktarını value kısmına yazıp FİRS SCAN a tıklayın
Orda 3 tane yeşil değer çıkması lazım.Cıkmassa oyunda para mikktarını değiştirin ve cheat engine gelip değiştirilen para miktarını Value kısmına yazın ve NEW SCAN tıklayın.

Sol tarafta adres kısmında 00B7CE50 bu adres çıkar.
Bu adresi vbde longyaz yanına yazıyoruz &H00B7CE50 siz böyle yazınca oto olarak sıfırlar silinir. ve &HB7CE50 böyle olur.
Pointer bulduysak yapımına gelelim.

Resim

Modül ekleyin içine;
(Project -- Add module)

Public Const PROCESS_ALL_ACCESS = &H1F0FFF
Dim f1holder As Integer
Dim timer_pos As Long


Private Declare Function GetWindowThreadProcessId Lib "User32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Private Declare Function ReadProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, ByVal 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 Declare Function FindWindow Lib "User32" Alias "FindWindowA" (ByVal Classname As String, ByVal WindowName As String) As Long
Private Declare Function ReadProcessMem Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, ByRef lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long

'Şimdi de fonksiyonumuzu yazıyoruz.

Public Function Longyaz(Offset As Long, WindowName As String, Value As Long) As Boolean

Dim hwnd As Long
Dim ProcessID As Long
Dim ProcessHandle As Long

'Önce oyunun pencere numarasını bulalım;
hwnd = FindWindow(vbNullString, WindowName)

If hwnd = 0 Then 'Oyun şuanda açık değilse
MsgBox "Oyun şuanda açık değil!", vbCritical, "Yazma Hatası" 'oyun acıkdeyilse bu hatayı versin isterseniz silebilirsiniz

Exit Function

End If

GetWindowThreadProcessId hwnd, ProcessID

ProcessHandle = OpenProcess(PROCESS_ALL_ACCESS, False, ProcessID)

If ProcessHandle = 0 Then

Exit Function

End If

WriteProcessMemory ProcessHandle, Offset, Value, 4, 0& 'Değeri yazıyoruz
CloseHandle ProcessHandle 'Yazma işlemi bitti, pencere kulbunu kapatıyoruz

End Function

Modül kısmı buraya kadar

VB Form a
Buton ve textbox ekleyin, Butonun içine;

Longyaz &HB7CE50, "GTA: San Andreas", Text1.Text

kodu ekleyin.

Programı Çalıştırıp deneyin

azcık düzenle

güzel

kaç senelelik konum başkası açtı sandım baSladım okumaya baktım tanııdık geldi bi baktım ben açmışım

Bence bunun yerine online oyunlarında olanlardan yapsan daha mantıklı olur ama eline sağlık

J700' Alıntı:

kaç senelelik konum başkası açtı sandım baSladım okumaya baktım tanııdık geldi bi baktım ben açmışım

Genişletmek için tıkla ...

Hala yaşıyor olman mucize.

Video Yapma Şansın Varmı? Öylesi Dahaa Yararlı Olur Diye Düşünüyorum.