作者ahlbks (好還是不好??)
看板Visual_Basic
標題[VBA ] vba telnet到指定位址後下指令
時間Thu Jun 2 14:08:00 2011
各位先進好，
小弟想用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