Telnet到Scounix执行并取得结果

       LOCAL telnet1


        telnet1=CREATEOBJECT("Dart.Telnet.1")


    Telnet1.Timeout = 100


    Telnet1.TermType = "vt100"


  False=.t.


  True=.t.


  


vbCrLf=CHR(13)+CHR(10)


    ** logfile = "Host" + HostIP + ".log"


    ** Telnet1.Trace(logfile, False, True, vbCrLf + "---> ", vbCrLf + "<--- ")


     


    thisform.AddLog(Tsys_kind,"正在连接主机 " + HostIP + " ..." + vbCrLf)


    


     


    ok = Telnet1.Connect(HostIP, 23)


     IF ok=""


      thisform.AddLog(Tsys_kind,"银联前置["+HostIP+"]连接失败!同银联中心链路无法检查。")


      thisform.showinfo("99","错误：银联前置连接失败!")


       thisform.warn


       thisform.command4.Picture="deng3.gif"


       thisform.command4.refresh


        telnet1.close


        RETURN


     ELSE


       telnet1.close


       Telnet1.Timeout = 10000

分页:[1] 2 3  下一页

版权申明:未经书面授权请勿转载本站信息!!作品版权归所属媒体与作者所有!!




 
 

 
发表评论：
匿名发表
用户名: 

查看评论




 
  

 
 








您将承担一切因您的行为、言论而直接或间接导致的民事或刑事法律责任

留言板管理人员有权保留或删除其管辖留言中的任意内容

本站提醒：不要进行人身攻击。谢谢配合。







在本站搜索相关信息




---搜索标题---














2003-2005 Ksw123.com All Rights Reserved. - TOP
闽ICP备06019577号 | 中国论文网 | 管理之道 | 中国资料网 | 养猪技术网 | 网站地图 | 

Copyright © 2006 Ksw123.com. All rights reserved.中国考题网 版权所有