Cet article explique comment supprimer les publicités et bloquer le navigateur Tencent via les opérations sur les fichiers DELPHI.
En prenant OICQ2000b BUILD 0110 comme exemple, après avoir soigneusement analysé le principe de fonctionnement de l'OICQ, nous pouvons constater que les publicités dans la fenêtre « Envoyer un message » de l'OICQ sont toutes enregistrées dans le dossier AD sous le répertoire d'installation de l'OICQ, et ce sont toutes des images. au format GIF. Lorsque le fichier dans le dossier AD n'existe pas, l'OICQ appelle l'image GIF dans le dossier DAT, puis télécharge l'image publicitaire et l'enregistre dans le dossier AD pour l'appeler. Quant au navigateur Tencent, vous pouvez le remplacer par le navigateur Microsoft (en supposant que le navigateur actuel soit le navigateur IE de Microsoft).
Après avoir compris cela, vous pouvez utiliser les opérations sur les fichiers de DELPHI pour supprimer les publicités et bloquer le navigateur Tencent.
Comme le montre la figure, démarrez DELPHI, créez un nouveau projet et placez les contrôles suivants sur le FORM :
Concernant la suppression des bannières publicitaires, l'idée est de lire d'abord tous les fichiers au format GIF dans le dossier AD, puis de les remplacer par une petite image GIF transparente, et en même temps de remplacer les fichiers GIF dans le dossier DAT. Le programme est mis en œuvre comme suit :
PRocédure TForm1.Del_adClick(Expéditeur : TObject);
var
SearchRec : TsearchRec;
Liste SL : liste de chaînes T ;
Rép, SDir :string;
i, FindResult : entier ;
commencer
Rép := edit1.Text; //Chemin d'installation de l'OICQ
SList := Tstringlist.Create; //Utilisé pour enregistrer la liste des fichiers
//Déterminer si le chemin d'installation de l'OICQ est correct
sinon le fichier existe (edit1.text + 'oicq.exe') alors
commencer
application.MessageBox('Le chemin est incorrect, veuillez choisir à nouveau !',
'Veuillez resélectionner',0);
sortie;
fin;
//Détermine si le caractère de fin de la chaîne du chemin est "", sinon, ajoute ""
si Rép[longueur(rép)] <> '' alors
Rép := Rép + '';
Rép := Rép + 'AD';
//Trouvez le premier fichier GIF du dossier et enregistrez le nom du fichier dans SearchRec.
//Le résultat renvoyé est enregistré dans FindResult
FindResult := FindFirst(Dir + '*.gif',FaAnyFile,SearchRec);
essayer
while FindResult = 0 do //Rechercher avec succès
commencer
//Ajoute les noms de fichiers à la liste
sList.Add(minuscules(Dir + SearchRec.name));
//Continuer à rechercher le prochain fichier qui remplit les conditions
FindResult := FindNext(SearchRec);
fin;