Soyez le premier à donner votre avis sur cette source.
Snippet vu 10 493 fois - Téléchargée 49 fois
Dim da, app, test, temps, v As String Dim dn As Date Private Sub Form_Load() Open "C:\APP.TMP" For Output As #1 Print #1, Date Close #1 'On Error GoTo Bug Open "APP.TXT" For Input As #2 Line Input #2, dn Line Input #2, app Line Input #2, temps Close #2 'On Error GoTo 0 Date = dn test = Shell(app, vbNormalFocus) Timer1.Interval = temps * 1000 Timer1.Enabled = True GoTo s Bug: v = MsgBox("Il y a eu un problème avec le fichier APP.TXT", vbCritical + vbOKOnly, "Date - www.jeuxenligne.fr.st") s: End Sub Private Sub Timer1_Timer() Open "APP.TMP" For Input As #1 Line Input #1, da Close #1 Date = da End End Sub
http://www.vbfrance.com/article.asp?Val=3164
:-)
desoler ! :-# j'ai mal compris '
c'est clair que si quelqun tombe sur une protection pareil il reste dedans !! (de rire)
vaut encore mieux mettre un disclamer ! il a plus de chance d'etre respecter !:-)
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.