以下是引用有点甜在2018/11/30 15:53:00的发言：
参考
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("wmic bios get releasedate")
p.StandardInput.WriteLine("exit")
Dim strRst As String = p.StandardOutput.ReadToEnd()
msgbox(strrst)
谢谢，现在在有些旧电脑上出现如下错误，不知道哪里的问题
此主题相关图片如下：11111111111.png
加好友 
发短信
Post By：2018/11/1 16:38:00 [显示全部帖子]
