Soyez le premier à donner votre avis sur cette source.
Snippet vu 10 748 fois - Téléchargée 52 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
14 janv. 2002 à 20:25
10 janv. 2002 à 20:02
http://www.vbfrance.com/article.asp?Val=3164
:-)
9 janv. 2002 à 22:33
desoler ! :-# j'ai mal compris '
9 janv. 2002 à 22:22
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.