在此处参考此答案Error: Object required: 'wscript' in HTA
HTA 引擎不提供 WScript 对象，因此 WScript.Quit 或 WScript.Sleep 或 Wscript.Echo 之类的内容在 HTA 中不起作用。
要以编程方式退出 HTA，请使用 Self.Close 或 window.Close。
要替换Sleep 方法，请参阅this question 的答案。
我做了一个小例子让你检查连接，我替换了
wscript.echo 的 wscript.echo （不能像我上面说的那样工作）<span id="DataArea"></span>
这是整个 HTA：
<html>
<head>
<title>Network Diagnostics And Checking Internet Connection by Hackoo 2020</title>
<HTA:APPLICATION
Application ID = "Check_Internet_Connection"
APPLICATIONNAME = "Check_Internet_Connection"
BORDER="THIN"
BORDERSTYLE="NORMAL"
CAPTION = "Yes"
CONTEXTMENU = "Yes"
ICON = "nslookup.exe"
INNERBORDER="NO"
MAXIMIZEBUTTON="NO"
MINIMIZEBUTTON="YES"
SCROLL="NO"
SELECTION="NO
SHOWINTASKBAR = "Yes"
SINGLEINSTANCE = "Yes"
SYSMENU = "Yes"
/>
<style type="text/css">
body {
font-family:Verdana;
font-size: 10x;
color: #49403B;
background: LightGreen;
}
</style>
</head>
<script Language="VBScript">
'--------------------------------------------------------------------------------------
Option Explicit
Dim Msg_Connected,Msg_NOT_Connected
Msg_Connected = "<Marquee DIRECTION=""Right"" SCROLLAMOUNT=""6"" BEHAVIOR=""ALTERNATE"">"&_
"<h2><font color=""GREEN""><strong>You Are Now Connected To The Internet !<strong></font></h2></Marquee><br><br>"&_
"<img src=""https://cdn2.unrealengine.com/Fortnite%2FBoogieDown_GIF-1f2be97208316867da7d3cf5217c2486da3c2fe6.gif""></img>"
Msg_NOT_Connected = "<Marquee DIRECTION=""Right"" SCROLLAMOUNT=""6"" BEHAVIOR=""ALTERNATE"">"&_
"<h3><font color=""RED""><strong>You Are Not Connected to the Internet ... We are trying to establish again your connection<strong></font></h3></Marquee>"
'--------------------------------------------------------------------------------------
Sub CenterWindow( widthX, heightY )
self.ResizeTo widthX, heightY
self.MoveTo (screen.Width - widthX)/2, (screen.Height - heightY)/2
End Sub
'--------------------------------------------------------------------------------------
Sub Window_OnLoad()
Dim MyLoop,strComputer,objPing,objStatus,ws
Set ws = CreateObject("wscript.shell")
CenterWindow 800,600
Call Shortcut()
MyLoop = True
While MyLoop
strComputer = "smtp.gmail.com"
Set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}!\\").ExecQuery _
("select * from Win32_PingStatus where address = '" & strComputer & "'")
For Each objStatus in objPing
If objStatus.Statuscode = 0 Then
MyLoop = False
DataArea.InnerHTML = Msg_Connected
WAN_IP.InnerHTML = "<h2><font color=""GREEN""><strong> WAN IP : " & Get_WAN_IP & "<strong></font></h2>"
SayIt()
'Call MyProgram() ' You can call all your Programs here after the connection has been established !
Exit for
Else
DataArea.InnerHTML = Msg_NOT_Connected
ws.run "%SystemRoot%\system32\msdt.exe -skip TRUE -path %Windir%\diagnostics\system\networking -ep NetworkDiagnosticsPNI"
End If
Next
Sleep(10) 'To sleep for 10 secondes
Wend
End Sub
'--------------------------------------------------------------------------------------
Sub Sleep(seconds)
CreateObject("WScript.Shell").Run "CMD /c ping 127.0.0.1 -n " & seconds,0,True
End Sub
'--------------------------------------------------------------------------------------
Function Get_WAN_IP()
Dim http
Set http = CreateObject("Microsoft.XMLHTTP" )
http.Open "GET", "http://icanhazip.com", False
http.Send
Get_WAN_IP= http.responseText
End Function
'--------------------------------------------------------------------------------------
Sub SayIt()
Dim fso,WaveFile,ws
Set ws = CreateObject("wscript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
WaveFile = WS.ExpandEnvironmentStrings("%LocalAppData%\Microsoft\Windows Sidebar\Gadgets\NetworkMonitorII.gadget\media\established.wav")
If fso.FileExists(WaveFile) Then
Play(WaveFile)
Sleep(5)
Play("http://94.23.221.158:9197/stream")
Else
CreateObject("SAPI.SpVoice").Speak "You are Connected to the internet"
Sleep(5)
Play("http://94.23.221.158:9197/stream")
End If
End Sub
'--------------------------------------------------------------------------------------
Sub Play(URL)
Dim ws,fso,f,TempName,TempFile,TempFolder
Set ws = CreateObject("wscript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
Tempname = fso.GetTempName
TempFolder = WS.ExpandEnvironmentStrings("%Temp%")
TempFile = TempFolder & "\" & Tempname & ".vbs"
Set f = fso.OpenTextFile(Tempfile,2,True)
f.Writeline "Call Play(" & chr(34) & URL & chr(34) & ")"
f.Writeline "Sub Play(URL)"
f.Writeline "Set Sound = CreateObject(""WMPlayer.OCX"")"
f.Writeline "Sound.URL = URL"
f.Writeline "Sound.settings.volume = 100"
f.Writeline "Sound.Controls.play"
f.Writeline "do while Sound.currentmedia.duration = 0"
f.Writeline "wscript.sleep 100"
f.Writeline "loop"
f.Writeline "wscript.sleep (int(Sound.currentmedia.duration)+1)*1000"
f.Writeline "End Sub"
f.close
ws.run Tempfile
End Sub
'--------------------------------------------------------------------------------------
Sub Stop_Playing()
Dim Command,ws
Set ws = CreateObject("wscript.Shell")
Command = "Cmd /C Taskkill /IM ""wscript.exe"" /F >nul 2>&1"
ws.run Command,0,True
Exit Sub
End Sub
'--------------------------------------------------------------------------------------
Sub Window_OnUnload()
Call Stop_Playing()
End Sub
'--------------------------------------------------------------------------------------
sub Shortcut()
dim shell,DesktopPath,Link,CurrentFolder,FullName,arrFN,HTA_Name
Set Shell = CreateObject("WScript.Shell")
CurrentFolder = shell.CurrentDirectory
DesktopPath = Shell.SpecialFolders("Desktop")
FullName = replace(Check_Internet_Connection.commandLine,chr(34),"")
arrFN=split(FullName,"\")
HTA_Name = arrFN(ubound(arrFN))
Link = GetFilenameWithoutExtension(HTA_Name)
Set link = Shell.CreateShortcut(DesktopPath & "\" & Link & ".lnk")
link.Description = HTA_Name
link.IconLocation = "nslookup.exe"
link.TargetPath = CurrentFolder & "\" & HTA_Name
link.WorkingDirectory = CurrentFolder
Link.HotKey = "CTRL+ALT+C"
link.Save
end Sub
'--------------------------------------------------------------------------------------
Function GetFilenameWithoutExtension(FileName)
Dim Result, i
Result = FileName
i = InStrRev(FileName, ".")
If ( i > 0 ) Then
Result = Mid(FileName, 1, i - 1)
End If
GetFilenameWithoutExtension = Result
End Function
'-------------------------------------------------------------------------------------
</script>
<body>
<center>
<span id="DataArea"></span>
</br></br>
<span id="WAN_IP"></span>
</center>
</body>
</html>
编辑：28/08/2020 @ 12:02
<html>
<head>
<title>Kiosk</title>
<HTA:APPLICATION
APPLICATIONNAME="Kiosk Launcher"
ID="kiosklauncher"
ICON="data/icon.ico"
VERSION="1.0"
CONTEXTMENU = "no"
BORDER="none"
INNERBORDER = "no"
SINGLEINSTANCE = "yes"
SHOWINTASKBAR = "yes"
SCROLL="no"/>
<script Language="VBScript">
'--------------------------------------------------------------------------------------
Option Explicit
Dim Msg_Connected,Msg_NOT_Connected
Msg_Connected = "<h5><font color=""white""><strong>Starter Kiosk<strong></font></h5>"
Msg_NOT_Connected = "<h5><font color=""RED""><strong>Error no internet<strong></font></h5>"
'--------------------------------------------------------------------------------------
Sub Window_OnLoad()
Dim MyLoop,strComputer,objPing,objStatus,ws
Set ws = CreateObject("wscript.shell")
window.resizeTo screen.availWidth/4,screen.availHeight/4
window.moveTo screen.availWidth/2.7,screen.availHeight/2.5
MyLoop = True
While MyLoop
strComputer = "smtp.gmail.com"
Set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}!\\").ExecQuery _
("select * from Win32_PingStatus where address = '" & strComputer & "'")
For Each objStatus in objPing
If objStatus.Statuscode = 0 Then
MyLoop = False
DataArea.InnerHTML = Msg_Connected
'Call Execute("SomeProgram.exe")
'Call Execute("BatScripts.bat")
Call Sleep(1)
'Call RefreshExplorer
'Call Execute("AnotherProram.exe")
Call Sleep(1)
'Call Execute("Launcher.bat")
'call test()
MsgBox "You are now connected to the Internet ! " & vbCrLf &_
"And The splash screen will exit now after you clicked on this Message Box !"
Call CloseHTA()
'Exit for
Else
DataArea.InnerHTML = Msg_NOT_Connected
End If
Next
Sleep(10) 'To sleep for 10 secondes
Wend
End Sub
'-----------------------------Sleep-----------------------------------------
Sub Sleep(seconds)
CreateObject("WScript.Shell").Run "%COMSPEC% /c ping 127.0.0.1 -n " & seconds+1,0, True
End Sub
'-----------------------------TEST-----------------------------------------
Sub CloseHTA()
Self.Close
End sub
'----------------------------Execute---------------------------------------
Sub Execute(Program)
Dim Shell ' You forget here to declare the variable Shell so be careful
set shell=CreateObject("Shell.Application")
' shell.ShellExecute "application", "arguments", "path", "verb", window
shell.ShellExecute ""&Program&"",,"data\", "runas", 0
set shell=nothing
End sub
'-----------------------------RefreshExplorer-----------------------------------
Function RefreshExplorer()
dim strComputer, objWMIService, colProcess, objProcess
strComputer = "."
'Get WMI object
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
& strComputer & "\root\cimv2")
Set colProcess = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = 'explorer.exe'")
For Each objProcess in colProcess
objProcess.Terminate()
Next
End Function
</script>
</head>
<body>
<div class="main">
<center><h2 style="text-align: center;">Kiosk Launcher</h2></center>
<center><div><img src="data/preloader.gif" class="preloader-scale" draggable="false" unselectable="on"></div></center>
<center><h4>Please wait</h4></center>
<center><span id="DataArea"></span></center>
</div>
</body>
</html>