Utilice DELPHI para realizar cirugía en OICQ (1)

Este artículo presenta cómo eliminar anuncios y bloquear el navegador Tencent mediante operaciones de archivos DELPHI.

Tomando OICQ2000b BUILD 0110 como ejemplo, después de analizar cuidadosamente el principio de funcionamiento de OICQ, podemos encontrar que todos los anuncios en la ventana "Enviar mensaje" de OICQ se guardan en la carpeta AD en el directorio de instalación de OICQ, y todos son imágenes. en formato GIF. Cuando el archivo en la carpeta AD no existe, OICQ llama a la imagen GIF en la carpeta DAT, luego descarga la imagen publicitaria y la guarda en la carpeta AD para llamarla. En cuanto al navegador Tencent, puede reemplazarlo con el navegador de Microsoft (suponiendo que el navegador actual sea el navegador IE de Microsoft).

Después de comprender esto, puede utilizar las operaciones de archivos de DELPHI para eliminar anuncios y bloquear el navegador Tencent.

Como se muestra en la figura, inicie DELPHI, cree un nuevo proyecto y coloque los siguientes controles en el FORMULARIO:

En cuanto a la eliminación de banners publicitarios, la idea es leer primero todos los archivos en formato GIF en la carpeta AD, luego reemplazarlos con una pequeña imagen GIF transparente y al mismo tiempo reemplazar los archivos GIF en la carpeta DAT. El programa se implementa de la siguiente manera:

Procedimiento TForm1.Del_adClick(Remitente: TObject);

var

SearchRec: TsearchRec;

SList: Lista de cadenas;

Dir, SDir :cadena;

i, BuscarResultado: entero;

comenzar

Dir := edit1.Text; //Ruta de instalación de OICQ

SList := Tstringlist.Create //Se utiliza para guardar la lista de archivos

//Determinar si la ruta de instalación de OICQ es correcta

si el archivo no existe (edit1.text + 'oicq.exe') entonces

comenzar

application.MessageBox('La ruta es incorrecta, ¡elija nuevamente!',

'Por favor vuelva a seleccionar',0);

salida;

fin;

//Determine si el carácter final de la cadena de ruta es "", si no, agregue ""

si Dir[longitud(dir)] <> '' entonces

Directorio := Directorio + '';

Directorio: = Directorio + 'ANUNCIO';

//Busque el primer archivo GIF en la carpeta y guarde el nombre del archivo en SearchRec.

//El resultado devuelto se guarda en FindResult

FindResult := FindFirst(Dir + '*.gif',FaAnyFile,SearchRec);

intentar

while FindResult = 0 do //Buscar exitosamente

comenzar

//Añadir nombres de archivos a la lista

sList.Add(minúsculas(Dir + SearchRec.name));

//Continuar buscando el siguiente archivo que cumpla las condiciones

BuscarResultado := BuscarSiguiente(BuscarRec);

fin;