Comment fermer une fenetre ou une application en VBS ? [Résolu]

MoRpHeUsTyLe 19 Messages postés mercredi 24 août 2005Date d'inscription 1 septembre 2005 Dernière intervention - 29 août 2005 à 16:44 - Dernière réponse : MoRpHeUsTyLe 19 Messages postés mercredi 24 août 2005Date d'inscription 1 septembre 2005 Dernière intervention
- 29 août 2005 à 19:54
Voila je recherche un code pour fermer une fenetre en vbs, et non en vb!Merci d'avance pour ceux ki me réponderon...
Afficher la suite 

2 réponses

yuri1961 71 Messages postés jeudi 16 juin 2005Date d'inscription 16 février 2007 Dernière intervention - 29 août 2005 à 19:01
+3
Utile
Salut!

Quel fenetre veux-tu fermer? Avant de fermer une fenetre il faut savoir comment elle etait ouvete.



Yuri
Cette réponse vous a-t-elle aidé ?  
MoRpHeUsTyLe 19 Messages postés mercredi 24 août 2005Date d'inscription 1 septembre 2005 Dernière intervention - 29 août 2005 à 19:54
+3
Utile
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"

' Dim shell
' Set shell = Wscript.CreateObject("Shell.application")
' shell.shutdown

Voila le script, et je voudrais fermer la calculette a la fin !
Cette réponse vous a-t-elle aidé ?  

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.