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

Messages postés
19
Date d'inscription
mercredi 24 août 2005
Statut
Membre
Dernière intervention
1 septembre 2005
- - Dernière réponse : MoRpHeUsTyLe
Messages postés
19
Date d'inscription
mercredi 24 août 2005
Statut
Membre
Dernière intervention
1 septembre 2005
- 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

Meilleure réponse
Messages postés
71
Date d'inscription
jeudi 16 juin 2005
Statut
Membre
Dernière intervention
16 février 2007
3
Merci
Salut!

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



Yuri

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 215 internautes nous ont dit merci ce mois-ci

Messages postés
19
Date d'inscription
mercredi 24 août 2005
Statut
Membre
Dernière intervention
1 septembre 2005
3
Merci
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 !

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 215 internautes nous ont dit merci ce mois-ci