Foxtable(狐表)用户栏目专家坐堂 → 运行DOS命令


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

主题:运行DOS命令

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


加好友 发短信
等级:幼狐 帖子:104 积分:1115 威望:0 精华:0 注册:2021/8/13 23:18:00
运行DOS命令  发帖心情 Post By:2022/10/28 9:09:00 [只看该作者]

版主:
     如何运行DOS命令并获取返回的结果,我想使用NetStat命令获取网络连接状态和PID进行信息并存入数据库中,请赐教!

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


加好友 发短信
等级:超级版主 帖子:107718 积分:547917 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/10/28 9:34:00 [只看该作者]

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=50305&skin=0

看6楼

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


加好友 发短信
等级:幼狐 帖子:104 积分:1115 威望:0 精华:0 注册:2021/8/13 23:18:00
运行DOS命令  发帖心情 Post By:2022/10/28 10:38:00 [只看该作者]

Dim mac As String = ""
Dim p As System.Diagnostics.Process = New System.Diagnostics.Process()
p.StartInfo.FileName = "nbtstat"
p.StartInfo.Arguments = "-a 192.168.1.102"
p.StartInfo.UseShellExecute = False
p.StartInfo.CreateNoWindow = True
p.StartInfo.RedirectStandardOutput = True
p.Start()
Dim ot As String = p.StandardOutput.ReadToEnd()
MessageBox.show(ot)
复制6楼的代码运行报错
图片点击可在新窗口打开查看
将p.StartInfo.FileName = "nbtstat" 改为p.StartInfo.FileName = "netstat"后运行没反应,直接卡死

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


加好友 发短信
等级:超级版主 帖子:107718 积分:547917 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/10/28 10:56:00 [只看该作者]

不是没反应,而是netstat一直都在运行,除非限制退出dos窗口。

Dim p As System.Diagnostics.Process = New System.Diagnostics.Process()
p.StartInfo.FileName = "netstat"
p.StartInfo.Arguments = "-a 192.168.1.102"
p.StartInfo.UseShellExecute = False
'p.StartInfo.CreateNoWindow = True 把这句代码去掉,弹出dos窗口后,等待一段时间,后关闭dos窗口,后面代码就会执行了
p.StartInfo.RedirectStandardOutput = True
p.Start()
Dim ot As String = p.StandardOutput.ReadToEnd()
MessageBox.show(ot)

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


加好友 发短信
等级:幼狐 帖子:104 积分:1115 威望:0 精华:0 注册:2021/8/13 23:18:00
运行DOS命令  发帖心情 Post By:2022/11/1 9:40:00 [只看该作者]

非常感谢详细讲解

 回到顶部