تمت الإجابة طلب كود تحقق شرط واظهار مسج بوكس

تم تحميل الصفحة في 0,8921647 ثانية
طلب كود تحقق شرط واظهار مسج بوكس
الحالة
مغلق و غير مفتوح للمزيد من الردود.
إنضم
18 يوليو 2015
المشاركات
4,828
الإعجابات
8,646
النقاط
133
الإقامة
Republic Of Bahrain
كلاس جلب الـ UnicastAddresses والتأكد منه :

C#:
    public class HConnection
    {
        private IPAddress AunicastIpAddress;

        public HConnection(){
            AunicastIpAddress = IPAddress.Parse("Open Vpn IPv4");
        }
        public bool IsOpenVpn(){
            if (!NetworkInterface.GetIsNetworkAvailable())
                return false;
            foreach (NetworkInterface ALITest in NetworkInterface.GetAllNetworkInterfaces()){
                if (ALITest.OperationalStatus != OperationalStatus.Up) continue;
                if (ALITest.NetworkInterfaceType == NetworkInterfaceType.Loopback) continue;
                if (HallajGetIp(ALITest).Contains(AunicastIpAddress)) return true;
            }
            return false;
        }
        private static IEnumerable<IPAddress> HallajGetIp(NetworkInterface nic){
            return nic.GetIPProperties().UnicastAddresses
                .Where(ip => ip.Address.AddressFamily == System.Net.Sockets.AddressFamily.InterNetwork)
                .Select(ip => ip.Address);
        }
    }
في Sub Main لـ عرض الرسالة اذا كان التحقق صحيح :

C#:
      var TestVpn = new HConnection();
            bool ItsOnline = TestVpn.IsOpenVpn();
            if (ItsOnline){
                Console.WriteLine("OpenVpn Connected");
            }
            else {
                Console.WriteLine("OpenVpn Disconnected");
            }
 
إنضم
19 نوفمبر 2016
المشاركات
43
الإعجابات
13
النقاط
8
العمر
26
كلاس جلب الـ UnicastAddresses والتأكد منه :

C#:
    public class HConnection
    {
        private IPAddress AunicastIpAddress;

        public HConnection(){
            AunicastIpAddress = IPAddress.Parse("Open Vpn IPv4");
        }
        public bool IsOpenVpn(){
            if (!NetworkInterface.GetIsNetworkAvailable())
                return false;
            foreach (NetworkInterface ALITest in NetworkInterface.GetAllNetworkInterfaces()){
                if (ALITest.OperationalStatus != OperationalStatus.Up) continue;
                if (ALITest.NetworkInterfaceType == NetworkInterfaceType.Loopback) continue;
                if (HallajGetIp(ALITest).Contains(AunicastIpAddress)) return true;
            }
            return false;
        }
        private static IEnumerable<IPAddress> HallajGetIp(NetworkInterface nic){
            return nic.GetIPProperties().UnicastAddresses
                .Where(ip => ip.Address.AddressFamily == System.Net.Sockets.AddressFamily.InterNetwork)
                .Select(ip => ip.Address);
        }
    }
في Sub Main لـ عرض الرسالة اذا كان التحقق صحيح :

C#:
      var TestVpn = new HConnection();
            bool ItsOnline = TestVpn.IsOpenVpn();
            if (ItsOnline){
                Console.WriteLine("OpenVpn Connected");
            }
            else {
                Console.WriteLine("OpenVpn Disconnected");
            }
اخي الغالي ارجوك حطها في مشروع واللهي في مشاكل بجهازي ربي يبارك بيك
 

QS7S

مُميّز نُقطة لُغات البرمجة للعام 2019
rankrank
إنضم
28 يناير 2019
المشاركات
293
الإعجابات
361
النقاط
63


هناك اتصال ولكن البرنامج يقول لا يوجد اتصال ماهو الحل
كود:
Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Dim arr As Array = VPN("OpenVPN")
        If arr.GetValue(0) = True Then
            MsgBox(String.Format("name: {0} address: {1} description: {2}", arr.GetValue(1) & vbNewLine, arr.GetValue(2) & vbNewLine, arr.GetValue(3) & vbNewLine), MsgBoxStyle.Information, "متصل")
        Else
            MsgBox("غير متصل")
        End If

    End Sub
    Private Function VPN(ByVal nameVPN As String) As Array
        Dim nic As Net.NetworkInformation.NetworkInterface() = Net.NetworkInformation.NetworkInterface.GetAllNetworkInterfaces
        If Not nic.Length < 0 And nic IsNot Nothing Then
            For Each netadapter As Net.NetworkInformation.NetworkInterface In nic
                If netadapter.Name.ToLower.Trim.Contains(nameVPN.ToLower.Trim) Or netadapter.Description.ToLower.Trim.Contains(nameVPN.ToLower.Trim) Then
                    If netadapter.OperationalStatus = Net.NetworkInformation.OperationalStatus.Up Then
                        For Each addr In netadapter.GetIPProperties().UnicastAddresses
                            If addr.Address.AddressFamily = Net.Sockets.AddressFamily.InterNetwork Then
                                Return {True, netadapter.Name, addr.Address.ToString, netadapter.Description}
                            End If
                        Next
                    End If
                End If
            Next
        Else
            'Throw New System.Exception("nic.Length < 0")
        End If
        Return {False, Nothing, Nothing, Nothing}
    End Function
