[ms] anti pubs multimania.

Soyez le premier à donner votre avis sur cette source.

Vue 3 382 fois - Téléchargée 222 fois

Description

Ce programme,
à été créé pour les designer (perso) qui n'ont pas les moyens de s'acheter un vrai serveur sans pub. Et qui eût sont souvent chez Multimania.

PS : C'est mon premier programme sur ce site, et j'ai 13 ans soyez indulgent.
Merci

Source / Exemple :


'|||||||||||||||||||||
'||    Créé par     ||
'||   MaxSECURITE   ||
'|||||||||||||||||||||
                                  
' Ce programme est une utilisation de l'astuce trouver par BlackWizard dans HZV
'HS n° 5 p16
Private Sub Form_Load()
On Error Resume Next
debut:
On Error GoTo erreur
antipub.Visible = False
adressefichier.Visible = False
adressefichier.Text = ""
chercheur.FileName = adressefichier.Text
Dim sFile As String
Dim sPath As String
Dim lPosition As Long
Dim sPathEXE As String
chercheur.Filter = "Fichier Htm / Html à patcher (*.html)|*.htm"
chercheur.FileName = ""
chercheur.ShowOpen
adressefichier.Text = chercheur.FileName
a = FreeFile
Txt = antipub
Open adressefichier For Append As a
Print #a, Txt
GoTo ok
GoTo debut
ok:
On Error GoTo erreur
MsgBox "Le fichier " & chercheur.FileTitle + ", " + "à été patcher avec succes."
Dim recommencer As Long
recommencer = MsgBox("Voulez vous patcher un autre fichier ?", vbYesNo)
If (recommencer = 6) Then
GoTo debut
Else
MsgBox "Merci de porter, un interet à APM."
End
End If
erreur:
Reponse = MsgBox("Impossible, de patcher ce fichier !!", vbRetryCancel + Apparence + TypeDeBox, "Erreur")
Select Case Reponse
Case vbRetry
GoTo debut
Case vbCancel
MsgBox "Merci de porter, un interet à APM."
End
End Select
End Sub

Conclusion :


J'aimerais remercié particulirement BlackWizzard, qui à trouver cette astuce.

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

freddy1787
Messages postés
60
Date d'inscription
mardi 24 juin 2003
Statut
Membre
Dernière intervention
19 avril 2009

Salut,

Heu, je voudrais juste dire un truc:
Si ta page et en .php il n'y a pas de pub!
Meme s'il n'y a que de l'html dans tes pages
renomes les en .php(sa marche, et c'est plus pratique après si tu veux t'amuser en VB c'est bien aussi ;-) )!!

Voila,

Freddy
Plumesec
Messages postés
15
Date d'inscription
jeudi 5 août 2004
Statut
Membre
Dernière intervention
19 juin 2005

si g bien compris tu n'as pas besoin du code source ^^


s iil a joint le code source c'ets parske c le concept du site de donner des codes sources


sinon il te suffit de dl le zip et tu execute le fichier sur tes pages...
horus78
Messages postés
4
Date d'inscription
jeudi 8 mai 2003
Statut
Membre
Dernière intervention
23 septembre 2003

Je comprend pas unefois ke j ai copier le script je le colle ou?
cs_Draculaa
Messages postés
1
Date d'inscription
jeudi 21 août 2003
Statut
Membre
Dernière intervention
24 août 2003

Tu fais pitié a dire que ta 13 ans ... ca ce vois que t un gamin
ZeSpaceDroid
Messages postés
17
Date d'inscription
mercredi 9 octobre 2002
Statut
Membre
Dernière intervention
15 mars 2003

putin c génial ca faisait longtemps ke je voulais enlever ces à$ùùt'è de pubs mais je trouvai pas le code. Encore bravo en tout cas je te met 10

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.