Creation du version shareware

Commenter

Contenu du snippet

je recherchais comment pouvoir définir une version shareware car je devais en faire une en exemple pour mon responsable de stage car est oui je suis stagiaires en développeur informatique.

j'ai donc crée un programme qui peut compléter n'importe quel autres programmes pour le rendre limités dans le temps.

pour ce faire j'utilise donc un fichier texte créer en notepad++, ou bloc notes et je me sert de sa date de création que je récupère dans mon programme et dont je fait la comparaison pour voir si elle n'est pas égale a la date du jour +365 jours.

vous pourrez apercevoir également dans ce petit soft que j'utilse le concepteur de curseur intégrer a visual studio 2005 et que je l'appelle au chargement de la fenêtre principale.
pondre a toute les questions ainsi qu'a toute les propositions pour pouvoir optimiser mon code

désoler de ne pas mettre de zip mais mon programme fait environ 5.52 mo et donc ne peut pas paraitre sur codes sources
a bientôt thiery laurent

Source / Exemple : 


le programme s'appelle AlerteMaj v.01:

-------------------------------------------------------------------------------------------------

Imports System.IO

Public Class Bienvenue

    Dim date_confirmer As Date
    'au démarage du formulaire principal
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'appel du nouveau curseur de souris
        Cursor = New Cursor("Cursor1.cur")

        'désactivation du bouton quitter
        Me.btnquitter.Visible = False

        'désactivation du bouton suivant
        Me.btnsuivant.Visible = False

        'instantion des paramètre de lecture des fichiers
        Try

            'si il existe config.xmlID est le document de référence
            Dim SR As StreamReader = File.OpenText("C:\Program Files\XPSP2\AlertMaj v.O2\config.xmlID.P00000444.txt")
            date_confirmer = SR.ReadLine

        Catch ex As Exception
            'sinon on prend config.xml comme date de référence
            Dim Rs As String = File.GetCreationTime("C:\Program Files\XPSP2\AlertMaj v.O2\config.xml.P00000444.txt")
            date_confirmer = Rs

        End Try

        'comparaison de la date du jour avec la date de création du programme
        Dim Span As TimeSpan = Now - date_confirmer

        'si la date de creation du programme est superieure a 0 alors
        If Span.TotalDays > 0 Then
            'désactivation du bouton quitter
            btnquitter.Visible = False

            'activation du bouton suivant
            btnsuivant.Visible = True

            'remplissage du label message information
            Label1.Text = "Bienvenue et merci d'utiliser les programmes concues par I.D.E.E.S."

            'remplissage du label date
            Label2.Text = "Date d'installation du programme" & date_confirmer

            'appel du formulaire
            Me.Show()
        End If

        'si la date de création du programme est supèrieure a 365 jours alors
        If Span.TotalDays > 364 Then
            'incrematation du label par rapport au nombre de jour qui change constament

            Label1.Text = "Fin de validiter du programme veuillez appeller I.D.E.E.S. 06.62.80.47.56"

            'désactivation du bouton suivant
            btnsuivant.Visible = False

            'activation du bouton quitter
            btnquitter.Visible = True

            'lecture de la date de création du programme

            Label2.Text = "Date d'installation du programme" & date_confirmer

            'Appel de la fenêtre de mise a jour
            Me.Show()

        End If

        'si l'on arrive a 30 jours de la date de fin du programme alors
        If Span.TotalDays >= 330 Then
            'incrematation du label par rapport au nombre de jour qui change constament
            Me.Label1.Text = "Le programme arrive a expiration dans " & Span.Days - 364 & " jours " & Span.Hours & " heures et " & Span.Minutes & " minutes penser a appeller I.D.E.E.S. 06.62.80.47.56"

            'désactivation du bouton quitter
            Me.btnquitter.Visible = False

            'activation du bouton suivant 
            Me.btnsuivant.Visible = True

            'appel du formulaiire principal
            Me.Show()

        End If

        'si la date de création et superieure a la date du jour alors
        If Span.TotalDays < 0 Then
            'appel de messagebox pour date anterieure a la date de création du programme
            MessageBox.Show("Erreur date du systeme incorecte le programme va se fermer veuillez appelez l'administrateur systeme", "Erreur Fatale !!!!", MessageBoxButtons.OK, MessageBoxIcon.Error)

            'activation du bouton quitter
            btnquitter.Visible = True

            'désactivation du bouton suivant
            btnsuivant.Visible = False

        End If
    End Sub

    Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnquitter.Click
        Environment.Exit(0)
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsuivant.Click
        MessageBox.Show("et la on peut loger le programme")
        Environment.Exit(0)
    End Sub
End Class

Conclusion :


j'ai était tres content d'avoir un tel défit personnel car je ne suis pas le roi de la programmation et que ce programme allait m'apprendre a gérer des choses que je ne connaissait pas encore.

je souhaite en tout cas remercier de tout coeur les menbres de codes sources ici présents:

Kevin.Ory,

mortalino,

fauve,

pour avoir répondu a mes questions sur le forums de codes sources et je remercie également le web master ainsi que tout les admin codes sources pour se site qui est tout simplement le site de référence des développeur

thiery laurent

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.