كيفية استخدام VB VBA لإجراء اختبار Ping

مؤلف: Charles Brown
تاريخ الخلق: 3 شهر فبراير 2021
تاريخ التحديث: 2 ديسمبر 2024
Anonim
How To Create Ping Monitoring Tool In Microsoft Excel
فيديو: How To Create Ping Monitoring Tool In Microsoft Excel

المحتوى

من خلال أتمتة عملية ping للعناوين المختلفة باستخدام Virtual Basic for Applications (VBA) ، يمكنك توفير الكثير من الوقت ، خاصةً عندما تحتاج إلى اختبار ping لعناوين متعددة. تنفيذ اختبار الاتصال عبر عنوان يعني تطبيق اختبار وتحديد ما إذا كان العنوان يمكن الوصول إليه على شبكة الإنترنت. يشبه VBA VB للغاية ويمكنك استخدامه في أي تطبيق Microsoft Office مثل Excel. لإجراء اتصال ping مع مضيف ، تحتاج إلى استخدام بعض المتغيرات لتشغيل برنامج نصي للأوامر باستخدام "Windows Scripting". يمكنك استخدام هذه الطريقة للتحقق من عناوين "المضيف" للتأكد من أنها تعمل. قد ينشئ برنامج VBA خطأ في حالة عدم استجابة المضيف.


الاتجاهات

إنشاء وظيفة جديدة في Excel باستخدام VBA (كومستوك / كومستوك / غيتي إيماجز)

  1. افتح Microsoft Excel ، وانقر فوق علامة التبويب "Developer" وانقر فوق "Visual Basic" لفتح نافذة محرر VBA. انقر على قائمة "إدراج" و "تعديل" لإدخال رمز تعديل جديد.

  2. انسخ والصق التعليمة البرمجية التالية لإنشاء الإجراء الذي سوف يستدعي "myPingFunction" (وظيفة ping الخاصة بي) وسيعرض نتائج ping لـ "google.com" من خلال مربع رسالة:

    Sub callPingFunction () MsgBox myPingFunction ("google.com") End Sub

  3. عدّل "google.com" من الخطوة السابقة وأدخل "المضيف" الذي ترغب في اختباره.

  4. انسخ والصق الوظيفة التالية في اختبار ping لعنوان "المضيف" الذي أرسلته إلى الوظيفة وأرجع النتائج إلى إجراء الاستدعاء:

    أحاول إنشاء برنامج نصي سيتم استخدامه لإنشاء برنامج نصي سيتم استخدامه لإنشاء برنامج نصي. ) sFilename = FSObj.GetTempName shellObj.Run "cmd / c ping" & hostAddress & ">" & sFilename ، 0 ، مجموعة True tmpFileObj = FSObj.OpenTextFile (sFilename ، 1) القيام أثناء tmpFileObj.AtE Readline myPingFunction = myPingFunction & Trim (sLine) Loop tmpFileObj.Close FSObj.DeleteFile (sFilename) End End


  5. انقر داخل الإجراء "callPingFunction" (استدعاء وظيفة ping) واضغط على "F5" لتنفيذه. سيتم عرض نتائج ping من خلال مربع رسالة.

ما تحتاجه

  • مايكروسوفت أوفيس