Accueil > > > CREATION DU VERSION SHAREWARE
 CREATION DU VERSION SHAREWARE
 Information sur la source
 Description
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
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
 Sources de la même categorie
 Commentaires et avis
 Discussions en rapport avec ce code source dans le forum
date du jour [ par lea75 ]
Bonjour à tous,J'aimerais afficher dans 3 textbox la date du jour.Une pour le jour, l'autre pour le mois et pour l'année.J'ai mis dans une variable la
Déclenchement d'évènements à partir d'un TimeSpan [ par ROCHEREAU ]
Bonjour à tous.En tant que débutant je cherche à résoudre le problème suivant:J'entre une date à partir d'un DateTimePicker et une heure en H, M et S
C'est juste pour savoir si c'est bon (Shareware) [ par Sinsitrus ]
Salut ! Je réfléchissais sur une option de ShareWare et je me suis retrouvé avec ces idées : [list]1- Je récupère le nom d'utilisateur de l'ordinateu
appliquer un filtre un peu tordu avec DoCmd.ApplyFilter [ par flateur18 ]
Bonjour, c'est encore moi Cette fois c'est pour appliquer un filtre sur un champs d'une requête en VB ou SQL. Mon Champs contient des dates comm
ajouter un nombre a une date [ par niblon ]
Bonjour a tous je n'arrive pas a ajouter un chiffre a une date .j'explique : j'ai une form avec deux MaskedTextBox ((mtb_Date ) et (mtb_DateFin))et u
Date [ par bialain ]
J'ai un petit problème. j'ai une table des élèves de 10è année et un textebox dans une form pour y mettre les dates de naissance de ces élèves. Mais,
êxecution avec beetwen j' ai une erreur [ par petiflamand ]
Bonjour , je cherche une explication sur cette requete [code=vb]Set rs = db.OpenRecordset("select num_transaction,date_valeur,montant,nomination from
Optimisation de DTPicker [ par tonioux ]
Bonjour à tous. Peut-on dans un DTPicker faire que la date par défaut soit la date d'aujourd'hui +15 par exemple ? ou tout du moins qu'elle soit sim
Créer une copie du fichier excel d'un dossier (selon une date) et en transformer le nom [ par brice28 ]
Bonjour à tous, Comme indiqué dans le sujet, je cherche à automatiser la tache suivante: Dans une liste de fichiers excel, copier le fichier excel c
[Catégorie modifiée .Net --> VBA] probleme de date [ par licharna ]
Bonjour, en fait j'ai un probléme que j'arrive pas a resoudre depuis 3 jours. en fai je dois faire une fonction vbscript qui permet d'automatiser la
|
Derniers Blogs
 XNA IS DEAD!XNA IS DEAD! par richardc
Depuis la semaine dernière (et grâce aux TechDays 2012), je me penche activement sur la nouvelle version de Windows, aka Windows 8. Vous me direz, il était temps puisque la première preview date de Septembre dernier.
OK. Remarquez, on n'en est qu'aux...
Cliquez pour lire la suite de l'article par richardc TECHDAYS PARIS 2012 : WINDOWS SERVER "8" QUOI DE 9 !TECHDAYS PARIS 2012 : WINDOWS SERVER "8" QUOI DE 9 ! par ROMELARD Fabrice
Speakers: Fabrice Meillon et Stanislas Quastana Cette session est basée entièrement sur celle donnée lors de la BUILD cet hiver. Il n'y a pas d'ajout d'information en rapport avec cet évènement passé. Windows 8 Server sera intégralem...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice [HTML5] AUTOUR DU W3C : NOUVEAUX STANDARDS ET WEB MOBILE (LILLE)[HTML5] AUTOUR DU W3C : NOUVEAUX STANDARDS ET WEB MOBILE (LILLE) par Gio
Je m'y prends un peu tard je sais, mais bon je suis développeur web et donc hyper fainéant ! Toujours dans le cadre des technologies émergentes, ici HTML5, parce qu'on aime HTML5 chez Wyg , nous seront présent, le vieux ( Aurélien V.) et moi, pour pr...
Cliquez pour lire la suite de l'article par Gio [WP7] DYNAMICALLY CHANGE STARTUP PAGE[WP7] DYNAMICALLY CHANGE STARTUP PAGE par KooKiz
Let's say that you want to allow the user to customize the startup page of your application. You can easily change the startup page by editing the 'NavigationPage' attribute in the manifest file. But the manifest cannot be modified once the applicatio...
Cliquez pour lire la suite de l'article par KooKiz
Logiciels
 DocTranslate (V3.1.0.0)DOCTRANSLATE (V3.1.0.0)DocTranslate est un traducteur de document Microsoft Word, PowerPoint et Excel. Il permet d'autom... Cliquez pour télécharger DocTranslate Tribler (2012)TRIBLER (2012)Tribler est un client pair à pair (P2P/Peer-to-Peer) open source avec la capacité de regarder des... Cliquez pour télécharger Tribler OneSwarm (2012)ONESWARM (2012)Le peer-to-peer qui protège votre vie privée, c'est OneSwarm.
Ce logiciel de peer-to-peer crypté... Cliquez pour télécharger OneSwarm PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA TV DEVIENS HELLLOOO FLASH
LA TV SUR VOTRE ORDINATEUR.
Toute une plateforme Multi... Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO Academy System (17.2.1.0)ACADEMY SYSTEM (17.2.1.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System
|