تقييم الموضوع :
  • 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)
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

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


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] تعديل بسيط في الكود :) مجهول 4 110 أمس, 09:57 PM
آخر رد: مجهول
Photo اين الخطأ في الكود لو سمحتم samira20 6 134 01-12-18, 01:55 PM
آخر رد: asemshahen5
Photo اين الخطأ في الكود لو سمحتم samira20 0 47 30-11-18, 11:08 AM
آخر رد: samira20
  [سؤال] ما الخطأ في الكود التالي اسامه الهرماوي 2 87 23-11-18, 05:52 PM
آخر رد: Rabeea Qbaha
  حل مشكلة هذا الكود imam_boune 2 79 23-11-18, 02:13 PM
آخر رد: imam_boune
  [VB.NET] مطلوب التعديل عالمثال المرفق للطباعة بفيجوال بيسك 2010 دوت نت hbsbamaga 1 115 23-11-18, 12:51 PM
آخر رد: hbsbamaga
  [سؤال] ما الخطأ في هذا الكود اسامه الهرماوي 3 100 21-11-18, 02:05 AM
آخر رد: اسامه الهرماوي
  [سؤال] طلب التعديل علي كود به خطا غير مدعوم ScreamVoice 5 141 17-11-18, 07:01 AM
آخر رد: ScreamVoice
  [سؤال] طلب التعديل علي كود سحب بيانات سيرفر ScreamVoice 2 95 10-11-18, 10:17 PM
آخر رد: ScreamVoice
  مشكلة في الكود salahmax12 4 179 08-11-18, 08:36 PM
آخر رد: salahmax12

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


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