سطر خطأ فى وحدة نمطية

[حمدى الظابط]

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

السؤال فى الصورة المرفقة بالموضوع وارجو التصليح فى الموديول المرفق بالملف مع شرح الخلل ولكم كل الاحترام والتقدير

تجرية.rarFetching info...

[حمدى الظابط]

up

[ابو جودي]

طيب ممكن توضح سبب استخدام الكود ؟ يعنى حضرتك عاوز تعمل ايه ؟

الكود سليم وما فى اى مشاكل .. 

[حمدى الظابط]

  في 1‏/1‏/2023 at 19:22, ابو جودي said:

طيب ممكن توضح سبب استخدام الكود ؟ يعنى حضرتك عاوز تعمل ايه ؟

الكود سليم وما فى اى مشاكل .. 

Expand  

استاذ ابو جودى جزاك الله خير على هذه المشاركة 

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

[Moosak]

أخي حمدي يمكنك استخدام هذه الدالة للتحقق من وجود إنترنت من عدمه 🙂 

Private Declare PtrSafe Function InternetGetConnectedState Lib "wininet.dll" ( _
    ByRef lpdwFlags As Long, _
    ByVal dwReserved As Long _
    ) As Boolean

' Returns True if there is an active Internet connection, False otherwise
Function IsInternetConnected() As Boolean
    Dim flags As Long
    IsInternetConnected = InternetGetConnectedState(flags, 0)
End Function

Sub test()
If IsInternetConnected() Then
    MsgBox "There is an active Internet connection."
Else
    MsgBox "There is no active Internet connection."
End If
End Sub

الدالة IsInternetConnected() ترجع لك True إذا الانترنت موجود و False إذا الشبكة مقطوعة

[حمدى الظابط]

  في 1‏/1‏/2023 at 20:23, Moosak said:

أخي حمدي يمكنك استخدام هذه الدالة للتحقق من وجود إنترنت من عدمه 🙂 

Private Declare PtrSafe Function InternetGetConnectedState Lib "wininet.dll" ( _
    ByRef lpdwFlags As Long, _
    ByVal dwReserved As Long _
    ) As Boolean

' Returns True if there is an active Internet connection, False otherwise
Function IsInternetConnected() As Boolean
    Dim flags As Long
    IsInternetConnected = InternetGetConnectedState(flags, 0)
End Function

Sub test()
If IsInternetConnected() Then
    MsgBox "There is an active Internet connection."
Else
    MsgBox "There is no active Internet connection."
End If
End Sub

الدالة IsInternetConnected() ترجع لك True إذا الانترنت موجود و False إذا الشبكة مقطوعة

Expand  

الاستاذ موسى اشكرك على هذه المشاركة الثمينة ولكن يبدو انى عندى خطأ لان نقلت اكواد من النموذج الرئسى الى الفرعى واعتقد هذا عمل خلل فى الارسال وحارى التجربة وسأفيك بالرد ان شاء الله

[حمدى الظابط]

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