发布网友 发布时间:2022-04-22 03:57
共1个回答
热心网友 时间:2023-10-15 05:28
PrivateSubform1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.Load '创建一个新的进程对象
DimmyCmdProcessAsNewProcess
'注册进程退出事件
'myCmdProcess.Exited =NewSystem.EventHandler(myCmdProcess_exited)
AddHandlermyCmdProcess.Exited,AddressOfmyCmdProcess_exited
myCmdProcess.StartInfo.FileName="cmd" '要执行的命令
'将参数传给要调用的应用程序/C执行字符串指定的命令然后终断,调用dir,同时将结果输出到应用程序文件夹下test.txt.
myCmdProcess.StartInfo.Arguments="/C dir>test.txt"
myCmdProcess.StartInfo.RedirectStandardOutput=True
myCmdProcess.StartInfo.UseShellExecute=False
myCmdProcess.StartInfo.CreateNoWindow=True
myCmdProcess.EnableRaisingEvents=True
myCmdProcess.Start()
Console.Read()
EndSub '进程退出时调用的方法PrivateSubmyCmdProcess_exited(ByValsenderAsObject,ByValeAsSystem.EventArgs)
Try
DimmyFileAsSystem.IO.StreamReader=NewSystem.IO.StreamReader("test.txt")
DimmyStringAsString=myFile.ReadToEnd()
myFile.Close()
MessageBox.Show(myString)
CatchexAsException
MessageBox.Show(ex.Message)
EndTry
EndSub