command-line - 呼叫间隔 VBS 或 Batch

Question

我正在尝试编写一个从命令行运行的简单聊天程序，该程序使用文本文件作为“数据库”。我在尝试创建自动更新功能同时仍在监听用户输入时被卡住了。javascript是否有功能；vbscript 或批处理中的 setTimeout(functon(),int milliSec)？

这是我想每秒调用的函数：

Function read()
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objTextFile = objFSO.OpenTextFile _
        ("c:\chat.txt", 1)
    Do Until objTextFile.AtEndOfStream
        txtOutput = objTextFile.ReadLine
        Wscript.Echo txtOutput
    Loop
    objTextFile.Close
End Function

或批量：

:read
type c:\chat.txt

当命令行正在侦听输入时，我该如何调用这些？

batch: set /p var="Say:"
vbs: WScript.StdOut.Write("Say:")

Answer 1

我最终用用户界面代替了 VB.Net。现在很好用：）谢谢