+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم مقالات VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=184)
+--- الموضوع : تنفيذ أوامر Dos في برنامجك و إظهار النتائج فيه (/showthread.php?tid=4991)
تنفيذ أوامر Dos في برنامجك و إظهار النتائج فيه - RaggiTech - 03-10-12
كاتب الموضوع : crazy-man
اقتباس:[TABLE="width: 100%"]
[TR]
[TD="class: alt2"]أقدم لكم اليوم كود بسيط للغاية و هو حقيقة غير مكتمل 100 بالمئة لكن على الأقل سيقدم فكرة عما اريد ان اوصل اليكم و الهدف منه انه يمكنكم من تنفيذ بعض (و ليس كل) الأوامر الخاصة بالدوس
واظهار النتائج في برنامجكم مباشرة دون الحاجة للمرور او رؤية الشاشة السوداء الكود الخاص بهذه العملية هو التالي :
في فورم ننشئ :
زر أمر
TextBox1
TextBox2
والكود هو :
كود :
Imports System.IO
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
1: If Dir("c:\Temp.dos") <> "" Then Kill("c:\Temp.dos")
2: If TextBox1.Text = "clr" Then
3: TextBox2.Text = ""
4: Exit Sub
5: End If
6: Shell("cmd.exe /c " & TextBox1.Text & "> c:\Temp.dos", 7:AppWinStyle.Hide)
8: Try
9:ReadData:
10: Dim OpenResult As New StreamReader("c:\Temp.dos")
11: TextBox2.Text = OpenResult.ReadToEnd
12: OpenResult.Close()
13: Catch ex As FileNotFoundException
14: GoTo ReadData
15: Catch ex2 As IOException
16: GoTo ReadData
17: End Try
18: Application.DoEvents()
19: End Sub
20:End Class[/TR]
[/TABLE]