[VBA ] vba telnet到指定位址後下指令
各位先進好,
小弟想用VBA telnet到指定位址後,然後下所需的指令,
然後output出對方的回應訊息,
google很久還是試不太出來,想請教一下,
測試目的:
我想連到台大圖書館 tulips.ntu.edu.tw 帳號 tulips
Dim Name01
Dim PW01
Dim System
Name01 = InputBox("Name eingeben")
'PW01 = InputBox("PW eingaben")
System = "tulips.ntu.edu.tw"
Open "c:\telnet.bat" For Output As #1
Print #1, "@echo off"
Print #1, "telnet " & System '%1 %2"
Print #1, "pause"
Print #1, Name01
Print #1, PW01
Close #1
Shell "c:\telnet.bat", vbNormalFocus
End Sub
以上都可以連過去,但登錄時,都必須花五秒左右系統才會回應,
似乎無法順利讀我的telnet.bat檔的帳號跟接下來的指令...
不知有無解決辦法???
所以我想利用下面方式,讓系統停止,
再利用SendKeys輸入帳號,但都出現需要物件錯誤(***),
而且SeedKeys似乎不會在我telnet的視窗下執行,
都跑去我的程式碼編輯窗上執行了...
想請問一下要如何解決???
Sub vvv()
Set oShell = CreateObject("WScript.Shell")
oShell.Run "telnet tulips.ntu.edu.tw", 9
WScript.sleep 500 "***
oShell.SendKeys "tulips{ENTER}"
end sub
先感謝各位了.....
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 122.120.42.36