VBs记录（.txt）telnet输出

Question

一个非常简单的脚本，为我（反复）需要检查@ work;

的东西节省时间

Set cloner = CreateObject("WScript.Shell")  
cloner.SendKeys"telnet 0.0.0.0"  
cloner.SendKeys("{Enter}")  
WScript.Sleep 1000  
cloner.SendKeys("whatever")  

而且，我希望输出到.txt。

Answer 1

尝试这个

Set cloner = CreateObject("WScript.Shell")
 cloner.Run "cmd.exe"
 WScript.Sleep 1000
 cloner.SendKeys"telnet 0.0.0.0 -f out.txt"
 cloner.SendKeys("{Enter}")
 WScript.Sleep 1000
 cloner.SendKeys("whatever") 

Answer 2

代码只生成一个空白的txt;其中没有字符串。