Petit soucis de script VBS
TheSpeedWave
Messages postés
2
Statut
Membre
-
TheSpeedWave Messages postés 2 Statut Membre -
TheSpeedWave Messages postés 2 Statut Membre -
Bonjour,
Voila, ce matin je m'amusais à programmer un petit script, pour m'amuser et surtout apprendre, mais j'ai un soucis. Voici mon script :
msg=inputbox(msg, "Quel est votre prénom ?")
Heure ="Il est " & Hour(Now) & "h " & Minute(Now) & "min et " & Second(Now) & "sec."
if Hour(Now)<=18 then
Message="Bonjour"
else
Message= "Bonsoir"
end if
if Hour(Now)<=18 then
Message2="Passez une bonne journée !"
else
Message2= "Passez une bonne soirée !"
end if
if msg<>"" then
MsgBox Message & " " & msg & " !" & vbnewline & Heure & vbnewline & Message2,vbInformation + vbOkOnly + vbApplicationModal + 0,""
end if
if msg="" then
MsgBox "Veuillez entrer votre prénom.",vbCritical + vbOkOnly + vbApplicationModal + 0,""
end if
Comme vous le voyez, si dans mon inputbox, il n'y a rien de marqué, le script annonce une erreur, soit, mais moi j'aimerais ajouter une commande pour retourner au début de mon script, parce que là, après l'erreur, mon script se ferme.
J'espère avoir été clair sur mes indication,
Cordialement.
Voila, ce matin je m'amusais à programmer un petit script, pour m'amuser et surtout apprendre, mais j'ai un soucis. Voici mon script :
msg=inputbox(msg, "Quel est votre prénom ?")
Heure ="Il est " & Hour(Now) & "h " & Minute(Now) & "min et " & Second(Now) & "sec."
if Hour(Now)<=18 then
Message="Bonjour"
else
Message= "Bonsoir"
end if
if Hour(Now)<=18 then
Message2="Passez une bonne journée !"
else
Message2= "Passez une bonne soirée !"
end if
if msg<>"" then
MsgBox Message & " " & msg & " !" & vbnewline & Heure & vbnewline & Message2,vbInformation + vbOkOnly + vbApplicationModal + 0,""
end if
if msg="" then
MsgBox "Veuillez entrer votre prénom.",vbCritical + vbOkOnly + vbApplicationModal + 0,""
end if
Comme vous le voyez, si dans mon inputbox, il n'y a rien de marqué, le script annonce une erreur, soit, mais moi j'aimerais ajouter une commande pour retourner au début de mon script, parce que là, après l'erreur, mon script se ferme.
J'espère avoir été clair sur mes indication,
Cordialement.
A voir également:
- Petit soucis de script VBS
- Vbs windows - Accueil - Optimisation
- Script vidéo youtube - Guide
- Mas script - Accueil - Windows
- Petit point vert snap ✓ - Forum Snapchat
- Ghost script - Télécharger - Polices de caractères
1 réponse
Dim msg
msg=""
While msg=""
msg=inputbox(msg, "Quel est votre prénom ?")
Heure ="Il est " & Hour(Now) & "h " & Minute(Now) & "min et " & Second(Now) & "sec."
if Hour(Now)<=18 then
Message="Bonjour"
else
Message= "Bonsoir"
end if
if Hour(Now)<=18 then
Message2="Passez une bonne journée !"
else
Message2= "Passez une bonne soirée !"
end if
if msg<>"" then
MsgBox Message & " " & msg & " !" & vbnewline & Heure & vbnewline & Message2,vbInformation + vbOkOnly + vbApplicationModal + 0,""
end if
if msg="" then
MsgBox "Veuillez entrer votre prénom.",vbCritical + vbOkOnly + vbApplicationModal + 0,""
end if
wend
J'ai touvé tout seul la solution
msg=""
While msg=""
msg=inputbox(msg, "Quel est votre prénom ?")
Heure ="Il est " & Hour(Now) & "h " & Minute(Now) & "min et " & Second(Now) & "sec."
if Hour(Now)<=18 then
Message="Bonjour"
else
Message= "Bonsoir"
end if
if Hour(Now)<=18 then
Message2="Passez une bonne journée !"
else
Message2= "Passez une bonne soirée !"
end if
if msg<>"" then
MsgBox Message & " " & msg & " !" & vbnewline & Heure & vbnewline & Message2,vbInformation + vbOkOnly + vbApplicationModal + 0,""
end if
if msg="" then
MsgBox "Veuillez entrer votre prénom.",vbCritical + vbOkOnly + vbApplicationModal + 0,""
end if
wend
J'ai touvé tout seul la solution