0

サーバーのリスニングポートへのTelnet接続を確立し、さまざまなデータ文字列を送信しようとしています。そのうちの1つは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秒ごとに新しい__タイムスタンプ__stringを送信したいと思います。sendkeysコマンドをループする方法はありますか?

私はスクリプトの知識がほとんどないので、詳細を取得できるほど良いです。:)

あなたが提供できるどんな助けにも感謝します。

4

1 に答える 1

0

SendKeys()もちろん、他のコマンドと同じようにループできます。

Do
  timestamp = DateDiff("s", #01/01/1970#, Now) + 4 * 3600
  cloner.SendKeys "__" & timestamp & "__"
  cloner.SendKeys "{Enter}"
  WScript.Sleep 30000
Loop While True
于 2012-09-11T01:05:14.803 に答える