[ช่วยทีครับ] เขียน Trainer ด้วย VB6 !!
ตัวอย่างก่อนถาม ( ผมมือใหม่หัดใช้ ) ================================== Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hWnd As Long, lpdwProcessId As Long) As Long Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long 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 Declare Function ReadProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long Declare Function Hotkey Lib "user32" Alias "GetAsyncKeyState" (ByVal key As Long) As Integer
Public Function poke(address As Long, value As Long) Dim handle As Long, processID As Long, ProcessHandle As Long, gamewindowtext As String, bytes As Byte handle = FindWindow(vbNullString, "Pinball") GetWindowThreadProcessId handle, processID ProcessHandle = OpenProcess(&H1F0FFF, True, processID) WriteProcessMemory ProcessHandle, address, value, 1, 0 End Function
Public Function AttachGame() As Boolean AttachGame = ProcessHandle End Function
Public Function readmem(address As Long, Length As Long) Dim readvalue As Long ReadProcessMemory ProcessHandle, address, readvalue, Length, 0 readmem = readvalue End Function ==================================
คือผมอยากให้มันเวลาเปิดเกมเช่น Pinball ขึ้นมาแล้วให้มัน แก้ค่าเองอัตโนมัติ
โดยไม่ต้องไปกดปุ่ม
Private Sub Command1_Click() Call poke(&H4035D7, &H55) End Sub
ก่อนถึงแก้ค่าให้
แบบว่าหากโปรแกรมตรวจเจอว่าเกม Pinball ถูกเปิดแล้วจะแก้ค่าให้เองเลยไม่ต้องกดปุ่ม..
พอโปรแกรมแก้ค่าให้แล้วก็ ปิด ตัวมันเองอัตโนมัติ ไม่ทราบว่าต้องเขียนอย่างไงครับ
ปล. มือใหม่หัดใช้ vb6. _/l\_
|