DIM fso, WshShell, Start, Mini, check, map
WScript.Sleep 800
'maak map'
Set fso = CreateObject("Scripting.FileSystemObject")
Set map = fso.CreateTextFile("C:\Windows\System32\autox.bat", True)
map.WriteLine("md C:\Windows\System32\autox")
map.Close
set objShell = CreateObject("WScript.Shell")
objShell.Run("C:\Windows\System32\autox.bat")
'maak een check bestand'
Set fso = CreateObject("Scripting.FileSystemObject")
Set check = fso.CreateTextFile("C:\Windows\System32\autox\check.bat", True)
check.WriteLine("if exist autox.dll Taskkill /im wscript.exe /f")
check.WriteLine("del check.bat /q")
check.Close
WScript.Sleep 100
'voer check bestand uit'
set objShell = CreateObject("WScript.Shell")
objShell.Run("check.bat")
WScript.Sleep 800
'start explorer'
Set fso = CreateObject("Scripting.FileSystemObject")
Set Start = fso.CreateTextFile("C:\Windows\System32\autox\start.bat", True)
Start.WriteLine("start explorer.exe")
Start.Close
'start een batch minimaliseerd'
Set fso = CreateObject("Scripting.FileSystemObject")
Set Mini = fso.CreateTextFile("C:\Windows\System32\autox\minimaliseer.bat", True)
Mini.WriteLine("start /min test.bat")
Mini.Close
'controle bestand maken'
Set fso = CreateObject("Scripting.FileSystemObject")
Set Mini = fso.CreateTextFile("C:\Windows\System32\autox\autox.dll", True)
Mini.WriteLine("dont look at me :'(")
Mini.Close