| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1582 人关注过本帖
标题:求教大神一个telnet获取返回值的问题
只看楼主 加入收藏
lliuyong0801
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2020-3-2
结帖率:0
收藏
已结贴  问题点数:20 回复次数:2 
求教大神一个telnet获取返回值的问题
代码如下,就是调取CMD实现telnet功能,我想获取程序结束后CMD命令下的返回值,试了很多方法都不管用。有哪位大神指点小弟一下啊 ,最好是能获取返回值放入文本框中显示,或者存成文件我再去分析也行。小弟新手,望高人请指点。

Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Command1_Click()
Dim zl1 As String
Dim a As String
Dim username As String
Dim password As String
a = Left(Text2.Text, 2)
If a = "此处" Or a = "" Then
zl1 = "show onu unauthentication"
Else
zl1 = "show onu unauthentication epon-olt_" & Text2.Text
End If
username = olt.Text4.Text
password = olt.Text5.Text


Dim RetVal
RetVal = Shell("cmd /k " & "telnet xxx.xxx.xxx.xxx ", vbNormalFocus) '不关闭DOS窗口'运行bat文件,也可以是指令,由txtdosbat的内容决定.
Sleep 2000
SendKeys (username)    '发送回车键
SendKeys ("{ENTER}") '发送回车键
SendKeys (password)    '发送回车键
SendKeys ("{ENTER}") '发送回车键
SendKeys (zl1) '发送回车键
SendKeys ("{ENTER}") '发送回车键


End Sub


搜索更多相关主题的帖子: telnet 回车键 Long ByVal 发送 
2020-03-02 17:46
lliuyong0801
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2020-3-2
收藏
得分:0 
自己找到了解决办法,不用DOS命令执行telnet功能,改用secureCRT执行,保存日志,然后分析日志文件。我实在是太聪明了。降龙十八掌,第十八式,亢龙有悔,接招吧,赵无极。
2020-03-04 16:27
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:364
帖 子:4937
专家分:30047
注 册:2008-10-15
收藏
得分:20 
其实正确的方法是自己写一个 wimsock的应用,把这所需要的 telne 功能封装进去。


授人于鱼,不如授人于渔
早已停用QQ了
2020-03-05 12:03
快速回复:求教大神一个telnet获取返回值的问题
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.013626 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved