تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
طلب كود التحقق من وجود الاتصال بالانترنت
#1
Confusedاخواني السلام عليكم
اريد كود للفيجوال بيزك 10 او 12 يجعل البرنامج لا يشتغل الا بوجود الانترنت
اي عندما لا تكن الانترنت موجودة لا يشتغل ويطلع رسالة خطأ
وشكرا



[صورة مرفقة: 000.gif]
الرد }}}}
تم الشكر بواسطة:
#2
اخي الفاضل :

يمكنك التحقق من وجود الاتصال بالانترنت من خلال تجربة الاتصال على موقع ما وليكن جوجل
ويمكنك استخدام الكود التالي :

كود :
Public Function HaveInternetConnection() As Boolean

   Try
       Return My.Computer.Network.Ping("www.google.com")
   Catch
       Return False
   End Try

End Function
الرد }}}}
تم الشكر بواسطة:
#3
السلام عليكم

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

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 
ان شاء الله يفيدك هذا الكود.
الرد }}}}
تم الشكر بواسطة: ahmedabdelaliem , طالب 22
#4
الله يفتح عليك اخي الكريم نجح تمام تمام

[صورة مرفقة: 000.gif]
الرد }}}}
تم الشكر بواسطة:
#5
(28-04-16, 10:10 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 

شغال تمام اشكرك على المجهود الرائع
الرد }}}}
تم الشكر بواسطة:
#6
اليكم هذا الكود البسيط واكيد حينفعكم اكثر لانه مختصر وسهل 
وينكنك من اضافة ماسج بوكس له او التعديل عليه كما تريد
كود :
       If My.Computer.Network.IsAvailable Then
           Label1.ForeColor = Color.Green
           Label1.Text = "حالة الإتصال : متصل"
       Else
           Label1.ForeColor = Color.Red
         Label1.Text = "حالة الإتصال : غير متصل"
       End If
وبإمكانك اضافة فورم صغير فيه هذا اليبل وإذا كان هناك اتصال ينقلك الى الفورم 2 وهو الفورم الرئيسي للبرنامج
الرد }}}}
تم الشكر بواسطة: طالب 22


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] خطا بالكود عند اجراء عملية حذف لاحد العملاء في البنك بسبب وجود علاقة بين الحقول في ال Asmaa adel 2 67 أمس, 11:57 AM
آخر رد: Asmaa adel
  التحقق من وجود هذة القيمة فى الداتا جريد فيو مع العلم انى استخدم المعالج araxis 4 183 29-11-16, 07:26 AM
آخر رد: amgad525
  [VB.NET] الاتصال بقاعدة البيانات في التقارير (الكريستال ريبورت) thevirus 2 82 23-11-16, 11:05 AM
آخر رد: thevirus
  [SQL] مشكلة عند الاتصال بالسيكوال سيرفر تظهر الرسالة التالية Asmaa adel 8 193 21-11-16, 11:58 PM
آخر رد: Asmaa adel
  [VB.NET] كيف ممكن اجعل هذا الاتصال بتصل بip مختلف عن ip اتصالي 3asfa~mdmra 0 57 27-10-16, 09:56 PM
آخر رد: 3asfa~mdmra
  [سؤال] برنامج الفيجول بيسيك لا يقبل الاتصال بقاعدة بيانات اكسس من نوع accdb abdalla89 6 166 20-10-16, 01:06 AM
آخر رد: جوري
  التحقق من عدد السجلات abdulla2 5 173 08-09-16, 06:06 PM
آخر رد: abdulla2
  SQL Connection SERVER - مشاكل الاتصال Kian Tech 12 298 02-09-16, 05:16 AM
آخر رد: %Eman%
Photo البرنامج لا يقوم بحفظ البيانات به و لا بقاعدة البيانات برغم عدم وجود errors Mohamedsamy21 7 195 01-09-16, 03:53 AM
آخر رد: adooolah2011
  كيف التحقق من صوره اذا كانت نفس الصورة ام لا Mohamed20 4 160 06-08-16, 03:55 PM
آخر رد: Mohamed20

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


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