'Dim retval 'retval = Shell("C:\Program Files\Outlook Express\msimn.exe", 1) Dim objExecuteFile As New System.Diagnostics.ProcessStartInfo Dim objExecute As New System.Diagnostics.Process objExecuteFile.FileName = "abc.bat" objExecuteFile.Arguments = "1 2 3 4" objExecuteFile.UseShellExecute = False objExecuteFile.CreateNoWindow = True objExecuteFile.RedirectStandardOutput = True objExecuteFile.RedirectStandardError = True objExecute.StartInfo = objExecuteFile objExecute.Start() objExecute.WaitForExit() Dim ob As Object = objExecute.StandardOutput.ReadToEnd
Exe
最新推荐文章于 2024-01-27 16:32:10 发布