Добро пожаловать в мир HTA.
Короткий ответ: вы можете просто вызвать closeWin () (ваш подпрограмма vbscript с квадратными скобками) из функции javascript.
Во время тестирования вашего кода у меня возникли некоторые ошибки, потому что html-части, вызывающие functins onsubmit и onclick, должны указывать язык в теге
<input type="button" onclick="myfunction()" language="javascript"/>
Кроме того, самое важное, что вам нужно знать о файлах HTA, - это указать, какую версию Internet Explorer будет использовать этот файл. По умолчанию это 7, я думаю, поэтому вы обнаружите, что более поздние HTML, такие как "заполнитель", не будут работать. Вы можете изменить это с помощью метатега (см. Ниже). Не превышайте 10, если хотите, чтобы vbscript работал.
<meta http-equiv="x-ua-compatible" content="ie=10" />
** ОБНОВЛЕНИЕ **
Я посмотрел на ваш обновленный код, и именно браузер открывает форму разрешения. Вам действительно не нужна форма для отправки или даже для того, чтобы текстовое поле и кнопка содержались внутри формы.
Я изменил вашу подпрограмму onload и добавил к ней код фокуса, так как получал ошибку, потому что Javascript работал до VBScript и не мог установить фокус. Я вынул функцию setFocusToTextBox ()
Единственное, чего не хватает, так это того, что запрос не обрабатывается автоматически, когда пользователь нажимает клавишу ВВОД, поэтому ему приходится нажимать кнопку. Есть способ обойти это, но это не очень большая проблема.
Sub Window_Onload
window.resizeTo 640, 480
dataarea.innerhtml = "" & _
"<p>" & _
"<h4>FDM Username:" & _
"<input type=""text"" id=""uname"" placeholder=""Username (eg: SMITHA)"" required/></h4>" & _
"<center><h5>(eg: WHITEP)</h5></center>" & _
"<br>" & _
"<h4><input class=""button"" name=""button"" type=""button"" value=""Submit Request"" id=""SubBtn"" onclick=""WriteFile()""/></h4>" & _
"</p>"
document.getElementById("uname").focus()
end sub