Enlever pub multimania !!!!!

Soyez le premier à donner votre avis sur cette source.

Snippet vu 4 588 fois - Téléchargée 41 fois

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

Ajouter un commentaire

Commentaires

c00ol
Messages postés
40
Date d'inscription
dimanche 22 décembre 2002
Statut
Membre
Dernière intervention
9 septembre 2007

Merci pour le conseil mais javai pas bien compris le principe du prog;-) je suis nul en vb c un fet...lol mai bon :p^^ japprend tou doucement mais vraiment tout doucement lol...enfin merci
PS: j'avais compris la source mais pas comment il y a plus la pub...
cs_azerty25
Messages postés
1115
Date d'inscription
jeudi 19 décembre 2002
Statut
Membre
Dernière intervention
6 mai 2007

Tu devrai te caller un bon livre de VB pour progresser si tu le veut car c'est vraiment simple comme code, tu ne le comprend pas car il te manque des bases, et un ptit truc que tu connai pas + un autre sa devient vite un gros morceau qu'on connait pas ;)
C'est ce que je fait en ce moment, car j'ai pas programmé pendant une longue période et ce que j'avai lu et un peu pres retenu avant s'est volatilisé :'(
Bonne chance si tu veut progresser
c00ol
Messages postés
40
Date d'inscription
dimanche 22 décembre 2002
Statut
Membre
Dernière intervention
9 septembre 2007

Moi je pige po cmt il fonctionne:$
cs_Urgo
Messages postés
780
Date d'inscription
lundi 16 décembre 2002
Statut
Membre
Dernière intervention
16 avril 2009
1
mdr
Sef6 t vraiment un pommé toi, NB c'est pas une insulte, ça veux dire débutant en français tellement sa source est nulle !
sef6
Messages postés
14
Date d'inscription
vendredi 17 janvier 2003
Statut
Membre
Dernière intervention
6 août 2004

Urgo tu pourai être un peu plus gentille dans tes messages
Je trouve que tu ne peux pas critiquer cette personne car tu na fais encore aucun programme en vb ( jparle po de source posté ) ok tu est entrain den faire un je sais mais tu leech alor insulte po les otre. ( je connai urgo personnelement )

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.