[sooriaty03]

السلام عليكم ورحمة الله وبركاته
تفضل أخي هذا هو الكود
ولكن لاحظ أنني قمت بتغيير مكان الملف إلى C:\games\Temp.dos
والسبب أن الكتابة على القرص C مباشرة يحتاج إلى إذن مسؤول
وتستطيع أنت تغييره إلى أي مكان آخر
والآن أتركك مع الكود

كود :

Dim FileName As String = "C:\games\Temp.dos"
        If Dir(FileName) <> "" Then Kill(FileName)
        If TextBox1.Text = "clr" Then
            TextBox2.Text = ""
            Exit Sub
        End If
        Dim NewProcess As New System.Diagnostics.ProcessStartInfo
        NewProcess.Arguments = "/c " & TextBox1.Text & " > " & FileName
        NewProcess.FileName = "cmd.exe"
        NewProcess.WindowStyle = ProcessWindowStyle.Hidden
        Process.Start(NewProcess)
        Try
ReadData:
            Dim OpenResult As New StreamReader(FileName)
            TextBox2.Text = OpenResult.ReadToEnd
            OpenResult.Close()
        Catch ex As FileNotFoundException
            GoTo ReadData
        Catch ex2 As IOException
            GoTo ReadData
        End Try
        Application.DoEvents()

بالتوفيق