تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[كود] طلب كود الانترنت
#11
(28-04-16, 10:03 PM)amgad525 كتب : http://vb4arb.com/vb/thread-14676-post-7...l#pid70192

PHP كود :
      If CheckInternetConnection() = True Then
            MessageBox
.Show("Your Computer is  Connected to internet""Connected"MessageBoxButtons.OKMessageBoxIcon.Information)
 
       Else
            MessageBox
.Show("Your Computer is not Connected to internet""Error"MessageBoxButtons.OKMessageBoxIcon.Error)
 
           Application.Exit()
 
       End If 

PHP كود :
Public Shared Function CheckInternetConnection() As Boolean
        Try
            Return My
.Computer.Network.Ping("www.google.com")
 
           Return True
        Catch
            Return False
        End 
Try
 
   End Function 

شغال تمام اشكرك على المجهود الرائع
الرد }}}
تم الشكر بواسطة:
#12
(09-02-16, 02:24 AM)Adrees كتب : السلام عليكم

اولا اكتب هذه الدالة 

PHP كود :
   Public Shared Function CheckInternetConnection() As Boolean
        Try
            Return My
.Computer.Network.Ping("www.google.com")
 
           Return True
        Catch
            Return False
        End 
Try
 
   End Function 

ثانيا في الحدث Form Load  ضع الكود التالي

PHP كود :
       If CheckInternetConnection() = True Then
            MessageBox
.Show("Your Computer is  Connected to internet""Connected"MessageBoxButtons.OKMessageBoxIcon.Information)
 
       Else
            MessageBox
.Show("Your Computer is not Connected to internet""Error"MessageBoxButtons.OKMessageBoxIcon.Error)
 
           Application.Exit()
 
       End If 
ان شاء الله يفيدك هذا الكود.
الرد }}}
تم الشكر بواسطة: zinom
#13
(28-04-16, 10:03 PM)amgad525 كتب : http://vb4arb.com/vb/thread-14676-post-7...l#pid70192

PHP كود :
      If CheckInternetConnection() = True Then
            MessageBox
.Show("Your Computer is  Connected to internet""Connected"MessageBoxButtons.OKMessageBoxIcon.Information)
 
       Else
            MessageBox
.Show("Your Computer is not Connected to internet""Error"MessageBoxButtons.OKMessageBoxIcon.Error)
 
           Application.Exit()
 
       End If 

PHP كود :
Public Shared Function CheckInternetConnection() As Boolean
        Try
            Return My
.Computer.Network.Ping("www.google.com")
 
           Return True
        Catch
            Return False
        End 
Try
 
   End Function 

شغال تمام اشكرك على المجهود الرائع
الرد }}}
تم الشكر بواسطة: zinom , zinom
#14
(28-04-16, 10:43 PM)mostfa1995 كتب :
(28-04-16, 10:03 PM)amgad525 كتب : http://vb4arb.com/vb/thread-14676-post-7...l#pid70192

PHP كود :
      If CheckInternetConnection() = True Then
            MessageBox
.Show("Your Computer is  Connected to internet""Connected"MessageBoxButtons.OKMessageBoxIcon.Information)
 
       Else
            MessageBox
.Show("Your Computer is not Connected to internet""Error"MessageBoxButtons.OKMessageBoxIcon.Error)
 
           Application.Exit()
 
       End If 

PHP كود :
Public Shared Function CheckInternetConnection() As Boolean
        Try
            Return My
.Computer.Network.Ping("www.google.com")
 
           Return True
        Catch
            Return False
        End 
Try
 
   End Function 

شغال تمام اشكرك على المجهود الرائع

امرك غريب 
يعني ايش الفرق بين الكود اللي اعطيتك والكود هذا؟؟
اتمنى تكون صريح ولو مرة
الرد }}}
تم الشكر بواسطة: zinom
#15
الاخوه الكرام ما قصرو 

وده للتحقق من اتصال كارت الان فقط 


الملفات المرفقة
.rar   NetworkState.rar (الحجم : 147.88 ك ب / التحميلات : 34)
اللهم صلي علي نبي (الرحمه) محمد رسول الله وبارك علي اله وصحابته والتابعين  واحقن دماء امتنا واجعل بأسنا علي اعدائنا يا ارحم الراحمين
[b]امين [/b]



الرد }}}
تم الشكر بواسطة:
#16
(28-04-16, 10:47 PM)سعود كتب :
(28-04-16, 10:43 PM)mostfa1995 كتب :
(28-04-16, 10:03 PM)amgad525 كتب : http://vb4arb.com/vb/thread-14676-post-7...l#pid70192

PHP كود :
      If CheckInternetConnection() = True Then
            MessageBox
.Show("Your Computer is  Connected to internet""Connected"MessageBoxButtons.OKMessageBoxIcon.Information)
 
       Else
            MessageBox
.Show("Your Computer is not Connected to internet""Error"MessageBoxButtons.OKMessageBoxIcon.Error)
 
           Application.Exit()
 
       End If 

PHP كود :
Public Shared Function CheckInternetConnection() As Boolean
        Try
            Return My
.Computer.Network.Ping("www.google.com")
 
           Return True
        Catch
            Return False
        End 
Try
 
   End Function 

شغال تمام اشكرك على المجهود الرائع

امرك غريب 
يعني ايش الفرق بين الكود اللي اعطيتك والكود هذا؟؟
اتمنى تكون صريح ولو مرة

انا مقولتش حاجة والله انا بشكر الراجل والله لا تزعل

لا احد يزعل منى وشكرااااااااا لكل الاعضاء الى شارك فى الموضوع
الرد }}}
تم الشكر بواسطة:
#17
الرجاء من الاخوه قبل طرح السوال البحث في المنتدى 

هاذا موضوع مشابه لي طلبك

هنا


شكرا
الحمد لله رب العالمين على كل شي
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] تشغيل راديو عن طريق الانترنت أبوسعود 5 716 01-07-23, 10:34 PM
آخر رد: asmarsou
  ربط جهازين عن طريق الانترنت (public ip) mom22jo 5 1,968 15-05-23, 12:25 AM
آخر رد: ابو محمد محمد محمد
  تنزيل ملف من موقع علي الانترنت ؟ Abdh111 12 1,282 04-05-23, 07:22 PM
آخر رد: ramy alfoly
  قراءة صفحات الانترنت على RichTextBox ابو روضة 17 4,582 10-02-21, 07:42 PM
آخر رد: ابو روضة
  عاوز اعمل رساله لمستخدمي البرنامج بتاعي عبر الانترنت كيف اضيف حاجه شكل دي ف البرنامج Hosam Ashraf Elwakel 1 1,497 10-02-21, 01:09 AM
آخر رد: أبو عبدالله الحلواني
  [VB.NET] تعلم البرمجة من الانترنت أم عمر 2 1,111 24-12-20, 05:18 PM
آخر رد: ابو روضة
  ربط مشروع بصفحات الانترنت و عمل رسائل sms بسام محمدغانم 1 1,493 27-02-20, 03:10 AM
آخر رد: معاند الحظ
  [سؤال] اريد الربط بين البرنامج وقاعدة بيانات اكسس المرفوعة على الانترنت وشكرا Mina Botros 2 1,466 24-01-20, 02:50 PM
آخر رد: Mina Botros
  مساعدة في استدعاء بيانات معينة من موقع على الانترنت نور الهدى الهدى 0 1,339 02-01-20, 02:52 PM
آخر رد: نور الهدى الهدى
  كيفية عرض التقارير عند رفع الملفات على الانترنت momenyounes 1 1,436 24-12-19, 07:00 AM
آخر رد: momenyounes

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم