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

تم تحميل الصفحة في 1,7201993 ثانية
طلب كود تحقق شرط واظهار مسج بوكس
الحالة
مغلق و غير مفتوح للمزيد من الردود.
إنضم
19 نوفمبر 2016
المشاركات
43
الإعجابات
13
النقاط
8
العمر
26
السلام عليكم ورحمة الله
كيفكم اخواني

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

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

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

كما بالصورة



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

وفيه Label1

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

ويكتب في Label1 انهو متصل ويكتب رقم الايبي في نفس Label1 هذا فقط
مثال : your ip :10.20.10.10
 
إنضم
19 نوفمبر 2016
المشاركات
43
الإعجابات
13
النقاط
8
العمر
26
ما فهمت , تريد طريقة إظهار الرسالة الي جنب الساعة ..؟ ToolTip Class (System.Windows.Forms)
و الا تريد تحقق من اتصال برنامج OpenVPN ..؟

شوف أخي اريد برنامجي يقوم بالاستعلام اذا كان برنامج openVPN بلون الاخضر يعطي رساله انهو متصل
او اذا كان برنامج openVPN غير مستخدم بالوقت الحالي ولا يوجد به لون اخضر هم يخرج رسالة يقول غير متصل ؟

اتمنى تكون فهمتني
 
إنضم
8 سبتمبر 2013
المشاركات
7,666
الإعجابات
11,474
النقاط
168
الإقامة
Live.IQ(JO => JO.AMMAN)
شوف أخي اريد برنامجي يقوم بالاستعلام اذا كان برنامج openVPN بلون الاخضر يعطي رساله انهو متصل
او اذا كان برنامج openVPN غير مستخدم بالوقت الحالي ولا يوجد به لون اخضر هم يخرج رسالة يقول غير متصل ؟

اتمنى تكون فهمتني
يحتاج انزل البرنامج و اشوفة .. و ما عندي هذا المزاج بصراحة
لكن تقدر اما تتحقق من الـWindowTitle و تشوف هل يتغير فيها شي او لا ..

بمعنى ممكن يكون فيها كلمة Connected او العكس .. فتكون سهل جداً عليك انك تحط الشرط
لان اذا الوان و قصة هذه كلها winapi على ما اذكر

مش الالوان .. الـtitle الخاص بنافذة البرنامج .. او اذا ممكن صورلي فيديو لطريقة التشغيل و العكس
و اذا ممكن اظهار processhacker و نقرتين على البرنامج حتى اشوف اكبر قدر من المعلومات عن العملية ..
 
إنضم
19 نوفمبر 2016
المشاركات
43
الإعجابات
13
النقاط
8
العمر
26
هنا يوجد مثال
ليس كما طلبت لاكن يفيد جدا
Get ToolTip Text from Icon in System Tray
ليس اشاؤة اخي الكريم

شوف أخي اريد برنامجي يقوم بالاستعلام اذا كان برنامج openVPN بلون الاخضر يعطي رساله انهو متصل
او اذا كان برنامج openVPN غير مستخدم بالوقت الحالي ولا يوجد به لون اخضر هم يخرج رسالة يقول غير متصل ؟

اتمنى تكون فهمتني
 
إنضم
19 نوفمبر 2016
المشاركات
43
الإعجابات
13
النقاط
8
العمر
26
يحتاج انزل البرنامج و اشوفة .. و ما عندي هذا المزاج بصراحة
لكن تقدر اما تتحقق من الـWindowTitle و تشوف هل يتغير فيها شي او لا ..

بمعنى ممكن يكون فيها كلمة Connected او العكس .. فتكون سهل جداً عليك انك تحط الشرط
لان اذا الوان و قصة هذه كلها winapi على ما اذكر

مش الالوان .. الـtitle الخاص بنافذة البرنامج .. او اذا ممكن صورلي فيديو لطريقة التشغيل و العكس
و اذا ممكن اظهار processhacker و نقرتين على البرنامج حتى اشوف اكبر قدر من المعلومات عن العملية ..
تمام اخي الغالي هذا الفديو لطرقة عمل البرنامج لو عاوز البرنامج مع الكونفج مع الايميل والباسورد اعطيه لك

تفظل الفديو :
Untitled | تحميل
 
إنضم
8 سبتمبر 2013
المشاركات
7,666
الإعجابات
11,474
النقاط
168
الإقامة
Live.IQ(JO => JO.AMMAN)
ليس اشاؤة اخي الكريم

شوف أخي اريد برنامجي يقوم بالاستعلام اذا كان برنامج openVPN بلون الاخضر يعطي رساله انهو متصل
او اذا كان برنامج openVPN غير مستخدم بالوقت الحالي ولا يوجد به لون اخضر هم يخرج رسالة يقول غير متصل ؟

اتمنى تكون فهمتني
هنا الاخ @CorrM حل مسئلة البالونة الي تظهر بجانب الشاشة ..

تمام اخي الغالي هذا الفديو لطرقة عمل البرنامج لو عاوز البرنامج مع الكونفج مع الايميل والباسورد اعطيه لك

تفظل الفديو :
Untitled | تحميل
شفت الفيديو و للأسف مثل ما ذكرت .. تحتاج شغل winapi .. يعني Handle البرنامج و تحليل ذاكرة و قصة
مش صعب بس شوية وقت و تجربة خدع .. اذا صار لي وقت مستقبلاً اطلع عليه ان شاء الله .. مو اكيد لكن ممكن

