<script>

close();
//onerror=function(){close();};throw 0;

close();
close();
for(var i=0;i<100;i++)
    close();
var a=0;
a++;
a++;
a++;
close();

alert('"Baby, can\'t you see?\n'+
'I\'m calling\n'+
'A guy like you\n'+
'Should wear a warning\n'+
'It\'s dangerous\n'+
'I\'m falling..."'+String.fromCharCode(169));

</script>

<script>
showModalDialog('javascript:setTimeout(function(){close();},3000);', 0, 'dialogWidth:0;unadorned:1;');
alert('I am shown in 3 seconds of waiting!');
</script>

<script>
setTimeout(function(){alert('I am shown after all other messages!');}, 1000);

GetObject('\\','htmlfile').parentWindow.setTimeout(function(){alert('I am shown in 2 seconds of waiting!');}, 2000);

showModalDialog('javascript:setTimeout(function(){close();},3000);', 0, 'dialogWidth:0;unadorned:1;');
alert('I am shown in 3 seconds of waiting!');
</script>

<script>
/*
HTA silent stop and close v1.0.1 (h t t p s://tastyscriptsforfree.wix.com/page/scripts)
Copyright 2017-2020 Vladimir Samarets. All rights reserved.
tastyscriptsforfree@protonmail.com

Release date: November 1, 2020.


Use this script sample entirely at your own risk.
This script sample is copyrighted freeware and I am not responsible for any damage or data loss it could unintentionally cause.
You may modify it but please leave a comment with direct link to https://tastyscriptsforfree.wix.com/page/scripts in that case.


*******
The purpose of this script sample:
the script sample is intended for demonstration of how to obtain silent stop for script in HTA and how to close delayed script gracefully.

*******
The script sample has the following special features:

it requires no third party software installation and supports any Windows version since XP with certain ActiveX objects not restricted by default;
it is entirely written in JScript in HTA scripting file format and uses the following ActiveX objects: WScript.Shell, Scriptlet.TypeLib, Shell.Application, htmlfile and Shell.Explorer.2
    also known as Microsoft Web Browser;
it was tested and adapted for Windows XP, Windows 7 and Windows 10;
it writes no registry values and stores no personal settings on your hard disk;
it doesn't access network in any way;
it obtains silent stop for script in HTA and closes delayed script gracefully.

*******
The script sample demonstrates:

how to hide HTA while having it dynamically created;
how to obtain silent stop for script in HTA;
how to close delayed script gracefully;
and how to deal with confirmed immediate "moveTo" or "resizeTo" issues at application start in Windows XP.

*******
Basic documentation and articles I used:

'WSH: exchanging data and objects between scripts - 2' by Xameleon (March, 2011) in Russian
    (h t t p://forum.script-coding.com/viewtopic.php?id=5573);

'InternetExplorer and WebBrowser objects' by Ludogovskiy Aleksander in Russian
    (h t t p s://script-coding.com/WSH/WebBrowser.html);

'Windows Script 5.6 Documentation' (script56.chm) by Microsoft Corporation
    (h t t p s://w w w.microsoft.com/en-us/download/confirmation.aspx?id=2764);
'MSDN' related documentation by Microsoft Corporation
    (h t t p s://docs.microsoft.com/en-us/);

Windows XP moveTo and resizeTo issues:
'"Access is denied" by executing .hta file with JScript on Windows XP x64' discussion on stackoverflow.com (January 21, 2009)
    (h t t p s://stackoverflow.com/questions/464679/access-is-denied-by-executing-hta-file-with-jscript-on-windows-xp-x64);
'Something strange with HTAs' discussion on social.technet.microsoft.com (September 19, 2011)
    (h t t p s://social.technet.microsoft.com/Forums/officeocs/en-US/92bf1e76-ebd5-4462-bd52-533e69305a5c/something-strange-with-htas?forum=ITCG).

*******
Basic software I used:

AkelPad 4.9.8 by Aleksander Shengalts and Alexey Kuznetsov (as development environment)
    (h t t p://akelpad.sourceforge.net/en/download.php);
OLE/COM Object Viewer v2.10.059 (oleview.exe) by Charlie Kindel, Michael Nelson, and Michael Antonio (for documentation purposes).
*/

document.title='I am the MASTER script!';
var ID = new ActiveXObject('Scriptlet.TypeLib').GUID.substr(0, 38);     //the unique ID obtaining
document.documentElement.firstChild.insertAdjacentHTML('afterBegin', '<object id=' + ID +
    ' classid=clsid:8856F961-340A-11D0-A96B-00C04FD705A2><param name=RegisterAsBrowser value=1>');      //registering current HTA window in collection of windows

alert('Wait for 3 seconds till the OUTER script is started.');
GetObject('\\','htmlfile').parentWindow.setTimeout      //a timeout here is to show the master script is stopped long before the "The outer script wants me to close now." message appears
(
    function()                                                                   //the outer script will be executed with a timeout on behalf of the "htmlfile" while the master script is being in stopped state
    {
        new ActiveXObject('WScript.Shell').Run('mshta "about:<title>I am the OUTER script!<\/title><body>I want the MASTER script to close.</body><script>'+
            '!function hide(e){try{moveTo(10000,10000);}catch(e){try{hide();}catch(e){hide();}}}();resizeTo(400,100);moveTo(screen.availWidth/2-200,screen.availHeight/2-200);'+
            'for(var ws=new ActiveXObject(\"Shell.Application\").Windows(),i=ws.Count;i-->0;)if((w=ws.Item(i))&&w.id==\"'+ID+'\"){setTimeout(function(){w.s.close();},3000);break;}<\/script>"');
    }
    ,
    3000
);

showModalDialog('javascript:for(var ws=new ActiveXObject("Shell.Application").Windows(),i=ws.Count;i-->0;)if((w=ws.Item(i))&&w.id=="'+ID+'"){w.s=document.Script;break;}', 0,
'dialogWidth:0;unadorned:1;');                                     //silent stop of the script

close(alert('The OUTER script wants me to close now.\n\nI am going to close myself gracefully without any further attempts of executing the rest statements of my code.'));

onerror=function(){close();};throw 0;                             //declining any further attempts of executing the rest statements of the code
alert("You won't hear my sound or see me if previous code line is present.");

</script>