我有一个可以进行FTP的VBA库,我也想做Telnet。目前,我正在通过调用一个基于文本文件的Perl脚本来实现Telnet,但我希望能够在VBA内部直接驱动Telnet连接。有人有这方面的源代码吗?我不想使用插件,需要代码是自包含的。
我有一个可以进行FTP的VBA库,我也想做Telnet。目前,我正在通过调用一个基于文本文件的Perl脚本来实现Telnet,但我希望能够在VBA内部直接驱动Telnet连接。有人有这方面的源代码吗?我不想使用插件,需要代码是自包含的。
SendKeys
: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年前所能找到的全部。
更多信息: