从 VBA 运行 Telnet 会话

Question

我有一个可以执行 FTP 功能的 VBA 库，我也想执行 telnet 操作。目前，我正在编写一个 Perl 脚本，该脚本基于文本文件执行 telnet，但我想从 VBA 内部本地驱动 telnet 连接。有人有这方面的资料吗？我不想使用加载项，我需要代码是独立的。

Answer 1

如果您可以使用 MS WinSock 控件 （另请参阅在 VBA 中使用 Winsock）

更多资源：

MSDN 库：使用 Winsock 控件

(Visual Basic) Winsock Control

如果没有，您也许可以使用 cmd.exe 和 SendKeys：

免责声明：我从下面的第二个链接复制了以下代码，并针对 VBA 稍微修改了它。

sub telNETScript()
On Error Resume Next
Dim WshShell as object

set WshShell=CreateObject("WScript.Shell")
WshShell.run "cmd.exe"
WScript.Sleep 1000

'Send commands to the window as needed - IP and commands need to be customized
'Step 1 - Telnet to remote IP'
WshShell.SendKeys "telnet xx.xx.xx.73 9999"
WshShell.SendKeys ("{Enter}")
WScript.Sleep 1000

'Step 2 - Issue Commands with pauses'
WshShell.SendKeys ("{Enter}")
WScript.Sleep 1000
WshShell.SendKeys "5"
WshShell.SendKeys ("{Enter}")
WScript.Sleep 1000

'Step 3 - Exit Command Window
WshShell.SendKeys "exit"
WshShell.SendKeys ("{Enter}")
WScript.Quit

end sub

SendKeys 不是最好或最可靠的解决方案，但它是我 12 年前在上一份工作中执行此操作时所能找到的。

详细信息：

Telnet 和Excel - Microsoft.excel.programming

如何自动化 Telnet 命令使用 VBScript