Recpec158

Вот улучшил скрипт, теперь значение сохраняется в заголовок лейбла:

Znachenie = '[[[[["PlantsVsZombies.exe"+008AE91C]+4]+144]+0]+120]+b0'    -- адрес со значением который будем 
ReadZnachenie = ReadInteger(Znachenie)                                                        --замораживать.

function CECheckbox1Change(sender)                                       -- Чекбокс
        if ( checkbox_getState(sender)== 1 ) then

                CETrainer.CETimer1.setEnabled(true)                      -- Включаем таймер
                control_setCaption(CETrainer_CELabel1,ReadZnachenie)     -- Сохраняем текуще значение из адреса в 
                                                                                      --заголовок лейбла на форме
                
        else
                CETrainer.CETimer1.setEnabled(false)                     -- Выключаем таймер
        end
end

function CETimer1Timer(sender)                       
Zamorozkafreeze = control_getCaption(CETrainer_CELabel1)     -- Читаем значение из заголовка лейбла
writeInteger(Znachenie,Zamorozkafreeze)                      -- Пишет сохраненное значение из заголовка лейбла в
end                                                                                           --память по адресу

PS. "-1" потому что я замораживаю время, таймер иногда глюкает и значение проскакивает вперед на 1-2 где-то))

Всем привет  хочу показать вам пример заморозки значения через Lua скрипт в CE

Пример:

Znachenie = '[[[[["PlantsVsZombies.exe"+008AE91C]+4]+144]+0]+120]+b0' --адрес со значением который будем замораживать.
ReadZnachenie = ReadInteger(Znachenie)

function CECheckbox1Change(sender)
        if ( checkbox_getState(sender)== 1 ) then

                CETrainer.CETimer1.setEnabled(true)   -- Включаем таймер
        else
                CETrainer.CETimer1.setEnabled(false)  -- Выключаем таймер
        end
end

function CETimer1Timer(sender)             -- Таймер, интервал рекомендую ставить на "100"
writeInteger(Znachenie,ReadZnachenie -1)   -- Отнимаем "1" от значения из адреса, тем самым возвращаем значение назад.
end

Нашел полезную статейку на эту тему

В 27.02.2015в13:41, Xipho сказал:

Даже если можно, здесь тебе на этот вопрос никто не ответит, так как правилами у нас онлайн взлом запрещен.

ЗЫ. Вообще, онлайн игры, как правило, хранят свои значения на сервере (за редким исключением) и там же идет с ними работа, а у клиента хранятся только экранные значения. В этом случае, разумеется, ни одна программа по взлому не поможет.

Помню как-то мы с братом играли в SAMP, зашли на какой-то сервер для дрифта, в общем там с деньгами было туго( ну вот короче брат не долго думая запустил Artmoney нашел значение денег и добавил) деньги и в прямь добавились но быстро возвращались в исходное значение, следующие что он зделал так это заморозил это значение и деньги на экране стали колеблется убавляться прибавляться)) самое главное то что эти деньги можно было передать другому игроку и он уже мог их тратить

Могу предложить более примитивный способ защиты трейнера. Для новичков. источник

function CETimer1Timer(sender)
     xlient = 'Decompiler CE Trainer v1.0.exe'
if
     (getProcessIDFromProcessName(xlient)==nil) then
return 
end
     closeCE()
end

function CETimer2Timer(sender)
     tlient = 'cheatengine-x86_64.exe'
if
     (getProcessIDFromProcessName(tlient)==nil) then
return 
end
     closeCE()
end

function CETimer3Timer(sender)
     Ollydbs = 'ollydbg.exe'
if
     (getProcessIDFromProcessName(Ollydbs)==nil) then
return
end
     closeCE()
end

function CETimer4Timer(sender)
     ReClass2013 = 'reclass2013.exe'
if
     (getProcessIDFromProcessName(ReClass2013)==nil) then
return 
end
     closeCE()
end

function CETimer5Timer(sender)
     am743 = 'am743.exe'
if
     (getProcessIDFromProcessName(am743)==nil) then
return 
end
     closeCE()
end

8 часов назад, Garik66 сказал:

При выкладывании скриптов пользуйтесь тегами кода и спойлера, как это сделать прочитайте в теме, начиная с этого сообщения.

качество конечно не гуд:D

3 часа назад, LIRW сказал:

Надо просто правильно сформулировать вопрос и перевести его на EN в том же переводчике

На заметку  прост так раньше не делал))

1 час назад, LIRW сказал:

У меня там стоит простая фотография. 

Код на неё.  

function CEImage1MouseDown(sender, button, x, y)
form_dragNow(UDF1)
end

Можно было бы и в том же поиске посмотреть Чпок

Да  ёще надо уметь вбить правильный тег чтоб найти)) спасибо бро)))

2 минуты назад, Garik66 сказал:

без рамки не сложно - в свойствах формы трейнера (CETrainer или UDF1) выбери закладку "BorderStyle" и там выбери "bsNone".

А вот, чтобы сделать как у Мистера Антифана крестик и тире - у него это уже лейблы и на их срабатывание нужно будет добавлять мини LUA-скрипты.

В этом поможет LIRW. Мне нужно просто это долго искать, а у него все скрипты уже есть, он ими пользуется, так что попроси у него.

Ясно  спасибо.

