Foxtable(狐表)用户栏目专家坐堂 → 关于telnet类似实现方案?


  共有4513人关注过本帖树形打印复制链接

主题:关于telnet类似实现方案?

帅哥哟,离线,有人找我吗?
luodang2050
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:586 积分:5685 威望:0 精华:0 注册:2014/5/21 10:30:00
关于telnet类似实现方案?  发帖心情 Post By:2014/12/31 10:08:00 [显示全部帖子]

如题,搭建了服务器,并在网关上绑定了两个域名,服务器采用端口映射。
客户端连接时,先优先测试域名1,测试流程(先采用tryconnecthost测试域名是否可以解析,再采用ping测试域名是否可以连通)
但如果路由器正常而服务器挂掉的话,测试结果正常,服务器肯定是连接不上的,此种问题应该怎么解决?如果能够类似telnet测试端口就好了。

 回到顶部
帅哥哟,离线,有人找我吗?
luodang2050
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:586 积分:5685 威望:0 精华:0 注册:2014/5/21 10:30:00
  发帖心情 Post By:2014/12/31 11:08:00 [显示全部帖子]

田版,这个直连感觉效率很低,如果服务器挂掉的话,将测试很久,能否跟ping一样设置超时时间?

 回到顶部
帅哥哟,离线,有人找我吗?
luodang2050
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:586 积分:5685 威望:0 精华:0 注册:2014/5/21 10:30:00
  发帖心情 Post By:2014/12/31 14:49:00 [显示全部帖子]

田版,你好,那telnet例子打开提示:未定义数据类型“telnet.terminal”

 回到顶部
帅哥哟,离线,有人找我吗?
luodang2050
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:586 积分:5685 威望:0 精华:0 注册:2014/5/21 10:30:00
  发帖心情 Post By:2014/12/31 14:55:00 [显示全部帖子]

已经解决了,重新引用下就可以了,谢谢

 回到顶部
帅哥哟,离线,有人找我吗?
luodang2050
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:586 积分:5685 威望:0 精华:0 注册:2014/5/21 10:30:00
  发帖心情 Post By:2014/12/31 15:09:00 [显示全部帖子]

测试还是不成功,原因为telnet登陆后只有浮动光标,没有“login:”提示,此种情况应该怎么判断呢?
Dim tn As new Telnet.Terminal("127.0.0.1", 1433, 5, 0, 0) 'hostname, port, timeout [s], width, height
tn.Connect()
Dim f As String = tn.WaitForString("Login:")
If f = Nothing Then
    msgbox("不成功")
Else
    msgbox("成功")
End If
'tn.SendResponse("admin", True) 'send username
tn.Close()

 回到顶部
帅哥哟,离线,有人找我吗?
luodang2050
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:586 积分:5685 威望:0 精华:0 注册:2014/5/21 10:30:00
  发帖心情 Post By:2014/12/31 15:57:00 [显示全部帖子]

界面不返回任何信息,所以没有字符可判断,重新修改为以下代码就可以了,但是timeout超时时间设置了怎么无效呢?
Dim tn As new Telnet.Terminal("192.168.10.2", 1433,5, 0, 0) 'hostname, port, timeout [s], width, height
Dim f As Boolean = tn.Connect
'Dim f As String = tn.WaitForString("Login:")
If f = Nothing Then
    msgbox("不成功")
Else
    msgbox("成功")
End If
'tn.SendResponse("admin", True) 'send username
tn.Close()

 回到顶部
帅哥哟,离线,有人找我吗?
luodang2050
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:586 积分:5685 威望:0 精华:0 注册:2014/5/21 10:30:00
  发帖心情 Post By:2014/12/31 16:20:00 [显示全部帖子]

恩,dll插件有点不兼容,看来只能采用这种折中方案了

 回到顶部