如题所述
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
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
温馨提示：答案为网友推荐，仅供参考
