CHEAT ENGINE PARA VB NET

JOTAKRIS 05/04/2016 17:22:10
#460501

Boa tarde amigos!
Tenho um código feito pelo Cheat Engine!
Tem como converter para Vb Net?
Segue o código:

m= string.char(50,65,32,55,48,32,63,63,32,63,63,32,63,63,32,70,70,32,52,50,32,48,68,32,63,63,32,63,63,32,63,63,32,49,65,32,55,48,32,63,63,32,63,63,32,63,63,32,63,63,32,63,63,32,54,54,32,48,68,32,48,68)
local search9=string.reverse(m)
local changeTable = {}
local aobs = AOBScan(search9)
control_setCaption(UDF2_CEButton19, [Ô]50%[Ô]);
if(aobs ~= nil) then
for i=0,stringlist_getCount(aobs)-1 do
local address=stringlist_getString(aobs,i)
local changeTable = readBytes(address,50,true)
changeTable[6],changeTable[7],changeTable[8] = 0x68,changeTable[4],changeTable[5]
changeTable[3],changeTable[4],changeTable[5] = 0x25,0x90,0x4e
changeTable[9] = 0xd0
changeTable[10],changeTable[11],changeTable[12] = 0x25,0x90,0x4e
for i=13,21 do
changeTable[i] = 0x02
end
changeTable[29],changeTable[30] = 0x47,0x48
changeTable[31] = [ô]dummy[ô]
writeBytes([ô]0x[ô]..address,changeTable)
end
object_destroy(aobs);
aobs=nil
end
n= string.char(54,100,32,55,50,32,48,48,32,48,48,32,54,48,32,99,48)
local search8=string.reverse(n)
local changeTable = {}
local aobs = AOBScan(search8)
control_setCaption(UDF2_CEButton19, [Ô]40%[Ô]);
if(aobs ~= nil) then
for i=0,stringlist_getCount(aobs)-1 do
local address=stringlist_getString(aobs,i)
local changeTable = readBytes(address,50,true)
changeTable[5] = 0x26
writeBytes([ô]0x[ô]..address,changeTable)
end

Grato pela atenção....