vegettadbz Cheater
Reputation: 0
Joined: 01 Dec 2010 Posts: 28
|
Posted: Mon Sep 07, 2015 4:45 am Post subject: VB.NET+ CE coding |
|
|
Hello guys!
I have an issue when i try to write code from CE to VB.NET 2010 (Visual Basic 2010). I am trying to code the game Farm Frenzy: Heave Ho in VB.NET
I use this class in VB.NET
https://www.dropbox.com/s/svae7rxnvs8pc4r/ReadWritingMemory.vb?dl=0
In CE I have this code: (MONEY CHEAT)
Code: | [ENABLE]
//code from here to '[DISABLE]' will be used to enable the cheat
aobscanmodule(money,FarmFrenzy_HeaveHo.wrp.exe,01 5F 60 FF 77 60 8B 35 1C) //
alloc(newmem,$1000)
label(code)
label(return)
newmem:
code:
add [edi+60],186A0 // ADD MONEY
push [edi+60]
jmp return
money:
jmp code
nop
return:
registersymbol(money)
[DISABLE]
money:
add [edi+60],ebx
push [edi+60]
unregistersymbol(money)
dealloc(newmem)
{
// ORIGINAL CODE - INJECTION POINT: "FarmFrenzy_HeaveHo.wrp.exe"+997CE
// ---------- INJECTING HERE ----------
"FarmFrenzy_HeaveHo.wrp.exe"+997CE: 01 5F 60 - add [edi+60],ebx
"FarmFrenzy_HeaveHo.wrp.exe"+997D1: FF 77 60 - push [edi+60]
// ---------- DONE INJECTING ----------
} |
PICTURES:
PIC1: http://i171.photobucket.com/albums/u291/vegettobdz/diafora/P1_zpsstvq956m.png
PIC2: http://s171.photobucket.com/user/vegettobdz/media/diafora/P2_zps8tr1tpfi.png.html?sort=3&o=0
PIC3: http://i171.photobucket.com/albums/u291/vegettobdz/diafora/P3_zps8btlyf23.png.
So far, I have made to make some cheats using POINTERS +OFFSETS, using
the WriteDMAInteger() from READWRITINEMEMORY.vb.
My problem is this. Is there a way to make a code injection (such as in CE code injection), in VB.NET[, using the REAWRITINGMEMORY.vb. ??
P.S. Sometimes, I use also the following function in VB.NET when I have to deal with modules + offsets
Function GetModuleHandle(ByVal proccessx As String, ByVal modulesx As String) As IntPtr
Dim prs As Process() = Process.GetProcessesByName(proccessx)
If prs.Length > 0 Then
On Error Resume Next
Dim pi As ProcessModuleCollection = prs(0).Modules
For Each pmod As ProcessModule In pi
If pmod.ModuleName = (modulesx) Then
Return pmod.BaseAddress
Else
End If
Next
End If
End Function
and then I have this one:
WriteDMAInteger("Game Name", GetModuleHandle("Game Name", "Module") + &HAddress, {Offsets}, value, level of offsets, 4)
Any help would be appreciated.
|
|