mercredi 13 décembre 2017

VBS popup MSGBOX qui ne bloque pas l'execution du script VBS





Si vous aussi souhaitez afficher un message dans un script VBS sans pour autant que le script ne s'arrête le temps que l'utilisateur ne clic sur OK, voici un exemple un peu moche mais qui marche :


'declaration des variables
dim wshShell

set wshShell=CreateObject("Wscript.Shell")

'création d'un fichier vbs temporaire
wshShell.run("%comspec% /c echo MSGBOX (""YOUR MESSAGE"") > C:\temp\test_multi_msgbox\message.vbs")

'ok
'wshShell.run "%comspec% /c cscript C:\temp\test_multi_msgbox\message.vbs",0
'wshShell.run "%comspec% /c cscript C:\temp\test_multi_msgbox\message.vbs",0
'nok
'wshShell.run "%comspec% /c cscript C:\temp\test_multi_msgbox\message.vbs",1'
'wshShell.run "%comspec% /c cscript C:\temp\test_multi_msgbox\message.vbs",1
'ok
'wshShell.run "%comspec% /c call C:\temp\test_multi_msgbox\message.vbs",2
'wshShell.run "%comspec% /c call C:\temp\test_multi_msgbox\message.vbs",2
'nok
'wshShell.run "%comspec% /c call C:\temp\test_multi_msgbox\message.vbs",3
'wshShell.run "%comspec% /c call C:\temp\test_multi_msgbox\message.vbs",3
'nok
'wshShell.run "%comspec% /c call C:\temp\test_multi_msgbox\message.vbs",4
'wshShell.run "%comspec% /c call C:\temp\test_multi_msgbox\message.vbs",4
'nok
'wshShell.run "%comspec% /c call C:\temp\test_multi_msgbox\message.vbs",5
'wshShell.run "%comspec% /c call C:\temp\test_multi_msgbox\message.vbs",5
'ok mais en bas
wshShell.run "%comspec% /c call C:\temp\test_multi_msgbox\message.vbs",6
wshShell.run "%comspec% /c call C:\temp\test_multi_msgbox\message.vbs",6
'ok
'wshShell.run "%comspec% /c call C:\temp\test_multi_msgbox\message.vbs",7
'wshShell.run "%comspec% /c call C:\temp\test_multi_msgbox\message.vbs",7
'nok
'wshShell.run "%comspec% /c call C:\temp\test_multi_msgbox\message.vbs",8
'wshShell.run "%comspec% /c call C:\temp\test_multi_msgbox\message.vbs",8
'nok
'wshShell.run "%comspec% /c call C:\temp\test_multi_msgbox\message.vbs",9
'wshShell.run "%comspec% /c call C:\temp\test_multi_msgbox\message.vbs",9
'nok
'wshShell.run "%comspec% /c call C:\temp\test_multi_msgbox\message.vbs",10
'wshShell.run "%comspec% /c call C:\temp\test_multi_msgbox\message.vbs",10

'wshShell.run "%comspec% /Q cscript C:\temp\test_multi_msgbox\message.vbs",3, True
'wshShell.run "%comspec% /Q call C:\temp\test_multi_msgbox\message.vbs",4, True

'wshShell.run "%comspec% /c /Q cscript C:\temp\test_multi_msgbox\message.vbs",5, True
'wshShell.run "%comspec% /c /Q call C:\temp\test_multi_msgbox\message.vbs",0, True


msgbox("le script se poursuit malgré les msgbox précédant")
'suppression du fichier temporaire VBS
wshShell.run("%comspec% /c del C:\temp\test_multi_msgbox\message.vbs /f /q")


Aucun commentaire:

Enregistrer un commentaire