Comment fermer un programme (ex: la claculatrice de windob) ? En vbs...

Résolu
Messages postés
19
Date d'inscription
mercredi 24 août 2005
Statut
Membre
Dernière intervention
1 septembre 2005
-
Messages postés
19
Date d'inscription
mercredi 24 août 2005
Statut
Membre
Dernière intervention
1 septembre 2005
-
Dans le script ci-dessou, je voudrais fermer la calculatrice a fin du programme...Merci d'avance a tous ceux ki me réponderons...

--------------------------------prog-------------------------------------

msgbox"Mini calculette de windob !",vbcritical,"Calculons..."

MyChian = 9
Do Until DefResp = vbNo
Mychian = Int( Mychian -- 1 )

kis1 = inputbox("Voici une calculette...Chosissez ici votre premier nombre...","1er nombre","Votre nombre ici")
kis3 = inputbox("Votre signe...exemple : + ou - ou * ou /" & vbcrlf & " " & vbcrlf & "Pour la racine carré tapez : _ (touche 8)" & vbcrlf & " " & vbcrlf & "Pour l'inverse tapez : r ","signe","le chiffre")
if kis3 <> "_" and kis3 <> "r" then kis2=inputbox("2eme chiffre...","2eme chiffre","Votre deuxieme chiffre...")

Set variable=CreateObject("WScript.Shell")
if Mychian = 10 then variable.Run("C:\windows\Calc.exe")

if kis3 "_" or kis3 "r" then
wscript.sleep 5
variable.SendKeys (" " & kis1 & " ")
wscript.sleep 5
variable.SendKeys (" {"& kis3 &"} ")
wscript.sleep 5
variable.SendKeys ("{enter}")
else
wscript.sleep 5
variable.SendKeys (" " & kis1 & " ")
wscript.sleep 5
variable.SendKeys (" {"& kis3 &"} ")
wscript.sleep 5
variable.SendKeys (" " & kis2 & " ")
wscript.sleep 5
variable.SendKeys ("{enter}")
Set WshShell = Nothing
End if

DefResp = MsgBox ("Voulez vous recomencez ?",vbinformation+vbyesno,"Question...")
Loop

msgbox"fermeture de la calculette!",vbexclamation,"Fermeture"

-------------------------------la je voudrais fermer la calculatrice-------



Voila le script, et je voudrais fermer la calculette a la fin !
A voir également:

7 réponses

Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
49
ok, s'il te convient, cimer de clôturer le message en acceptant la réponse adéquate pour les futurs lecteurs
PCPT
Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
49
salut....
bah pourquoi ne pas envoyer un "ALT+F4"
(si l'utilisateur ne l'a pas déjà fait )
PCPT
Messages postés
19
Date d'inscription
mercredi 24 août 2005
Statut
Membre
Dernière intervention
1 septembre 2005
1
ça ne marche pa :

variable.SendKeys ("{alt}+{f4}")

je me trompe pe etre ?
Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
49
salut
variable.SendKeys "%{F4}"
PCPT
Messages postés
29
Date d'inscription
jeudi 23 juin 2005
Statut
Membre
Dernière intervention
25 mars 2009

il faudrais que tu utilise la meme sorte d'apel au programme de calculette sauf qu'au lien de metre run par exemple, tu met close... ou alors si tu a fait apel a la calculette grace a un objet, tu met cette commande: objet.close
Messages postés
19
Date d'inscription
mercredi 24 août 2005
Statut
Membre
Dernière intervention
1 septembre 2005
1
ok cimer pour lé message !
Messages postés
19
Date d'inscription
mercredi 24 août 2005
Statut
Membre
Dernière intervention
1 septembre 2005
1
voila sé fé !