이 글에서는 DELPHI 파일 작업을 통해 광고를 제거하고 Tencent Browser를 차단하는 방법을 소개합니다.
OICQ2000b BUILD 0110을 예로 들어 OICQ의 작동 원리를 면밀히 분석한 후 OICQ의 "메시지 보내기" 창에 있는 광고는 모두 OICQ 설치 디렉터리 아래의 AD 폴더에 저장되어 있으며 모두 사진임을 알 수 있습니다. GIF 형식으로. AD 폴더에 해당 파일이 없을 경우 OICQ는 DAT 폴더에 있는 GIF 이미지를 호출한 후, 광고 이미지를 다운로드하여 AD 폴더에 저장하여 호출합니다. Tencent 브라우저는 Microsoft 브라우저로 대체 가능합니다. (현재 브라우저가 Microsoft의 IE 브라우저라고 가정)
이를 이해한 후 DELPHI의 파일 작업을 사용하여 광고를 제거하고 Tencent Browser를 차단할 수 있습니다.
그림과 같이 DELPHI를 시작하고 새 프로젝트를 생성한 후 FORM에 다음 컨트롤을 배치합니다.
광고 배너 제거에 관해서는 먼저 AD 폴더에 있는 모든 GIF 형식 파일을 읽은 다음 작은 투명 GIF 이미지로 바꾸고 동시에 DAT 폴더에 있는 GIF 파일을 바꾸는 것이 아이디어입니다. 프로그램은 다음과 같이 구현됩니다.
PRocedure TForm1.Del_adClick(Sender: TObject);
var
SearchRec : TsearchRec;
SList: Tstringlist;
디렉토리, SDir :string;
i, FindResult : 정수;
시작하다
Dir := edit1.Text; //OICQ 설치 경로
SList := Tstringlist.Create //파일 목록을 저장하는 데 사용됩니다.
//OICQ 설치 경로가 맞는지 확인
파일이 존재하지 않으면(edit1.text + 'oicq.exe')
시작하다
application.MessageBox('경로가 잘못되었습니다. 다시 선택해주세요!',
'다시 선택해주세요',0);
출구;
끝;
//경로 문자열의 끝 문자가 ""인지 확인하고, 그렇지 않은 경우 ""를 추가합니다.
if Dir[length(dir)] <> '' 그러면
Dir := Dir + '';
Dir := Dir + '광고';
//폴더에서 첫 번째 GIF 파일을 찾아 파일명을 SearchRec에 저장합니다.
//반환된 결과는 FindResult에 저장됩니다.
FindResult := FindFirst(Dir + '*.gif',FaAnyFile,SearchRec);
노력하다
while FindResult = 0 do //찾기 성공
시작하다
//목록에 파일 이름 추가
sList.Add(소문자(Dir + SearchRec.name));
//조건에 맞는 다음 파일을 계속해서 찾습니다.
FindResult := FindNext(SearchRec);
끝;