Speed hack и им подобные

[Gotha]

а в callback'e CreateTimer'a можно что-то изменить? или тоже как-то перехватить? то есть системный таймер вещь незыблемая? как же тогда работает сия штука (см. приложение)?

[keks-n]

Щас отладчиком покопаюсь в проге, что таймер юзает... Вообще, по моему надо просто задисейблить таймер и слать что-то через SendMessage

[keks-n]

Короче...
SetTimer proto hWnd:DWORD, TimerID:DWORD, uElapse:DWORD, lpTimerFunc:DWORD
Его и надо перехватывать. меняем uElapse на свой(придётся запрашивать у основной проги), и таймер тикает как надо

[Gotha]

keks-n
я понимаю что это уже верх наглости, но не мог бы помочь в асме в ту библиотечку добавить?

[keks-n]

Не сегодня...

[Gotha]

ок, с нетерпением жду
чуствую пользователи будут довольны новой примочкой) включу твой ник в список разработчиков)
кстати ее уже юзает человек 200 как минимум

[keks-n]

Догадка оказалась верной =)
Только хук надо ставить ДО старта таймера. В целом всё, как в прошлый раз, но SetTime задаёт интервал таймера.

[Gotha]

о, великий гуру keks-n, поделись исходником библы с нами нубами

[Gotha]

keks-n, трабла... не меняется "тик" у таймера...
вот код клиентской проги:

Код: Выделить всё

Option Explicit
Dim i%

Private Sub Command1_Click()
    Timer1.Enabled = True
    Timer1.Interval = 800
End Sub

Private Sub Form_Load()
    Caption = App.ThreadID
End Sub

Private Sub Timer1_Timer()
    Caption = Timer1.Interval
    i = i + 1
    If i >= 30 Then i = 0
    Command1.Caption = i
End Sub


а вот код перехватчика:

Код: Выделить всё

Option Explicit

Private Declare Function SetGlobalHook Lib "sthook.dll" (ByVal Reason As Long, ByVal PID As Long) As Long
Private Declare Sub SetTime Lib "sthook.dll" (li As Long)
Dim PID As Long

Private Sub Command1_Click()
    SetGlobalHook True, Text1.Text      'Ставим хук
End Sub

Private Sub Form_Load()
    Slider1.Value = 1800
    Slider1.Max = 5000
    Slider1.TickFrequency = 100
    Slider1.LargeChange = 100
End Sub

Private Sub Form_Unload(Cancel As Integer)
    SetGlobalHook False, 0 'Снять хук
End Sub

Private Sub Slider1_Scroll()
    SetTime CLng(Slider1.Value) 'Ставим возвр. значение. Можно поменять в ЛЮБОЙ момент.
End Sub


что я тут не так сделал? (юзал последнюю библиотечку с перехватом SetTime)

[keks-n]

Придётся добавлять в твой макрос лоадер... Стартовать процесс самому через CreateProcess, причём с флагом CREATE_SUSPENDED, дабы получив его PID подрубить библу(на самом деле подрубится она с первым окном, но PID процесса жертвы надо задать ДО этого, чтобы перехватчик успел отловить СОЗДАНИЕ таймера), и только потом запускать на выполнение первую нить. Таким образом можно добиться некоторых гарантий, что интервал таймера будет изменён.

[keks-n]

Gotha
Не App.ThreadID, а API'шка GetCurrentProcessID(или посмотреть PID в диспетчере задач). Тогда в данном случаее лоадер наверное не нужен.

И ещё... Ты наверное не понял: таймер будет работать с однажды заданным интервалом, все вызовы SetTime после включения будут ему по барабану. Хотя есть одна идея : поставить интервал в ноль(неработающий таймер) и самостоятельно слать WM_TIMER(). Или ещё лучше: поставить его в ноль, в своём процессе этой функцией создать таймер, но поставить hWnd отключённого. Тогда и карты в руки. Но это требует механизма IPC, передающего ID таймера, hWnd, заданный интервал, надо ловить функцию KillTimer, дабы её продублировать.

[Wild VB Code for Food]

Можно по-рассуждаю?

По идее все таймеры основаны на многозадачности ОС, незнаю как в защищенном режиме, в реальном режиме многозадачность основана на 8 прерывании. ~18,2 раз в секунду процессор выполняет 8 прерывание, при этом он сохраняет значение всех регистров и флагов в стек, а после того как выполнит восстанавливает из стека. Собственно ОС ставит свой обработчик этого прерывания....и подменяет значсение регистров, IP в основном.
собственно таймер в Досе можно реализовать только в секундном масштабе...или ~54 раза в секунду...естественно прийдётся напрягать сопроцессор......надеюсь идею уловили.... Можно и по другому реализовать, с использованием ресурсов материнки, там вроде есть схема, которая пускает импульс с частотой 19Мгц....собственно можно считать импульсы, зная частоту......

(мне кажется в Protected Mode реализация таймера основана на подсчёте тактов)

Гуру защишённого режима просветите, как реализовывается таймер?

[Gotha]

спасибо за обьяснения, но вот мысль - что если стопить таймер (в 0) и снова запускать его со своими параметрами?

[keks-n]

Или ещё лучше: поставить его в ноль, в своём процессе этой функцией создать таймер, но поставить hWnd отключённого. Тогда и карты в руки. Но это требует механизма IPC, передающего ID таймера, hWnd, заданный интервал, надо ловить функцию KillTimer, дабы её продублировать.

А вообще посылай WM_TIMER