تقييم الموضوع :
  • 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 ك ب / التحميلات : 3)
.zip   Pro.zip (الحجم : 30.12 ك ب / التحميلات : 4)
.zip   Command.zip (الحجم : 48.65 ك ب / التحميلات : 5)
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة فى التعديل salah mansour 7 98 أمس, 02:39 PM
آخر رد: فراس محي
  [سؤال] طلب التعديل علي كود داون لود وفتح الملف ScreamVoice 5 90 14-10-18, 08:17 AM
آخر رد: ScreamVoice
  [سؤال] طلب التعديل علي كود داون لود وفتح الملف ScreamVoice 1 48 14-10-18, 08:16 AM
آخر رد: ScreamVoice
  [سؤال] سؤال عام حول الكود في الفيجوال ستوديو Simo1991 2 75 11-10-18, 03:30 PM
آخر رد: Simo1991
  ممكن تحويل هذا الكود للسى شارب لو سمحتم ابو روضة 9 181 06-10-18, 02:07 AM
آخر رد: ابو روضة
  ما هو الكود المُستخدم لعدم السماح بترك ال Combobox فارغة Hazem1 26 454 04-10-18, 09:47 PM
آخر رد: princelovelorn
  هل الكود التالي صحيح لاستعادة قاعدة بيانات أكسس Hazem1 8 166 30-09-18, 01:41 AM
آخر رد: Hazem1
  [VB.NET] اريد تغير بسيط ع الكود ... e-coder 3 103 29-09-18, 04:09 PM
آخر رد: عبد الرؤوف
  احد يساعدني في تعديل هذا الكود nagoma 0 39 29-09-18, 12:06 AM
آخر رد: nagoma
  مساعدة في كود التعديل يتم التعديل لكن لا يقف على نفس الصف المعدل في الداتا جريد فيو essawq 22 544 26-09-18, 11:36 PM
آخر رد: elgokr

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


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