Перейти к содержанию

Поиск и замена значения по хоткею


Рекомендуемые сообщения

Писал скрипт поиска и замены значений по хоткею, поглядывая на скрипт управлением спидхаком. Чувствую что решение близко, но уже мозг не варит. Скажите плз, где косяк и может можно его еще оптимизировать?

EnableHotkey =1
function rwr()
hideAllCEWindows()
showMessage("START?")
results=AOBScan("67 2B 00 00", "+W-C-X")
if (results~=nil) then
count=stringlist_getCount(results)
if (count>1) then
function No(hotkey)
for i = 0, (count-1), 1 do
address=stringlist_getString(results,i)
if (EnableHotkey==1) then
value = 22222
writeInteger(address,value)
end
end
function Norma(hotkey)
for i = 0, (count-1), 1 do
address=stringlist_getString(results,i)
if (EnableHotkey==1) then
value = 11111
writeInteger(address,value)
end
end
end
end
object_destroy(results)
results=nil
end
showMessage("OK")
end

function myattach(timer)
if getProcessIDFromProcessName("game.exe") ~= nil then
object_destroy(timer)
openProcess("game.exe")
rwr()
else
showMessage("Client not found")
closeCE()
end

f=createForm(false) --create an invisible window
t=createTimer(F);
timer_setInterval(t,100) --10 might have been too fast for xp...
timer_onTimer(t,myattach)
end
end

function SetHotKey(func, hotkey)
local objectHotKey = createHotkey(func, hotkey)
generichotkey_setKeys(objectHotKey, hotkey)
generichotkey_onHotkey(objectHotKey, func)
end

function onOpenProcess(processid)
SetHotKey(No, VK_R)
SetHotKey(Norma, VK_V)
end

Ссылка на комментарий
Поделиться на другие сайты

Сплошной косяк.

Особенно, когда после условия идёт функция:


if (count>1) then
function No(hotkey)
....

Лучше убрать функцию myattach(timer) и работу таймера.

Начни с простого - подготовь форму и реакции на хот-кеи

post-3-1323863781,48_thumb.png


function No()
--...
end

function Norma()
--...
end


function SetHotKey(func, hotkey)
local objectHotKey = createHotkey(func, hotkey)
generichotkey_setKeys(objectHotKey, hotkey)
generichotkey_onHotkey(objectHotKey, func)
end

function onOpenProcess(processid)
SetHotKey(No, VK_R)
SetHotKey(Norma, VK_V)
control_setCaption(formTrainer, "Trainer Run ....")
setProperty(infoLabel, "Enabled", "true")
end

function OnCloseTrainerForm(sender)
closeCE()
return caFree
end

formTrainer = createForm(true)
form_centerScreen(formTrainer)
control_setCaption(formTrainer, "Process game is not exist")
form_onClose(formTrainer, OnCloseTrainerForm)

infoLabel = createLabel(formTrainer)
control_setCaption(infoLabel, "Key R - ....\n\rKey V - ....")
control_setPosition(infoLabel, 20, 10)
setProperty(infoLabel, "Enabled", "false")

listProcess = getAutoAttachList()
strings_add(listProcess, "test.exe")

Ссылка на комментарий
Поделиться на другие сайты

×
×
  • Создать...

Важная информация

Находясь на нашем сайте, Вы автоматически соглашаетесь соблюдать наши Условия использования.