تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[كود] طلب كود تحقق شرط واظهار مسج بوكس
#1
السلام عليكم ورحمة الله 
كيفكم اخواني

طلبي هو كود اظهار مسج بوكس لكن في حال تحقق الشرط

الشرط هو عندي برنامج اسمه ( openVPN ) اكيد الكل بيعرفوو 

المهم انا لو عملت اتصل بهذا البرنامج اريد ان ادخل لبرنامجي والضغط على اي زر موجود يظهر لي مسج بأن الـ openVPN شغال وماخذ أيبي 

كما بالصورة









يعني بمعنى اخر عندي برنامج انا برمجتو فيه Butten1 

وفيه Label1 

اريد عند ما اضغط على Butten1 يظهر لي رساله تحقق من ان  الجهاز متصل بالـ openVPN

ويكتب في Label1 انهو متصل ويكتب رقم الايبي في نفس Label1 هذا فقط
مثال : your ip :10.20.10.10
الرد
تم الشكر بواسطة:
#2
upupupupupupupup
الرد
تم الشكر بواسطة:
#3
السلام عليكم اخي الكريم
بالنسبة للبرنامج المذكور لا اعرف عنه شيئا لكن ومن خلال البحث وجدت فنكشن  التحقق من الاتصال به
وكان بلغة السي شارب حولته لك الى VB.net هذا مااستطعت مساعدتك به ارجو ان تكمل البحث بنفسك
نصف اجابة خير من لاشيئ ارجو المعذرة 
كود :
Imports System.Net.NetworkInformation
   Public Function CheckForVPNInterface() As Boolean
       If NetworkInterface.GetIsNetworkAvailable() Then
           Dim interfaces() As NetworkInterface = NetworkInterface.GetAllNetworkInterfaces()
           For Each [Interface] As NetworkInterface In interfaces
               ' This is the OpenVPN driver for windows.
               If [Interface].Description.Contains("TAP-Windows Adapter") AndAlso [Interface].OperationalStatus = OperationalStatus.Up Then
                   Return True
               End If
           Next [Interface]
       End If
       Return False
   End Function


المصدر :
https://stackoverflow.com/questions/1222...hed-or-not
الرد
تم الشكر بواسطة: asemshahen5 , mac9 , اسامه الهرماوي
#4
(09-08-19, 05:45 PM)ابراهيم ايبو كتب : السلام عليكم اخي الكريم
بالنسبة للبرنامج المذكور لا اعرف عنه شيئا لكن ومن خلال البحث وجدت فنكشن  التحقق من الاتصال به
وكان بلغة السي شارب حولته لك الى VB.net هذا مااستطعت مساعدتك به ارجو ان تكمل البحث بنفسك
نصف اجابة خير من لاشيئ ارجو المعذرة 
كود :
Imports System.Net.NetworkInformation
   Public Function CheckForVPNInterface() As Boolean
       If NetworkInterface.GetIsNetworkAvailable() Then
           Dim interfaces() As NetworkInterface = NetworkInterface.GetAllNetworkInterfaces()
           For Each [Interface] As NetworkInterface In interfaces
               ' This is the OpenVPN driver for windows.
               If [Interface].Description.Contains("TAP-Windows Adapter") AndAlso [Interface].OperationalStatus = OperationalStatus.Up Then
                   Return True
               End If
           Next [Interface]
       End If
       Return False
   End Function


المصدر :
https://stackoverflow.com/questions/1222...hed-or-not

للأسف اخي لا يعمل
الرد
تم الشكر بواسطة: ابراهيم ايبو
#5
up up up up up up up up up up up up
الرد
تم الشكر بواسطة:
#6
هل من مجيب ضروري محتاج
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] كيفية اضافة البيانات من اكسس إلى داتاغريد حقل كومبو بوكس Alhootti1 7 166 منذ 9 ساعة مضت
آخر رد: Alhootti1
Exclamation [VB.NET] كود يقوم بتحميل الكومبو بوكس من موقع ويدخلها في الكومبو بوكس في البرنامج SnTnt 10 275 13-09-19, 02:23 AM
آخر رد: SnTnt
  عايز اعمل ProgressBar فى وضع مسج بوكس بالتزامن مع شئ على زهران 7 207 08-09-19, 08:41 PM
آخر رد: سعود
Thumbs Up [سؤال] كيف تجعل التكست بوكس يعرف أول حرف مكتوب أمجد وضاح 3 168 06-09-19, 03:44 AM
آخر رد: أمجد وضاح
  مشكلة في حفظ حقول من تكست بوكس علي قاعدة بيانات بواسطة داتاسيت Abdalazim19 20 645 02-09-19, 07:32 PM
آخر رد: Abdalazim19
  [سؤال] كيف احذف اول مسافة فقط في تيكست بوكس واجعلها في سطر جديد dametucorazon 6 172 02-09-19, 04:39 PM
آخر رد: dametucorazon
  [سؤال] رسائل تحقق الدخول الى حسابات الفيس بوك bakriano30@yahoo.com 6 210 30-08-19, 05:07 AM
آخر رد: ابو روضة
Exclamation [VB.NET] منع ادخال اكثر من مسافه بين الكلمات في التكست بوكس سميـر 9 266 22-08-19, 01:57 AM
آخر رد: ابراهيم ايبو
  [كود] اريد كود تغير لون مؤشر الكتابه في التكست بوكس اليوم السابع 1 114 20-08-19, 12:56 AM
آخر رد: اسامه الهرماوي
  [سؤال] اريد كود للتعامل مع الكومبو بوكس أمجد وضاح 3 184 17-08-19, 04:28 PM
آخر رد: أمجد وضاح

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


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