+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم مقالات VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=184)
+--- الموضوع : Dos4Win مشروع للتطوير (/showthread.php?tid=4704)
Dos4Win مشروع للتطوير - RaggiTech - 01-10-12
كاتب الموضوع : FlyToAbd
هذا المشروع (مقتبس ما بتذكر من وين) بسيط ومفيد ويحتاج تطويرشغل البرنامج واكتب بمربع النص العلوي Dir ثم انقر على الزر
Dos4Win مشروع للتطوير - RaggiTech - 01-10-12
ضع اثنين مربع نص وزر
مربع النص الثاني اجعل الخاصية MutilLine الى True
الصق الكود التالي
كود :
Imports System.IO
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = "" Then Exit Sub
Dim TmpFile As String = "D:\Temp.Txt"
If Dir(TmpFile) <> "" Then Kill(TmpFile)
If TextBox1.Text = "clr" Then
TextBox2.Text = ""
TextBox1.Text = ""
Exit Sub
End If
Shell("cmd.exe /c " & TextBox1.Text & " > " & TmpFile, AppWinStyle.Hide, True)
Dim OpenResult As New StreamReader(TmpFile)
TextBox2.Text = OpenResult.ReadToEnd
OpenResult.Close()
Application.DoEvents()
TextBox1.Text = ""
End Sub
End Class