تقدم هذه المقالة كيفية إزالة الإعلانات وحظر متصفح Tencent من خلال عمليات ملف DELPHI.
بأخذ OICQ2000b BUILD 0110 كمثال، بعد التحليل الدقيق لمبدأ عمل OICQ، يمكننا أن نجد أن الإعلانات في نافذة "إرسال رسالة" في OICQ كلها محفوظة في مجلد AD ضمن دليل تثبيت OICQ، وكلها عبارة عن صور. بتنسيق GIF. في حالة عدم وجود الملف الموجود في مجلد AD، يقوم OICQ باستدعاء صورة GIF الموجودة في مجلد DAT، ثم يقوم بتنزيل صورة الإعلان وحفظها في مجلد AD للاتصال. أما بالنسبة لمتصفح Tencent، فيمكنك استبداله بمتصفح Microsoft (بافتراض أن المتصفح الحالي هو متصفح Microsoft IE).
بعد فهم ذلك، يمكنك استخدام عمليات ملف DELPHI لإزالة الإعلانات وحظر متصفح Tencent.
كما هو موضح في الشكل، ابدأ تشغيل DELPHI، وأنشئ مشروعًا جديدًا، ثم ضع عناصر التحكم التالية في النموذج:
فيما يتعلق بإزالة اللافتات الإعلانية، فالفكرة هي أولاً قراءة جميع ملفات تنسيق GIF الموجودة في مجلد AD، ثم استبدالها بصورة GIF صغيرة شفافة، وفي نفس الوقت استبدال ملفات GIF الموجودة في مجلد DAT. ويتم تنفيذ البرنامج على النحو التالي:
PROcedure TForm1.Del_adClick(Sender: TObject);
فار
SearchRec : TsearchRec;
SList: قائمة Tstring؛
دير، SDir :سلسلة؛
i، FindResult : عدد صحيح؛
يبدأ
Dir :=edit1.Text; // مسار تثبيت OICQ
SList := Tstringlist.Create; // يستخدم لحفظ قائمة الملفات
// تحديد ما إذا كان مسار تثبيت OICQ صحيحًا
إذا لم يكن الملف موجودًا (edit1.text + 'oicq.exe') إذن
يبدأ
application.MessageBox('المسار غير صحيح، يرجى الاختيار مرة أخرى!',
'يرجى إعادة التحديد',0);
مخرج؛
نهاية؛
// تحديد ما إذا كان الحرف النهائي لسلسلة المسار هو ""، وإذا لم يكن كذلك، أضف ""
إذا كان Dir[length(dir)] <> '' إذن
دير := دير + '';
دير := دير + 'م'؛
// ابحث عن ملف GIF الأول في المجلد، واحفظ اسم الملف في SearchRec.
// يتم حفظ النتيجة التي تم إرجاعها في FindResult
FindResult := FindFirst(Dir + '*.gif',FaAnyFile,SearchRec);
يحاول
بينما FindResult = 0 قم بإجراء //البحث بنجاح
يبدأ
// أضف أسماء الملفات إلى القائمة
sList.Add(lowercase(Dir + SearchRec.name));
// تابع العثور على الملف التالي الذي يلبي الشروط
FindResult := FindNext(SearchRec);
نهاية؛