Bonjour, recherche un script avant execution
Fermé
saillant
-
Modifié par baladur13 le 29/03/2011 à 18:16
zitoune-anticip Messages postés 15 Date d'inscription mardi 29 mars 2011 Statut Membre Dernière intervention 30 mars 2011 - 29 mars 2011 à 21:55
zitoune-anticip Messages postés 15 Date d'inscription mardi 29 mars 2011 Statut Membre Dernière intervention 30 mars 2011 - 29 mars 2011 à 21:55
A voir également:
- Bonjour, recherche un script avant execution
- Script vidéo youtube - Guide
- Recherche automatique des chaînes ne fonctionne pas - Guide
- Copains d'avant qui a visité mon profil ✓ - Forum Réseaux sociaux
- Dans la présentation à télécharger, sarah avait encadré directement le titre de certaines diapositives avant d’automatiser cette mise en forme pour tout le document. sur quelles diapositives avait-elle encadré directement le titre ? ✓ - Forum Bureautique
- Retrouver mon compte copains d'avant - Forum Réseaux sociaux
1 réponse
zitoune-anticip
Messages postés
15
Date d'inscription
mardi 29 mars 2011
Statut
Membre
Dernière intervention
30 mars 2011
29 mars 2011 à 21:55
29 mars 2011 à 21:55
colle ça donne bloc note enregistre en .vbs
Dim aide
aide = MsgBox("lors des premières utilisations une illustration est disponible désirez-vous la voir ?", vbQuestion + vbYesNo, "Z!T¤ùN£ @NT!C!P-W!N-32")
'si reponse oui
If aide = vbYes Then
'ouverture image d'illustration suite à la réponse oui
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "mon\chemin\fichier.exe "
End If
Dim aide
aide = MsgBox("lors des premières utilisations une illustration est disponible désirez-vous la voir ?", vbQuestion + vbYesNo, "Z!T¤ùN£ @NT!C!P-W!N-32")
'si reponse oui
If aide = vbYes Then
'ouverture image d'illustration suite à la réponse oui
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "mon\chemin\fichier.exe "
End If