تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
التعديل على الكود
#1
سلام عليكم


انا عندي مشروع بسيط وهاذي صوره للمشروع 




وعندي كود للمشروع ولاكن الكود يحتاج تعديل حتى اذا ضغطت على زر الامر يضهر الامر في textbox 2


وهاذا الكود المطلوب تعديله حتى يتناسب مع المشروع وفكرة المشروع ان نضغط على زر ويضهر امر الدوس في textbox 2
الامر اسمه netstat -n
كود :
Public Class Form1
   Private psi As ProcessStartInfo
   Private cmd As Process
   Private Delegate Sub InvokeWithString(ByVal text As String)
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Try
           cmd.Kill()
       Catch ex As Exception
       End Try
       TextBox2.Clear()
       If TextBox1.Text.Contains(" ") Then
           psi = New ProcessStartInfo(TextBox1.Text.Split(" ")(0), TextBox1.Text.Split(" ")(1))
       Else
           psi = New ProcessStartInfo(TextBox1.Text$)
       End If
       Dim systemencoding As System.Text.Encoding
       System.Text.Encoding.GetEncoding(Globalization.CultureInfo.CurrentUICulture.TextInfo.OEMCodePage)
       With psi
           .UseShellExecute = False
           .RedirectStandardError = True
           .RedirectStandardOutput = True
           .RedirectStandardInput = True
           .CreateNoWindow = True
           .StandardOutputEncoding = systemencoding
           .StandardErrorEncoding = systemencoding
       End With
       cmd = New Process With {.StartInfo = psi, .EnableRaisingEvents = True}
       AddHandler cmd.ErrorDataReceived, AddressOf Async_Data_Received
       AddHandler cmd.OutputDataReceived, AddressOf Async_Data_Received
       cmd.Start()
       cmd.BeginOutputReadLine()
       cmd.BeginErrorReadLine()
   End Sub
   Private Sub Async_Data_Received(ByVal sender As Object, ByVal e As DataReceivedEventArgs)
       Me.Invoke(New InvokeWithString(AddressOf Sync_Output), e.Data)
   End Sub
   Private Sub Sync_Output(ByVal text As String)
       TextBox2.AppendText(text & Environment.NewLine)
       TextBox2.ScrollToCaret()
   End Sub
End Class
الرد
تم الشكر بواسطة:
#2
 [مشروع] موجة الأوامر CMD , Command Prompt , تنفيذ الأمر وأخذ النص الناتج إلى البرنامج
الرد
تم الشكر بواسطة: elgokr , %Eman% , princelovelorn
#3
في الانتضار
الرد
تم الشكر بواسطة:
#4
اهلاً بك اخى dasktop 

يبدو انك تريد استخدام الكود لطباعة مستخرجات الامر netstat فقط
اذا كا الامر كذلك طبق ما ى الرد اذا كان الامر تريد تنفيذ جميع اوامر الـ Command
فعليك مراجعة رد اخى الغالي عبدالله الدوسري هو ملخص كل ذلك
على اى حال حتى توضح لك كيفية استخدام الكود

مرفق سورس + برنامج للاختبار
السورس (2015)

سيوضح لك كيفية التعامل مع الكود وتنفيذ الامر باكثر من طريقة
تم عمل بعض اللمسات على الكود ليقوم بعرض مستخراجات الامر بصورة افضل

اليك صور البرنامج للسورس المرفق

الشاشة الاولى وهو ظهور الامر من خلال عرضها فى TextBox1.Text


بمجرد الضغط على Next ستعرض الشاشة الثانية
وهو تنفيذ الامر مباشر دون كتابة او ظهور TxtBox1.Text


لاحظ الفرق بين الاكواد فى كلا من الشاشات وستوضح لك الفكرة كاملاً

تحياتى لك
وتمنيتى لك التوفيق


الملفات المرفقة
.zip   صور الرد.zip (الحجم : 6.01 ك ب / التحميلات : 6)
.zip   Pro.zip (الحجم : 30.12 ك ب / التحميلات : 8)
.zip   Command.zip (الحجم : 48.65 ك ب / التحميلات : 9)
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد
تم الشكر بواسطة: عبدالله الدوسري


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Information [VB.NET] بحاجة الى اكواد الاضافة و الحذف و التعديل و البحث .. georgos 7 167 15-02-19, 10:52 AM
آخر رد: georgos
  [VB.NET] استفسار :- هل صحيح كتابه الكود بهذه الطريقه dubai.eig 8 171 14-02-19, 06:52 PM
آخر رد: ابراهيم ايبو
  مطلوب معاينة المثال والمساعدة في تعديل الكود وفقكم الله فراس الغزي 8 232 29-01-19, 10:43 PM
آخر رد: فراس الغزي
  اريد زر الحفظ هو نفس زر التعديل سمير جمال 4 125 26-01-19, 08:54 PM
آخر رد: سمير جمال
  [VB.NET] محتاج التعديل على الكود dubai.eig 1 164 17-01-19, 09:50 AM
آخر رد: dubai.eig
  [VB.NET] برجاء المساعدة فى هذا الكود medhat_fouad 0 85 16-01-19, 02:10 PM
آخر رد: medhat_fouad
  استخدام ال ProgressBar مع هذا الكود ابو روضة 5 199 15-01-19, 04:26 PM
آخر رد: حريف برمجة
  ما الخطاء فى هذا الكود جمع قيمة حقل بشرط new_programer 5 241 30-12-18, 03:53 AM
آخر رد: a.wagdi
  [VB.NET] تعديل بسيط في الكود :) مجهول 5 237 17-12-18, 08:18 PM
آخر رد: elgokr
Photo اين الخطأ في الكود لو سمحتم samira20 6 222 01-12-18, 01:55 PM
آخر رد: asemshahen5

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم