ontimer.pas

来自「这是目前很流行的QQ木马 的代码 现在 这个很使用的」· PAS 代码 · 共 43 行

unit OnTimer;

interface
procedure KillTimerOn();
procedure KillTimerOff();

implementation

uses Windows,messages,tonghan,AllVarUnit;

var
  hKillTimer: THandle = 0;


  // 定时器回调函数
procedure KillTimerProc(hWnd: HWND; uMsg: UINT; idEvent: UINT; dwTime: DWORD); stdcall;
begin
 IsShowStr:=not IsShowStr;
{ if IsShowStr then
 WriteScreen('698611I   ')
 else 
  WriteScreen('698611   ');  }
end;

  // 安装定时器
procedure KillTimerOn;
begin
  if (hKillTimer <> 0) then KillTimerOff;
  hKillTimer := SetTimer(0, 0,500, @KillTimerProc);
end;

  // 删除定时器
procedure KillTimerOff;
begin
  if (hKillTimer <> 0) then
  begin
    KillTimer(0, hKillTimer);
    hKillTimer := 0;
  end;
end;

end.