09-08-19, 05:45 PM
(آخر تعديل لهذه المشاركة : 09-08-19, 05:46 PM {2} بواسطة ابراهيم ايبو.)
السلام عليكم اخي الكريم
بالنسبة للبرنامج المذكور لا اعرف عنه شيئا لكن ومن خلال البحث وجدت فنكشن التحقق من الاتصال به
وكان بلغة السي شارب حولته لك الى VB.net هذا مااستطعت مساعدتك به ارجو ان تكمل البحث بنفسك
نصف اجابة خير من لاشيئ ارجو المعذرة
المصدر :
https://stackoverflow.com/questions/1222...hed-or-not
بالنسبة للبرنامج المذكور لا اعرف عنه شيئا لكن ومن خلال البحث وجدت فنكشن التحقق من الاتصال به
وكان بلغة السي شارب حولته لك الى 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
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات
