[ms] anti pubs multimania.

Télécharger le projet
Commenter

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.
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

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.

Du même auteur (maxsecurite)