Создал этот сценарий для цикла Alt + Tab каждые 3 sec с использованием HTA. Что мне здесь не хватает?
<HTA:APPLICATION
border = "thin"
borderStyle = "normal"
caption = "yes"
scroll = "no"
scrollFlat = "yes"
/>
<script language = "VBScript">
Option Explicit
Sub btnSETUP_Click
Dim objShell
Set objShell = CreateObject("WScript.Shell")
Do
objShell.SendKeys "%+{TAB}"
WScript.Sleep 30000
Loop
End Sub
</script>
Затем следует HTML-страница с кнопкой
<head>
<meta name = "viewport" content = "width=device-width, initial-scale=1">
</head>
<body>
<p><center><input type = "button" id = "btnSETUP" name = "btnSETUP" value = "Loop Keys" onclick = "btnSETUP_Click"></button></center><div align = "right">
</body>
</html>
Возвращенная ошибка:
Error: Object required: 'WScript'
нашел решение, заменив весь vbsript на ниже: Sub SendCAPS() set WshShell = CreateObject("WScript.Shell") WshShell.SendKeys "{LWIN}" window.setTimeOut "SendCAPS", 2000 End Sub





Помимо того, что объект
WScriptнедоступен в HTA, вы отправляете Alt + Shift + Tab (%-> Alt,+-> Shift,{Tab}-> Tab), и вы будете отправлять его каждые 30 секунд.