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

Résolu
MoRpHeUsTyLe Messages postés 19 Date d'inscription mercredi 24 août 2005 Statut Membre Dernière intervention 1 septembre 2005 - 31 août 2005 à 16:20
MoRpHeUsTyLe Messages postés 19 Date d'inscription mercredi 24 août 2005 Statut Membre Dernière intervention 1 septembre 2005 - 1 sept. 2005 à 14:05
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 !

7 réponses

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

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

je me trompe pe etre ?
0
PCPT Messages postés 13272 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 47
1 sept. 2005 à 11:26
salut
variable.SendKeys "%{F4}"
PCPT
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
animusaquila Messages postés 29 Date d'inscription jeudi 23 juin 2005 Statut Membre Dernière intervention 25 mars 2009
1 sept. 2005 à 11:38
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
0
MoRpHeUsTyLe Messages postés 19 Date d'inscription mercredi 24 août 2005 Statut Membre Dernière intervention 1 septembre 2005 1
1 sept. 2005 à 13:47
ok cimer pour lé message !
0
MoRpHeUsTyLe Messages postés 19 Date d'inscription mercredi 24 août 2005 Statut Membre Dernière intervention 1 septembre 2005 1
1 sept. 2005 à 14:05
voila sé fé !
0
Rejoignez-nous