VBScript - 获取下载进度

Question

我正在使用VBScript处理HTA，我无法从WGet或Aria2获取下载进度。

我试图使用以下代码从STDOUT中提取它，但是它给了我乱码而不是解析下载栏。

Const WshRunning = 0
Const WshFinished = 1
Const WshFailed = 2
Dim WshShellExec, Interval

Sub LaunchProcess
                Cmd = "get/wget -O- http://cachefly.cachefly.net/100mb.test"
                Set WshShellExec = CreateObject("WScript.Shell").Exec(Cmd)
Interval = window.setInterval(GetRef("UpdateStatus"),500)
End Sub    

Sub UpdateStatus
Dim status 
Set Status = Document.GetElementByID("Status")

Select Case WshShellExec.Status
    Case WshRunning
                    status.InnerHTML = WshShellExec.StdOut.ReadLine()
    Case WshFinished, WshFailed
                    status.InnerHTML = Replace(WshShellExec.StdOut.ReadAll(),vbCRLF,"<br>")
                    status.InnerHTML = "Done"
        window.clearInterval(Interval)
        Interval = Empty
End Select
End Sub                

不确定我哪里错了？或者我可以使用其他方法？我真正想要的是一种下载文件并通过百分比更新加载栏的方法。在使用VBScript或Javascript的HTA中这是不可能的吗？

由于