作者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