阅读VBScript窗口以获取答案并批量执行

Question

SETLOCAL ENABLEDELAYEDEXPANSION
curl "http://example.net/?u=%VARIABLE%" >> TXT.txt
wscript "C:\THAT.vbs" 
start "" "http://url.com/%VARIABLE%"
exit

我有（上面）运行CURL的批处理文件，并将输出写入txt文件。 而这个（下）VBS文件读取内容和显示信息。 正如你可以看到有我的批处理文件启动命令。 如果我在vbs窗口中单击“是”，则要执行该启动命令。 如果我的vbs窗口中单击不，我想去退出。

Option Explicit
Const conForReading = 1
Dim objFSO, objReadFile, objFile, contents, result, shell, WshShell, somestring, txFldr2Open
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile("TXT.txt") 

If objFile.Size > 0 Then 
Set objReadFile = objFSO.OpenTextFile("TXT.txt", 1, False)
contents = objReadFile.ReadAll
result = MsgBox ("HEADTEXT;" & vbCr & contents & "",vbYesNo+vbExclamation+vbSystemModal,"HEADQUESTION?")
Select Case result
Case vbYes
LET THE BATCH FILE KNOW ANSWER IS YES
Case vbNo
LET THE BATCH FILE KNOW ANSWER IS NO
End Select
objReadFile.close

Else 
End If  

Set objFSO = Nothing 
Set objReadFile = Nothing 
WScript.Quit() 

有可能做到吗？ 如果可以，怎么办？

Answer 1

使用vbscript中的退出代码将选择返回到批处理脚本

批处理文件

SETLOCAL ENABLEDELAYEDEXPANSION
curl "http://example.net/?u=%VARIABLE%" >> TXT.txt
cscript //nologo "C:\THAT.vbs" 
if not errorlevel 1 (
    start "" "http://url.com/%VARIABLE%"
)
exit

那.vbs

Option Explicit
Const conForReading = 1
Dim objFSO, contents, result

    result = 1

    Set objFSO = CreateObject("Scripting.FileSystemObject")

    If objFSO.GetFile("TXT.txt").Size > 0 Then 

        contents = objFSO.OpenTextFile("TXT.txt", 1, False).ReadAll

        If MsgBox ("HEADTEXT;" & vbCr & contents & "",vbYesNo+vbExclamation+vbSystemModal,"HEADQUESTION?") = vbYes Then
            result = 0
        End If 

    End If  

    WScript.Quit result