01-10-12, 05:15 PM
كاتب الموضوع : FlyToAbd
هذا المشروع (مقتبس ما بتذكر من وين) بسيط ومفيد ويحتاج تطويرشغل البرنامج واكتب بمربع النص العلوي Dir ثم انقر على الزر
01-10-12, 05:15 PM
01-10-12, 05:17 PM
ضع اثنين مربع نص وزر
مربع النص الثاني اجعل الخاصية MutilLine الى True
الصق الكود التالي
مربع النص الثاني اجعل الخاصية 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