Page 1 of 1

Проблема с GetTickCount

Posted: 18.06.2018 13:41
by KaToK

Code: Select all

    AddToSystemJournal('tt use music '+inttostr(tt));
    AddToSystemJournal('GetTickCount use music '+inttostr(GetTickCount));
    while (tt+10000 < GetTickCount) do wait(100);
    Usetype($0EB2,$0000);
Вроде простой код все должно работать, но вот незадача.

Code: Select all

14:32:14:710 [Recoren_PFUO]: tt use music 1988302116
14:32:14:710 [Recoren_PFUO]: GetTickCount use music 1988307295
14:32:42:307 [Recoren_PFUO]: tt use music 1988329650
14:32:42:307 [Recoren_PFUO]: GetTickCount use music 1988334892
14:33:30:868 [Recoren_PFUO]: tt use music 1988368354
14:33:30:868 [Recoren_PFUO]: GetTickCount use music 1988383455
когда tt+10000 больше чем GetTickCount
скрипт виснет на while (tt+10000 < GetTickCount) do wait(100);

Re: Проблема с GetTickCount

Posted: 18.06.2018 20:47
by GeeZeR
Измени код цикла на этот и посмотри что пишет:

Code: Select all

While (tt+10000 < GetTickCount) do begin
     AddToSystemJournal(inttostr(tt+10000));
     AddToSystemJournal(inttostr(GetTickCount));
     Wait(1000);
end;

Re: Проблема с GetTickCount

Posted: 20.06.2018 8:37
by KaToK
Я там какой-то костыль придумал :)
Вернусь к прокачке скила, проверю. Странно чего сам не попробовал подобное.