MULTI-APPS

Dim nb, temps1, temps2, temps3, temps4, temps5, temps6, temps7, temps8, app1, app2, app3, app4, app5, app6, app7, app8 As String
Private Sub Form_Load()
Open "APPS.TXT" For Input As #1
Line Input #1, nb
If nb >= 1 Then
Line Input #1, app1
Line Input #1, temps1
End If
If nb >= 2 Then
Line Input #1, app2
Line Input #1, temps2
End If
If nb >= 3 Then
Line Input #1, app3
Line Input #1, temps3
End If
If nb >= 4 Then
Line Input #1, app4
Line Input #1, temps4
End If
If nb >= 5 Then
Line Input #1, app5
Line Input #1, temps5
End If
If nb >= 6 Then
Line Input #1, app6
Line Input #1, temps6
End If
If nb >= 7 Then
Line Input #1, app7
Line Input #1, temps7
End If
If nb >= 8 Then
Line Input #1, app8
Line Input #1, temps8
End If
If nb > 8 Then nb = 8
Close #1
test = Shell(app1, vbNormalFocus)
Timer1.Interval = temps1 * 1000
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Timer1.Enabled = False
If nb >= 2 Then
test = Shell(app2, vbNormalFocus)
Timer2.Interval = temps2 * 1000
Timer2.Enabled = True
Else: End
End If
End Sub
Private Sub Timer2_Timer()
Timer2.Enabled = False
If nb >= 3 Then
test = Shell(app3, vbNormalFocus)
Timer3.Interval = temps3 * 1000
Timer3.Enabled = True
Else: End
End If
End Sub
Private Sub Timer3_Timer()
Timer3.Enabled = False
If nb >= 4 Then
test = Shell(app4, vbNormalFocus)
Timer4.Interval = temps4 * 1000
Timer4.Enabled = True
Else: End
End If
End Sub
Private Sub Timer4_Timer()
Timer4.Enabled = False
If nb >= 5 Then
test = Shell(app5, vbNormalFocus)
Timer5.Interval = temps5 * 1000
Timer5.Enabled = True
Else: End
End If
End Sub
Private Sub Timer5_Timer()
Timer5.Enabled = False
If nb >= 6 Then
test = Shell(app6, vbNormalFocus)
Timer6.Interval = temps6 * 1000
Timer6.Enabled = True
Else: End
End If
End Sub
Private Sub Timer6_Timer()
Timer6.Enabled = False
If nb >= 7 Then
test = Shell(app7, vbNormalFocus)
Timer7.Interval = temps7 * 1000
Timer7.Enabled = True
Else: End
End If
End Sub
Private Sub Timer7_Timer()
Timer7.Enabled = False
If nb = 8 Then
test = Shell(app8, vbNormalFocus)
Timer8.Interval = temps8 * 1000
Timer8.Enabled = True
Else: End
End If
End Sub
Private Sub Timer8_Timer()
Timer8.Enabled = False
End
End Sub

Télécharger le zip

• NOKIA'S SONG ECOUTER UN MELODIE NOKIA 3310
• MEGA COMPRESSION SON WAV (CODE NON-TERMINÉ) WINMM
• CHECK FILES
• CONNECTTIME
• SKINNER UNE FORM PAR TRANSPARENCE AVECUN SYSTEME MULTI PICTURES

• DÉTECTER L'APPARIATION DES SCROLLBARS DANS UN SCROLLABLECONTROL ET TRANSFORMATION EN SLIDER
• AJOUTER N'IMPORTE QUEL RACCOURCI À VOS MENUS (HOOK CLAVIER)
• CLIQUER SUR UN LIEN JAVASCRIPT / CONTRÔLE DE INTERNET EXPLORER / REMPLIR UN FORMULAIRE AUTOMATIQUEMENT / ROBOT
• USERFORM PLEIN ÉCRAN SOUS EXCEL VBA
• LIMITER LE NOMBRE DE LIGNES DANS UN TEXTBOX

• SAUVEGARDE AUTOMATIQUE
• VÉRIFIER SI UNE APPLICATION EST LANCÉ, SINON ON LA DÉMARRE !
• PROGRAMME DE DICHOTOMIE AVEC PRÉCISION DE 10^-30 SOIT 28 CHIFFRES APRÈS LA VIRGULE
• OUVERTURE D'UN FICHIER PAR UN LOGICIEL EXTERNE
• RÉCUPÉRER LE HANDLE APRÈS UN SHELLEXECUTE