Visual Basic Forum

Visual Basic Forum
für VB6 und VB.NET Programmierer
  		RegistrierenRegistrieren  LoginLogin

Neues Thema eröffnen   Neue Antwort erstellen    Visual Basic Forum Foren-Übersicht -> [VB.NET] Tutorials
Autor
Nachricht
tr4st
Überflieger
Überflieger

Anmeldedatum: 16.04.2008
Beiträge: 486
GameTrainer - Statische Adresse Freezen
Verfasst am: 15.06.2009, 17:00
So ich habe es mir mal erlaubt das Tut von Kaali in Vb.Net umzusetzen Very Happy

Die "as Any" hab ich einfach mal durch Integer ersetzt, vll nicht die eleganteste Lösung aber mit Pinball hats schonmal funtkioniert. Wer nen besseren Vorschlag hat bitte posten. Könnte mir gut vorstellen dass die aktuelle Variante etwas buggy ist :s

Vondaher müssen die Deklarationen so aussehen:

Code:
Public Declare Function ReadProcessMem Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Integer, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer<br /><br />Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Integer, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer<br /><br />Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Integer<br /><br />Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Integer, ByRef lpdwProcessId As Integer) As Integer<br /><br />Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Integer, ByVal bInheritHandle As Integer, ByVal dwProcessId As Integer) As Integer<br /><br />Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Integer) As Integer<br /><br />Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Integer) As Short<br /><br />Declare Function Hotkey Lib "user32" Alias "GetAsyncKeyState" (ByVal key As Integer) As Short<br /><br />Public Function WPM(ByRef gamewindowtext As String, ByRef Address As Integer, ByRef Value As Integer, ByRef bytes As Byte) As Object<br />        Dim handle As Integer<br />        Dim processID As Integer<br />        Dim ProcessHandle As Integer<br />        handle = FindWindow(vbNullString, gamewindowtext)<br />        GetWindowThreadProcessId(handle, processID)<br />        ProcessHandle = OpenProcess(&H1F0FFF, True, processID)<br />        WriteProcessMemory(ProcessHandle, Address, Value, bytes, 0)<br />        CloseHandle(ProcessHandle)<br />End Function<br /><br />Public Function WPMbuf(ByRef gamewindowtext As String, ByRef Address As Integer, ByRef Value As Byte, ByRef bytes As Byte) As Object<br />        Dim handle As Integer<br />        Dim processID As Integer<br />        Dim ProcessHandle As Integer<br />        handle = FindWindow(vbNullString, gamewindowtext)<br />        GetWindowThreadProcessId(handle, processID)<br />        ProcessHandle = OpenProcess(&H1F0FFF, True, processID)<br />        WriteProcessMemory(ProcessHandle, Address, Value, bytes, 0)<br />        CloseHandle(ProcessHandle)<br />End Function<br /><br /><br />Public Function RPM(ByRef gamewindowtext As String, ByRef Address As Integer, ByRef Value As Integer, ByRef bytes As Integer) As Object<br />        Dim handle As Integer<br />        Dim processID As Integer<br />        Dim ProcessHandle As Integer<br />        handle = FindWindow(vbNullString, gamewindowtext)<br />        GetWindowThreadProcessId(handle, processID)<br />        ProcessHandle = OpenProcess(&H1F0FFF, True, processID)<br />        ReadProcessMem(ProcessHandle, Address, Value, bytes, 0)<br />        CloseHandle(ProcessHandle)<br />End Function

Dieses Tutorial wurde von Bahamut geschrieben!
_________________
 
Neues Thema eröffnen   Neue Antwort erstellen    Visual Basic Forum Foren-Übersicht -> [VB.NET] Tutorials

Tags: function writeprocessmemory, declare function, public function, public declare, freezen, byval

  
 Verwandte Themen   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Wichtig: [B] Builder source vom Tutorial 3129 30.04.2008, 16:09
Keine neuen Beiträge Wichtig: [Tutorial] Typen 1211 01.03.2008, 09:04
Keine neuen Beiträge Suche Platform Game tutorial 955 31.03.2008, 21:49
Keine neuen Beiträge VB 6.0 Tutorial(s) für Datenbank? 690 22.02.2008, 23:39
Keine neuen Beiträge [S] ZIG tutorial 544 09.02.2008, 08:31
 




[ Time: 0.1321s ][ Queries: 81 (0.0225s) ][ GZIP on - Debug on ]