End Class
كود:
'v3.0.0
'name: ‏‏Ethernet 3
'address: 10.211.1.45
'description: TAP-Windows Adapter V9 for OpenVPN Connect
 
إنضم
19 نوفمبر 2016
المشاركات
43
الإعجابات
13
النقاط
8
العمر
26
كود:
Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Dim arr As Array = VPN("OpenVPN")
        If arr.GetValue(0) = True Then
            MsgBox(String.Format("name: {0} address: {1} description: {2}", arr.GetValue(1) & vbNewLine, arr.GetValue(2) & vbNewLine, arr.GetValue(3) & vbNewLine), MsgBoxStyle.Information, "متصل")
        Else
            MsgBox("غير متصل")
        End If

    End Sub
    Private Function VPN(ByVal nameVPN As String) As Array
        Dim nic As Net.NetworkInformation.NetworkInterface() = Net.NetworkInformation.NetworkInterface.GetAllNetworkInterfaces
        If Not nic.Length < 0 And nic IsNot Nothing Then
            For Each netadapter As Net.NetworkInformation.NetworkInterface In nic
                If netadapter.Name.ToLower.Trim.Contains(nameVPN.ToLower.Trim) Or netadapter.Description.ToLower.Trim.Contains(nameVPN.ToLower.Trim) Then
                    If netadapter.OperationalStatus = Net.NetworkInformation.OperationalStatus.Up Then
                        For Each addr In netadapter.GetIPProperties().UnicastAddresses
                            If addr.Address.AddressFamily = Net.Sockets.AddressFamily.InterNetwork Then
                                Return {True, netadapter.Name, addr.Address.ToString, netadapter.Description}
                            End If
                        Next
                    End If
                End If
            Next
        Else
            'Throw New System.Exception("nic.Length < 0")
        End If
        Return {False, Nothing, Nothing, Nothing}
    End Function
End Class
كود:
'v3.0.0
'name: ‏‏Ethernet 3
'address: 10.211.1.45
'description: TAP-Windows Adapter V9 for OpenVPN Connect
لا يعمل مع شديد الاسف :270::270::270:
 
إنضم
19 نوفمبر 2016
المشاركات
43
الإعجابات
13
النقاط
8
العمر
26
هل برنامج openvpn يعمل بدون مشاكل وهل يتغير الايبي عند فحصه بمواقع الفحص
نعم يعمل لكن لا يغير الايبي انهو خاص للشركا ما يعني بس فيه اتصال لا اعلم اذا يتغير وفين يتغير ولكن انا لو وصلت في كلمة Conected هذه الكلمة تظهر فط عندما اقوم بالاتصل به لو اقدر اصلها من الفيجوال بيسك لكن انحل الامر
 

X-KILLER

Beginner Developer
rankrank
إنضم
18 ديسمبر 2018
المشاركات
157
الإعجابات
50
النقاط
28
انك لم تضع اسم البرنامج بالكامل ضع هذا الاسم

OpenVPN GUI

بدل اسم

OpenVPN

وسوف تحل مشكلتك ان شاء الله لاكن الكود لااعتقد سوف يحصل على اي بي البرنامج سوف يجلب لك اي بي الشبكة
 
إنضم
18 يوليو 2015
المشاركات
4,828
الإعجابات
8,646
النقاط
133
الإقامة
Republic Of Bahrain
اخي الغالي ارجوك حطها في مشروع واللهي في مشاكل بجهازي ربي يبارك بيك
اطلب من احد الاخوه ينسخ اكوادي ويعمل لك مشروع C# Console
انا حاليا اتكلم من الهاتف لما كتبت الاكواد المشروع في جهازي ولكن لست بالبيت
 
الحالة
مغلق و غير مفتوح للمزيد من الردود.

الأعضاء النشطين حاليآ الذين يشاهدون هذا الموضوع (1 عضو و 0 ضيف)

خيارات الاستايل

نوع الخط
مودك
اخفاء السايدر بار OFF
توسيط المنتدى OFF
فصل الأقسام OFF
الأقسام الفرعية OFF
عرض المشاركات
حجم الخط
معلومات العضو OFF
إخفاء التوقيع OFF

إرجاع خيارات الإستايل