[Помогите!] Не обновляет хп моба

[HellD]

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

собственно вот такая вот выдержка из кода...

procedure TForm1.Timer1Timer(Sender: TObject);
var
aParams: TParams;
PID, hProcess: DWord;
I,J:integer;

begin
   GetWindowThreadProcessId(WndHndlDru, @PID);
   hProcess:=OpenProcess(PROCESS_ALL_ACCESS, False, PID);

      ReadProcessMemory(hProcess, ptr(GA), @AssistTemp, sizeof(AssistTemp), BytesCount);
      ReadProcessMemory(hProcess, ptr(AssistTemp+$20), @AssistTemp, sizeof(AssistTemp), BytesCount);
      ReadProcessMemory(hProcess, ptr(AssistTemp+$B0C), @LiderTarget, sizeof(LiderTarget), BytesCount);

   CloseHandle(hProcess);
 
  GetWindowThreadProcessId(WndHndlLUK, @PID);
  hProcess:= OpenProcess(PROCESS_ALL_ACCESS, False, PID);
  aParams.WID:= LiderTarget;
  InjFun(hProcess, @TarCall, @aParams, SizeOf(aParams ) );
  CloseHandle(hProcess);
  LUKTargetWID := LiderTarget;
  

   GetWindowThreadProcessId(WndHndlLUK, @PID);
   hProcess:=OpenProcess(PROCESS_ALL_ACCESS, False, PID);

                     for J:=0 to 5 Do
                        begin
                          for I:=0 to $300 DO
                            begin
                            ReadProcessMemory(hProcess, ptr(GA), @MobsTemp, sizeof(MobsTemp), BytesCount);
                            ReadProcessMemory(hProcess, ptr(MobsTemp+$8), @MobsTemp, sizeof(MobsTemp), BytesCount);
                            ReadProcessMemory(hProcess, ptr(MobsTemp+$24), @MobsTemp, sizeof(MobsTemp), BytesCount);
                            ReadProcessMemory(hProcess, ptr(MobsTemp+$18), @MobsTemp, sizeof(MobsTemp), BytesCount);
                            ReadProcessMemory(hProcess, ptr(MobsTemp+I*4), @MobsTemp, sizeof(MobsTemp), BytesCount);
                            ReadProcessMemory(hProcess, ptr(MobsTemp+$4), @MobsTemp, sizeof(MobsTemp), BytesCount);
                            ReadProcessMemory(hProcess, ptr(MobsTemp+$11c), @mobsid, sizeof(mobsid), BytesCount);

                            if mobsid = LukTargetWid then break;
                            end;
                            if mobsid=LukTargetWid then Break;
                         end;


   ReadProcessMemory(hProcess, ptr(MobsTemp+$12c), @LukTargetHp, sizeof(LukTargetHp), BytesCount);
   ReadProcessMemory(hProcess, ptr(MobsTemp+$16c), @LukTargetMaxHp, sizeof(LukTargetMaxHp), BytesCount);
   CloseHandle(hProcess);
   label1.caption:=inttostr(LukTargetHp);

Воть как то так... в label`е хп отображается но меняться не хочет (( подскажите, где я тут че накосячил? (( заранее спасибо ))

[Dinmaite]

Я не увидел цикла, в котором будет считываться значение НР.
Наверное в этом и фейл.

[HellD]

Цитата: Сообщение от HellD procedure TForm1.Timer1Timer(Sender: TObject);

это таймер... по идее это все сплошной цикл )) начиная от взятия ассиста, заканчивая тем же получением хп...
или я не прав?

[Dinmaite]

Ну неясно ведь каким именно образом вызывается таймер, и с какой переодичностью.
В принципе по коду всё верно на первый и второй взгляд.

[HellD]

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