Foxtable(狐表)用户栏目专家坐堂 → 请教cmd 运行,实在搞不懂?


  共有2157人关注过本帖平板打印复制链接

主题:请教cmd 运行,实在搞不懂?

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


加好友 发短信
等级:狐神 帖子:5054 积分:13037 威望:0 精华:0 注册:2014/5/15 21:34:00
请教cmd 运行,实在搞不懂?  发帖心情 Post By:2019/12/20 15:04:00 [只看该作者]

Dim p2 As new Process()
p2.StartInfo.FileName = "cmd.exe"
p2.StartInfo.UseShellExecute = False '关闭Shell的使用
p2.StartInfo.RedirectStandardInput = True '重定向标准输入
p2.StartInfo.RedirectStandardOutput = True '重定向标准输出
p2.StartInfo.RedirectStandardError = True '重定向错误输出
p2.StartInfo.CreateNoWindow = True '设置不显示窗口
p2.Start()
p2.StandardInput.WriteLine( "ping > D:\ping.txt" )   

p2.StandardInput.WriteLine("exit")


Dim  dqzfc As String = FileSys.ReadAllText("D:\ping.txt", Encoding.Default)

Output.Show( dqzfc)

请问为何读取的文件内容不是最新的?非要运行两次?
测试:
1、如果输入p2.StandardInput.WriteLine( "ping1 > D:\ping.txt" )   输出文件内容为空
1、如果输入p2.StandardInput.WriteLine( "ping > D:\ping.txt" )    输出文件内容有内容




 回到顶部