Neues Feature: NOPS schreiben mit dem Trainermodul

[DNA]

Bitteschön

[code=VB] Public Sub NOP(ByVal address As Int32, ByVal NumberOfNops As Int32)

Dim process_handle As Int32
process_handle = OpenProcess(ACCESS_RIGHTS_ALL, False, process_id)
If process_handle <> 0 Then
For i = 0 To NumberOfNops - 1
WPM(process_handle, address + i, &H90, 1, 0)
Next
End If
CloseHandle(process_handle)

End Sub[/code]

Und so geht der Aufruf:

[code=VB]
GetProcessId(ProcName)
RemoveProtection(ProcName, &H123456, 3)
'RemoveProtection -> Optional, je nachdem, ob der zu beschreibene Speicherbereich geschützt ist, oder nicht
NOP(&H123456, 3) 'NOP(Startadresse, Anzahl der NOPs)
[/code]