防止SQL SERVER的事件探查器跟蹤軟體

兩種方法的原理相同

第一種方法：
procedure SQLCloseAllTrack;
const
  sql = 'declare @TID integer ' +
    'declare Trac Cursor For ' +
    'SELECT Distinct Traceid FROM  :: fn_trace_getinfo(default) ' +

  'open Trac ' +

  'Fetch Next From Trac into @TID ' +

  'while @@fetch_status=0 ' +
    'begin ' +
    '  exec sp_trace_setstatus @TID,0 ' +
    '  exec sp_trace_setstatus @TID,2 ' +

  '  Fetch Next From Trac into @TID ' +
    'end ' +

  'Close Trac ' +
    'deallocate Trac';
begin
  //停止所有SQLSERVER的跟蹤器,以防止程式被別人跟蹤
  ExecSql(sql);
end;   
第二種方法：
with faq1 do
    begin
    Close;
    sql.Clear;
    sql.add('declare @t_count int');
    sql.add('set @t_count=1');
    sql.add('while exists(SELECT * FROM ::::fn_trace_geteventinfo(@t_count))');
    sql.add('begin');
    sql.add('exec sp_trace_setstatus @t_count,0');
    sql.add('set @t_count=@t_count+1');
    sql.add('end');
    try
    execSQL;
    except;
    end;
    close;sql.Clear;
    end;
end; 

來自 “ ITPUB部落格 ” ，連結：http://blog.itpub.net/16436858/viewspace-617512/，如需轉載，請註明出處，否則將追究法律責任。