18 минуту назад, Baracuda сказал:

подожди а разве можно, трейнеры от Cheat Engine они же вроде только XM формат поддерживают, или я ошибаюсь.

Вот тут и тут всё написано и тут ещё 

32 минуты назад, Baracuda сказал:

ребята здравствуйте подскажите пожалуйста, как в вставить в трейнер музыку mp3, или mp4.пробовал искать конвертер который бы переделывал формат mp3 в формат XM но не нашёл.

Так че тебе мешает в трейнер? в формате .wav Закинуть?? конвертеров для  mp3-mp4 в wav много

Как реализовать форму наподобие этой без рамки и чтобы можно было перетаскивать за любу часть формы?

К стате этот трейнер скомпилирован на CE.

все робит garik respect!

3 часа назад, Garik66 сказал:

Отрывок из файла Main-LUA;

  Показать содержимое

TrackBar Class : (Inheritance: WinControl->Control->Component->Object)
createTrackBar(owner): Creates a TrackBar class object which belongs to the given owner. Owner can be any object inherited from WinControl

properties
  Min: integer - Minimal value for the trackbar
  Max: integer - Maximum value for the trackbar
  Position: integer - The current position
  OnChange: function - Function to call when

methods
  getMax()
  setMax(integer)
  getMin(trackbar)
  setMin(trackbar, integer)
  getPosition(progressbar)
  setPosition(progressbar, integer)
  getOnChange()
  setOnChange(function)

 

Скрипт:

  Показать содержимое

TB = component_findComponentByName(CETrainer,'CETrackBar1')
function CETrackBar1Change(sender)
position = trackbar_getPosition(TB)
writeInteger('["Tutorial-i386.exe"+2345D0]+480',position)
end

 

 

как сделать чтобы в память писало в Float ато по стандарту 4bytes

Всем привет! хочу добавить в свой трейнер функцию TrackBar как мне сделать на запись и чтение значения в адрес с указателем во время передвижения ползунка в TrackBar

Нашел пример на офф сайте CE, но не понял его((

Пример:

function CETrackBar1Change(sender) 
if (trackBar_getState(CETrainer.CETrackBar1) == 0) then 
autoAssemble([[ 
//nothing happens 
  ]]) 
if (trackBar_getState(CETrainer.CETrackBar1) == 1) then 
autoAssemble([[ 
//adds 1000 
 ]]) 
if (trackBar_getState(CETrainer.CETrackBar1) == 2) then 
autoAssemble([[ 
//adds 2000 
  ]]) 
if (trackBar_getState(CETrainer.CETrackBar1) == 3) then 
autoAssemble([[ 
//adds 3000 
  ]]) 
end 
end

5 минут назад, Garik66 сказал:

Ты хотя бы попробовал сам.

Работает!

этот скрипт не только мне будет полезен и другим тоже интересны такие вещи 
Спасибо огромнейшее сейчас пойду пилить трейнер 
хороший ты человек Garik не пожалел своего времени и помог совсем незнакомому тебе человеку))) я бы поставил репку но незнаю как)))))

4 минуты назад, Recpec158 сказал:

А как сделать иньекцию этого кода 

 

если непонятно, я могу видео снять

А как сделать иньекцию этого кода 

[ENABLE]
alloc(newmem,2048)
label(exit)
newmem:
nop
jmp exit

00AE4B13:
jmp newmem
nop
exit:

[DISABLE]
dealloc(newmem)
00AE4B13:
mov [ecx+000000B0],eax

1 час назад, Garik66 сказал:

Как я понял тебя - ты имеешь ввиду вставки ассемблер СЕ в LUA.

Можно конечно, инъекцию можно делать на любое событие любого объекта трейнера.

Сам я не делал, но примеров на форуме было много, чаще всего встречались примеры от MasterGH.

Поищи, у меня сейчас нету времени, если не найдёшь, когда освобожусь - поищу.

Вот именно то что никак не магу найти весь форум облазил  уже мозг кипит  мож я не правильно вбиваю вопрос при поиске :((

и  у  MasterGH.  не нашел

В 27.02.2016в22:20, Garik66 сказал:

На здоровье!  

А инъекцию кода можно сделать на чекбокс?? если да то как все перешарил нашел только сайт на  англ нечерта непонятно

35 минуты назад, Garik66 сказал:

Короче уменьшил твой скрипт и проверил у себя у меня всё работает:

  Показать содержимое

function CECheckbox1Change(sender)
if ( checkbox_getState(sender)== 1 ) then
results = AOBScan("40 89 41 08 5E 59","+X-W-C")
if (results ~= nil) then
showMessage("Сигнатура найдена")
end
count = stringlist_getCount(results) for i=0,(count-1),1 do  
adress = stringlist_getString(results,i)
writeBytes(adress, 0x90, 0x89, 0x41, 0x08, 0x5e, 0x59)
end
else
writeBytes(adress,0x40, 0x89, 0x41, 0x08, 0x5e, 0x59)
end
end

 

 

Работает нештяк)) спасибос

4 минуты назад, Garik66 сказал:

одной end не хватает, подставь. Писал на коленке из твоего скрипта.

я уже где только не добавил end все равно ошибка

28 минуты назад, Garik66 сказал:

Ошибка, которая сразу бросается в глаза, попробуй так