读书人

VB.NET怎么启动CMD.exe并向其发送字

发布时间: 2012-03-05 11:54:01 作者: rapoo

VB.NET如何启动CMD.exe,并向其发送字符串?
VB.net应用程序,点Button1启动CMD.exe,点Button2,把Form1上的TextBox1内容发送给该CMD命令窗口。

请教高手,如何实现?

[解决办法]
输入重定向
dim P as processstartinfo
p.filename="cmd.exe"
p.red..input=true
p.start


点button2
p.writeline(textbox1.text)
[解决办法]
给你一个完整的列子,
界面上需要两个按钮,两个textbox,其中textbox2设置为多行.

VB.NET code
Public Class Form1    '输入和输出重定向,使用说明:先点击button1,    '然后在textbox1中输入dos命令,    '然后点击button2即可在textbox2中接收到信息    '例如ping 127.0.0.1    Dim P As New Process    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click        P.StartInfo.FileName = "cmd.exe"        P.StartInfo.UseShellExecute = False        P.StartInfo.RedirectStandardInput = True        P.StartInfo.RedirectStandardOutput = True        P.StartInfo.RedirectStandardError = True        P.StartInfo.CreateNoWindow = True        P.Start()    End Sub    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click        P.StandardInput.WriteLine("@" & TextBox1.Text)        P.StandardInput.WriteLine("@exit")   '此句必须有,否则读取不到输出的信息        TextBox2.Text = P.StandardOutput.ReadToEnd()        P.Close()    End SubEnd Class 

读书人网 >VB Dotnet

热点推荐