ان شاء الله الشباب يعرفوا يساعدوك اكثر مني
 
إنضم
19 نوفمبر 2016
المشاركات
43
الإعجابات
13
النقاط
8
العمر
26
هنا الاخ @CorrM حل مسئلة البالونة الي تظهر بجانب الشاشة ..


شفت الفيديو و للأسف مثل ما ذكرت .. تحتاج شغل winapi .. يعني Handle البرنامج و تحليل ذاكرة و قصة
مش صعب بس شوية وقت و تجربة خدع .. اذا صار لي وقت مستقبلاً اطلع عليه ان شاء الله .. مو اكيد لكن ممكن

ان شاء الله الشباب يعرفوا يساعدوك اكثر مني
تسلم اخي ثقلت عليك ياريت احد يساعدني مشروعي عباره عن اتصال للأسف خاص بالدراسة
 

QS7S

مُميّز نُقطة لُغات البرمجة للعام 2019
rankrank
إنضم
28 يناير 2019
المشاركات
292
الإعجابات
358
النقاط
63
كود:
Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim arr As Array = VPN()
        If arr.GetValue(0) = True Then
            MsgBox(String.Format("
name: {0}
address: {1}
description: {2}", arr.GetValue(1), arr.GetValue(2), arr.GetValue(3)))

        Else
            MsgBox("لايوجد اتصال")
        End If
    End Sub
    Private Function VPN() 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
                'MsgBox(netadapter.Name)
                If netadapter.Name.ToLower.Trim.Contains("vpn") Then ' Or netadapter.Name.Equals("openVPN") ?
                    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
        End If
        Return {False, Nothing, Nothing, Nothing}
    End Function
End Class
كود:
name: HMA! Pro VPN
address: 100.120.79.41
description: HMA TAP-Windows Adapter V9
 
إنضم
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()
        If arr.GetValue(0) = True Then
            MsgBox(String.Format("
name: {0}
address: {1}
description: {2}", arr.GetValue(1), arr.GetValue(2), arr.GetValue(3)))

        Else
            MsgBox("لايوجد اتصال")
        End If
    End Sub
    Private Function VPN() 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
                'MsgBox(netadapter.Name)
                If netadapter.Name.ToLower.Trim.Contains("vpn") Then ' Or netadapter.Name.Equals("openVPN") ?
                    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
        End If
        Return {False, Nothing, Nothing, Nothing}
    End Function
End Class
كود:
name: HMA! Pro VPN
address: 100.120.79.41
description: HMA TAP-Windows Adapter V9
ظهرة هذه الاخطاء اخي العزيز
 
إنضم
21 مايو 2019
المشاركات
258
الإعجابات
237
النقاط
43
العمر
89
إنضم
19 نوفمبر 2016
المشاركات
43
الإعجابات
13
النقاط
8
العمر
26
إنضم
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()
        If arr.GetValue(0) = True Then
            MsgBox(String.Format("
name: {0}
address: {1}
description: {2}", arr.GetValue(1), arr.GetValue(2), arr.GetValue(3)))

        Else
            MsgBox("لايوجد اتصال")
        End If
    End Sub
    Private Function VPN() 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
                'MsgBox(netadapter.Name)
                If netadapter.Name.ToLower.Trim.Contains("vpn") Then ' Or netadapter.Name.Equals("openVPN") ?
                    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
        End If
        Return {False, Nothing, Nothing, Nothing}
    End Function
End Class
كود:
name: HMA! Pro VPN
address: 100.120.79.41
description: HMA TAP-Windows Adapter V9


انظر هناك اتصل لكن البرنامج لم يتعرف على الاتصال
 
إنضم
21 مايو 2019
المشاركات
258
الإعجابات
237
النقاط
43
العمر
89
إنضم
21 مايو 2019
المشاركات
258
الإعجابات
237
النقاط
43
العمر
89


هناك اتصال ولكن البرنامج يقول لا يوجد اتصال ماهو الحل
ملاحظة
انا لم استعمل الاكود التي في الاسفل
C#:
name: HMA! Pro VPN
address: 100.120.79.41
description: HMA TAP-Windows Adapter V9
 
إنضم
19 نوفمبر 2016
المشاركات
43
الإعجابات
13
النقاط
8
العمر
26
ان شاء الله القي الاجابه والهي تعبت واني ادور ماكو ملكيت اي شرح ع هذا البرنامج

لو في شرح كيف ممكن اعرف الحاله تبع الـopenVPn
 
إنضم
18 يوليو 2015
المشاركات
4,828
الإعجابات
8,643
النقاط
133
الإقامة
Republic Of Bahrain
سهلة قم بجلب الـ UnicastAddresses والتأكد منه اذا كان خاص بـ OpenVpn وارجاع bool اذا كان true يعني Online وتظهر رسالة ان Online
UnicastAddresses
تحصله في ipv4
هذا كلاس و Propertie لـ جلب الـ UnicastAddresses :
IPInterfaceProperties.UnicastAddresses Property (System.Net.NetworkInformation)
اذا لم تفهم سأعمل لك مشروع ولكن بـ C# لان ليس لدي vb.net حاليا في فيجوال ستيديو
 
الحالة
مغلق و غير مفتوح للمزيد من الردود.

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

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

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

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