تقييم الموضوع :
  • 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 , Abou Eman , princelovelorn
#3
في الانتضار
الرد
تم الشكر بواسطة:
#4
اهلاً بك اخى dasktop 

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

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

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

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

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


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


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

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


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

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


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] [مساعدة] ... كيفية تنفيذ هذا الكود بشكل صحيح ...؟ Mahmoud41 1 132 01-01-21, 02:14 AM
آخر رد: اليوم السابع
Information [VB.NET] [مساعدة] ... كيف انفذ هذا الكود ...؟ Mahmoud41 1 96 31-12-20, 03:44 AM
آخر رد: trakktour
  [VB.NET] التعديل علي كود عرض الصور وفتح الروابط الخاصه بالصور ميدو الفنان 20 648 23-12-20, 01:54 AM
آخر رد: ميدو الفنان
  [سؤال] ممكن تعديل على الكود دا يا اخواتي لوسمحتو ahmed112001 3 242 21-12-20, 12:33 AM
آخر رد: has123
  [VB.NET] ماهو الخطا في هذا الكود ميدو الفنان 10 664 09-12-20, 10:59 PM
آخر رد: سعود
  [VB.NET] التعديل علي كود خاص بي التعديل علي ملف ftp ميدو الفنان 4 315 26-11-20, 10:54 PM
آخر رد: ميدو الفنان
  [سؤال] الحفظ و التعديل و الحذف داخل datagridview and databases Sql server mo.fathi 1 291 10-11-20, 04:32 PM
آخر رد: mmali127
  ممكن تعديل علي الكود ليكون بشكل صحيح modywassem520 6 464 06-11-20, 11:16 PM
آخر رد: سعود
  [مشروع] ممكن الكود ryrryt22@gmail.com 0 125 05-11-20, 03:36 AM
آخر رد: ryrryt22@gmail.com
  تعديل الكود عمور2016 5 442 30-10-20, 12:29 AM
آخر رد: lafi

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


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