บทความนี้จะแนะนำวิธีการลบโฆษณาและบล็อก Tencent Browser ผ่านการทำงานของไฟล์ DELPHI
ยกตัวอย่าง OICQ2000b BUILD 0110 หลังจากวิเคราะห์หลักการทำงานของ OICQ อย่างรอบคอบ เราจะพบว่าโฆษณาในหน้าต่าง "ส่งข้อความ" ของ OICQ ทั้งหมดถูกบันทึกไว้ในโฟลเดอร์ AD ใต้ไดเร็กทอรีการติดตั้ง OICQ และเป็นรูปภาพทั้งหมด ในรูปแบบ GIF เมื่อไม่มีไฟล์ในโฟลเดอร์ AD OICQ จะเรียกรูปภาพ GIF ในโฟลเดอร์ DAT จากนั้นดาวน์โหลดรูปภาพโฆษณาและบันทึกลงในโฟลเดอร์ AD เพื่อการโทร สำหรับเบราว์เซอร์ Tencent คุณสามารถแทนที่ด้วยเบราว์เซอร์ Microsoft (สมมติว่าเบราว์เซอร์ปัจจุบันคือเบราว์เซอร์ IE ของ Microsoft)
หลังจากทำความเข้าใจสิ่งนี้แล้ว คุณสามารถใช้การทำงานของไฟล์ของ DELPHI เพื่อลบโฆษณาและบล็อก Tencent Browser ได้
ดังแสดงในรูป ให้เริ่ม DELPHI สร้างโปรเจ็กต์ใหม่ และวางตัวควบคุมต่อไปนี้บน FORM:
ในการลบแบนเนอร์โฆษณา แนวคิดคือต้องอ่านไฟล์รูปแบบ GIF ทั้งหมดในโฟลเดอร์ AD ก่อน จากนั้นแทนที่ด้วยภาพ GIF โปร่งใสขนาดเล็ก และในเวลาเดียวกันก็แทนที่ไฟล์ GIF ในโฟลเดอร์ DAT โปรแกรมมีการใช้งานดังนี้:
PROcedure TForm1.Del_adClick (ผู้ส่ง: TObject);
var
SearchRec : TsearchRec;
SList: รายการสตริง;
Dir, SDir:สตริง;
ฉัน FindResult : จำนวนเต็ม;
เริ่ม
Dir := edit1.Text; //เส้นทางการติดตั้ง OICQ
SList := Tstringlist.Create; //ใช้เพื่อบันทึกรายการไฟล์
//ตรวจสอบว่าเส้นทางการติดตั้ง OICQ ถูกต้องหรือไม่
หากไม่มีไฟล์อยู่ (edit1.text + 'oicq.exe') แล้ว
เริ่ม
application.MessageBox('เส้นทางไม่ถูกต้อง โปรดเลือกอีกครั้ง!',
'กรุณาเลือกใหม่',0);
ออก;
จบ;
//ตรวจสอบว่าอักขระสุดท้ายของสตริงพาธเป็น "" หรือไม่ ถ้าไม่ใช่ ให้เพิ่ม ""
ถ้า Dir[length(dir)] <> '' แล้ว
ผบ. := ผบ. + '';
Dir := Dir + 'โฆษณา';
//ค้นหาไฟล์ GIF ไฟล์แรกในโฟลเดอร์ และบันทึกชื่อไฟล์ใน SearchRec
//ผลลัพธ์ที่ส่งคืนจะถูกบันทึกไว้ใน FindResult
FindResult := FindFirst(Dir + '*.gif',FaAnyFile,SearchRec);
พยายาม
ในขณะที่ FindResult = 0 ทำ // ค้นหาสำเร็จ
เริ่ม
//เพิ่มชื่อไฟล์ลงในรายการ
sList.Add(ตัวพิมพ์เล็ก (Dir + SearchRec.name));
//ดำเนินการค้นหาไฟล์ถัดไปที่ตรงตามเงื่อนไข
FindResult := FindNext(SearchRec);
จบ;