-- 作者:大红袍01
-- 发布时间:2015/5/4 16:31:00
--
没你说的那么复杂,你可以用 shell 直接写命令,或者直接用 process 也可以。
比如 shell("ping www.baidu.com", 2)
或者
Dim p As new Process() p.StartInfo.FileName = "cmd.exe"
p.StartInfo.UseShellExecute = False \'关闭Shell的使用
p.StartInfo.RedirectStandardInput = True \'重定向标准输入
p.StartInfo.RedirectStandardOutput = True \'重定向标准输出
p.StartInfo.RedirectStandardError = True \'重定向错误输出
p.StartInfo.CreateNoWindow = True \'设置不显示窗口
p.Start()
p.StandardInput.WriteLine("ping www.baidu.com") p.StandardInput.WriteLine("exit") Dim strRst As String = p.StandardOutput.ReadToEnd()
msgbox(strrst)
|