How to use ( Ping ) function by VB code

السلام عليكم

يمكن استخدام الPING من خلال فيجوال بهذه الطريقة

Shell "ping " & Text1.Text ,vbNormalFocus

اما اذا اردت وضع نتائج الاختبار في ملف فالبطريقة التالية

Shell "ping " & Text1.Text & ">C:\ping.txt"

تحياتي لك

شكراً للمساعدة , لكن كيف ممكن افحص نتيجة ( PING ) مباشرة اثناء التنفيذ لاظهار رسالة ان (IP ) موجود او غير موجود .

و شكرا

اريد ان استخدم تعليمة ( IPconfig ) مع كل ملحقاتها و استرجاع نتائج التعليمة في ملف او جدول او اي طريقة اخرى .

شكرا ً

السلام عليكم أخى الكريم

البرنامج المرفق يمكنك من إستخدام أى رد من الدوس فى برنامجك و يمكنك إستقباله فى text box ومن ثم يمكنك ببعض الطرق البسيطه فى التعامل مع النصوص فى الوصول إلى المعلومات التى تريدها بالظبط .

بالتوفيق إن شاء الله

Dos Consol.rar