[mac9]

السلام عليكم ورحمة الله 

كيفكم اخواني

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

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

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

كما بالصورة

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

وفيه Label1 

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

ويكتب في Label1 انهو متصل ويكتب رقم الايبي في نفس Label1 هذا فقط
مثال : your ip :10.20.10.10

[mac9]

upupupupupupupup

[ابراهيم ايبو]

السلام عليكم اخي الكريم
بالنسبة للبرنامج المذكور لا اعرف عنه شيئا لكن ومن خلال البحث وجدت فنكشن  التحقق من الاتصال به
وكان بلغة السي شارب حولته لك الى 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

[mac9]

(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

للأسف اخي لا يعمل

[mac9]

up up up up up up up up up up up up

[mac9]

هل من مجيب ضروري محتاج