怎么用Tcl实现BBS的自动登陆

如何用Tcl实现BBS的自动登陆?
在网上找了找资料,   大概是用Expect的样子,   于是我写了以下的一段:

package   require   Expect

spawn   telnet   202.112.17.137
expect   "请输入帐号 "
send   "YourAccountID\r "
expect   "请输入密码 "
send   "YourPassword\r "
expect   "*甜酸苦辣版* "
send   "\r "
expect   "您想删除重复的 "
send   "\r "
expect   "按任何键继续 "
send   "\r "
expect   "按任何键继续 "
send   "\r "
expect   "上次连线时间 "
send   "\r "
expect   "按任何键继续 "
send   "\r "

用这段code可以实现Telnet的自动登陆,   但是有个问题,   就是登陆成功后,   程序并没有把控制权返回给我(现在是登陆成功后又自动断开了),   这是要用到Interact么?   但这个Interact又该怎么用?

请教达人~~


[解决办法]
只能幫頂了
[解决办法]
没学过tcl。我觉得如果楼主需要用的话最好认真学一学tcl的基础，毕竟还是很有用的东西。