Metin2 Hack Yapımı

[multihack1234]

ROHAN2 WORLD 1-120 TR TİPİ OFFICIAL YOHARA, BALATHOR VE AMON! 80. GÜNÜNDE! +10.000 ONLİNE! HİLE VE BOT %100 ENGELLİ HEMEN TIKLA!

Visual Basic 6.0 :

Linkleri görebilmek için Turkmmo Forumuna ÜYE olmanız gerekmektedir.

Module :

 [/B]
[B]Private Const PROCESS_ALL_ACCESS As Long = &H1F0FFF[/B]
[B]Private Declare Function GetWindowThreadProcessId Lib "User32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long[/B]
[B]Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long[/B]
[B]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[/B]
[B]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[/B]
[B]Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long[/B]
[B]Private Declare Function FindWindow Lib "User32" Alias "FindWindowA" (ByVal Classname As String, ByVal WindowName As String) As Long[/B]
[B]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[/B]
[B]'Şimdi de fonksiyonumuzu yazıyoruz.[/B]
[B]Public Function Longyaz(Offset As Long, WindowName As String, Value As Long) As Boolean[/B]
[B]Dim hwnd As Long[/B]
[B]Dim ProcessID As Long[/B]
[B]Dim ProcessHandle As Long[/B]
[B]'Önce oyunun pencere numarasını bulalım;[/B]
[B]hwnd = FindWindow(vbNullString, WindowName)[/B]
[B]If hwnd = 0 Then 'Oyun şuanda açık değilse[/B]
[B]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[/B]
[B]Exit Function[/B]
[B]End If[/B]
[B]GetWindowThreadProcessId hwnd, ProcessID[/B]
[B]ProcessHandle = OpenProcess(PROCESS_ALL_ACCESS, False, ProcessID)[/B]
[B]If ProcessHandle = 0 Then[/B]
[B]Exit Function[/B]
[B]End If[/B]
[B]WriteProcessMemory ProcessHandle, Offset, Value, 4, 0& 'Değeri yazıyoruz[/B]
[B]CloseHandle ProcessHandle 'Yazma işlemi bitti, pencere kulbunu kapatıyoruz[/B]
[B]End Function[/B]
[B]

Örnek Uygulama : Longyaz &H496F4C2"Metin2", text1.text

Cheat Engine İle Metin2 Taratıp Value bulup yapabilirsiniz

Örnek ; 16256 [Hız] cheat enginede arayınız

SendKeys

Tuş Basmanıza Yarar

Örnek ;

Button İçine

SendKeys "{ENTER}"

Entera Basar

Backspace {BS} = Boşluk
Delete {DEL} = sil tuşuna basar
Escape {ESC} = çıkış tuşu
Home {HOME} = Başlangıç denilebilr.. bazı yerlerde başka anlama gelebilr..
Insert {INS} = klavyeden insert tuşuna basar
End {END} =
F1 {F1} =
Sol Ok {LEFT} = sağ ok tuşu
F2 {F2} =
Sağ Ok {RIGHT} =sol ok tuşu
Yukarı Ok {UP} = Yukarı ok tuşu
F12 {F12} =
Aşağı Ok {DOWN} = aşağı tuşu
Numlock {NUMLOCK} =numara kilit tuşu
Capslock {CAPSLOCK} = büyük küçük harf olayı için ilgilşi tuş..
Help {HELP} = ?
Break {BREAK} =?
Tab {TAB} = 1 kaç anlamı var heryerde aynı anlamı taşımıyor.. mesala yazı yazareken 8 karekter iboşluk atar..
Enter {ENTER} =..