=bvTitle id=subjcns!1pY_ZGE9nN-x38i68L7EcYbw!128>如何在.net 中执行console命令
Private Sub form1_Load(ByVal sender As .Object, ByVal e As .EventArgs) Handles MyBase.Load \'创建个新进程对象
Dim myCmdProcess As New Process
\'注册进程退出事件
\'myCmdProcess.Exited New .EventHandler(myCmdProcess_exited)
AddHandler myCmdProcess.Exited, AddressOf myCmdProcess_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
End Sub
\'进程退出时思路方法
Private Sub myCmdProcess_exited(ByVal sender As Object, ByVal e As .EventArgs)
Try
Dim myFile As .IO.StreamReader = New .IO.StreamReader(\"test.txt\")
Dim myString As String = myFile.ReadToEnd
myFile.Close
MessageBox.Show(myString)
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
最新评论