Enlever pub multimania !!!!!

Contenu du snippet

Ce code est tout simple mais très efficase, qui ajoute un script à une page HTML pour que la pub chiante de multimania ne s'affiche pas :)
ça fais depuis longtemps que j'ai trouvé cette faille qui ne peux être corrigée : c'est un <TEXTAREA> après le </HTML> et le script va être dans le textarea ! Si Multimania corrige la faille avec un </TEXTAREA> au début de son script de pub alors on peux mettre un autre <TEXTAREA> !!!!!!!!!!!!!!!!!

Voilà comment à 13ans je trouve une big faille incorrigeable dans mon lit en me réveillant en sursaut ;)

---------------------------------
-- COMPOSANTS DU FORM --
---------------------------------
-> 1 DriveListBox : Drive1
-> 1 DirListBox : Dir1
-> 1 FileListBox : File1
-> 1 Bouton : Command1
---------------------------------

Maintenant passez au script qui est supper simple

Source / Exemple :


Private Sub Command1_Click()
' On rdéfini le chemin du fichier sélectionné 
file = Dir1.Path & "\" & File1.filename

' On écrit à la fin du fichier
a = FreeFile
Txt = "<textarea rows=" & Chr(34) & "1" & Chr(34) & "cols=" & Chr(34) & "1" & Chr(34) & ">"
Open file For Append As a
    Print #a, Txt
Close a

End Sub

Private Sub Dir1_Change()
' Quand on change de dossier on change le path du File1
File1.Path = Dir1.Path
End Sub

Private Sub Drive1_Change()
' Quand on change de lecteur on change le path du Dir1
Dir1.Path = Drive1.Drive
End Sub

Conclusion :


Voilà ce script m'a pris 3 minutes ...
Comme je l'ai dejà dit j'ai que 13ans donc je ne fais pas des miracles car personne ne m'a apris le VB : complétement autodidacte :D

D'autres astuces ?
Allez voir mon site : www.jeuxenligne.fr.st

A voir également

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.