vbscript - VBscript 远程登录具有可变时间戳的字符串

Question

我正在尝试与服务器上的侦听端口建立 telnet 连接，并发送各种数据字符串，其中之一应该是 unix 时间戳。这是我尝试做的一个例子：

Set cloner = CreateObject("WScript.Shell")
cloner.run"cmd"
WScript.Sleep 500

cloner.SendKeys"telnet 192.168.1.7 6996"
cloner.SendKeys("{Enter}")

cloner.SendKeys"__BEGIN__"
cloner.SendKeys("{Enter}")

cloner.SendKeys"__1347042718__"
cloner.SendKeys("{Enter}")

cloner.SendKeys"         1     0                 2      0          "
cloner.SendKeys("{Enter}")

cloner.SendKeys"__END__"
cloner.SendKeys("{Enter}")

现在这就像一个魅力，但我现在想用下面的结果替换 __ 之间的静态时间戳（1347042718）：

WScript.Echo DateDiff("s", "01/01/1970 00:00:00", Now()) - -4 * 3600

此外，我想在上面提到的初始字符串集之后每 30 秒发送一个新的 __timestamp __string。有没有办法循环一个 sendkeys 命令？

我的脚本知识很少，所以我能得到的细节越多越好。:)

非常感谢您提供的任何帮助。

Answer 1

当然，您可以SendKeys()像任何其他命令一样循环。

Do
  timestamp = DateDiff("s", #01/01/1970#, Now) + 4 * 3600
  cloner.SendKeys "__" & timestamp & "__"
  cloner.SendKeys "{Enter}"
  WScript.Sleep 30000
Loop While True