從VBA運行Telnet會話

Question

我有一個做FTP的VBA庫，我也想做telnet。目前，我正在向一個基於文本文件的telnet執行Perl腳本，但我想從VBA中本地驅動telnet連接。有沒有人有任何來源？我不想使用加載項，我需要代碼是獨立的。

Answer 1

如果你能use the MS WinSock control（見using winsock in VBA）

更多資源：

MSDN Library: Using the Winsock Control

(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

How to automate Telnet commands using VBScript