Ms Dos

جرب هذا الكود :

	Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
		' TextBox1 => Dos Command
		' TextBox2 => Result

		' إنشاء الكائن
		Dim prc As New Process()
		' اسم البرنامج
		prc.StartInfo.FileName = "cmd.exe"
		' cmd.exe /c command البارامترز بصيغة
		prc.StartInfo.Arguments = "/c " + TextBox1.Text
		' لتمكيننا من قراءة محتوى إخراج التطبيق
		prc.StartInfo.RedirectStandardOutput = True
		' لتشغيل برنامج و ليس ملف
		prc.StartInfo.UseShellExecute = False
		' تشغيل البرنامج
		prc.Start()
		' انتظار انتهائه
		While (Not prc.HasExited)
			Application.DoEvents()
		End While
		' قراءة محتوى إخراجه
		TextBox2.Text = prc.StandardOutput.ReadToEnd()
		' تنظيف قبل الخروج
		prc.Dispose()
	End Sub

تحياتي...

ماشاء الله تبارك الله و شكراً لك

سوف اقوم بالتجربة

و السلام عليكم و رحمة الله و بركاته