تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كيف نتحقق من الاتصال بالموقع قبل تحميل ملف
#1
قبل اجراء هذا الكود اريد التحقق ان الموقع يعمل
كود :
Dim res As HttpWebResponse = req.GetResponse

كتبت قبله الكود التالي:
كود :
tt:
                If bb.CancellationPending = True Then
                    Exit For
                    Exit Sub
                End If
                If My.Computer.Network.Ping(justdo) = False Then
                    fil_lblstate("تم فقد الاتصال .. جاري اعادة المحاولة")
                    GoTo tt
                End If

لكن لا ينجح دائما
فهل يوجد كود افضل منه
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة:
#2
ايضا ياليت بفكرة روتين مستقل للتحقق من الاتصال بالشبكة و بالانترنت واذا تم فصل الشبكة اثناء التشغيل اريد فكرة الغاء عمل التحميل download
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة:
#3
حين فصلت كبل الايثرنت وبعد دقائق توقف المشروع على رسالة
The request was aborted: The operation has timed out.
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة:
#4
طبعا اريد من غير try لان هذه الجملة رغم روعتها الا انها تفوت الكثير لمشكلة يمكن حلها لثواني
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة:
#5
ممكن يفيدك هالكود

إقتباس : Try
If TextSite.Text.Contains("http://") Then
Dim iphe As IPHostEntry = Dns.GetHostEntry(TextSite.Text.Replace("http://", String.Empty))
TextIp.Text = iphe.AddressList(0).ToString()
Else
Dim iphe As IPHostEntry
iphe = Dns.GetHostEntry(TextSite.Text)
TextIp.Text = iphe.AddressList(0).ToString()
End If
Catch ex As Exception

End Try

لاتنسى
إقتباس :Imports System.Net

الكود يجلب ايبي الموقع حاول تحوله يتحقق من العنوان الفيزيائي إذا وجده فمعناته الموقع موجود وهكذا

كود التحقق من الاتصال بالشبكة

إقتباس :If My.Computer.Network.IsAvailable Then
MsgBox("Connected")
ElseIf Not My.Computer.Network.IsAvailable Then
MsgBox("Not Connected")
End If

استخدم مع الكود الليبل والالوان افضل بدل MsgBox
الرد }}}}
تم الشكر بواسطة:
#6
راجع الاداة دي هتعجبك


كود :
#Region "   التحقق من وجود انترنت على الجهاز   "


    Public Class Check

        '- اداة التحقق الخفي
        Private WithEvents BackgroundWorker_Check_Net As New ComponentModel.BackgroundWorker

        ''' <summary>صب ابدء التحقق</summary>
        Public Sub Set_Check()
            If Not (Me.BackgroundWorker_Check_Net.IsBusy) Then
                '- بدء التحقق الخفي
                Me.BackgroundWorker_Check_Net.RunWorkerAsync()
            End If
        End Sub

        ''' <summary>حدث الانتهاء من التحقق</summary>
        Public Event Check_Complete(ByVal sender As Object, ByVal e As Boolean)

        '- بدء التحقق الخفي
        Private Sub BackgroundWorker1_DoWork(sender As Object, e As ComponentModel.DoWorkEventArgs) Handles BackgroundWorker_Check_Net.DoWork
            'System.Threading.Thread.Sleep(5000)
            Try
                If (Not My.Computer.Network.IsAvailable) OrElse _
                   (Not My.Computer.Network.Ping("www.google.com", 10000)) Then
                    e.Cancel = True
                    Exit Sub 'انهاء
                End If
            Catch ex As Exception
                e.Cancel = True
                Exit Sub 'انهاء
            End Try

        End Sub

        '- عند الانتهاء من التحقق
        Private Sub BackgroundWorker1_RunWorkerCompleted(sender As Object, e As ComponentModel.RunWorkerCompletedEventArgs) Handles BackgroundWorker_Check_Net.RunWorkerCompleted

            If (Not (e.Error Is Nothing)) OrElse e.Cancelled Then
                '- تفجير الحدث
                RaiseEvent Check_Complete(Me, False)
            Else
                '- تفجير الحدث
                RaiseEvent Check_Complete(Me, True)
            End If

        End Sub

    End Class



#End Region
الرد }}}}
تم الشكر بواسطة: kslawy


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [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
  [سؤال] حذف او تحميل ملف بمسار محدد Program KSA 3 118 10-11-16, 08:17 PM
آخر رد: أبو عمر
  [VB.NET] كيفية تحميل صورة من قاعدة بيانات اكسس 2010 نوريس 2 113 09-11-16, 12:32 PM
آخر رد: نوريس
  [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
آخر رد: جوري
  سؤال عن ربط البرنامج الفيجوال بيسك بالموقع لسه مبتدئ 4 164 06-10-16, 07:13 PM
آخر رد: سعود
  SQL Connection SERVER - مشاكل الاتصال Kian Tech 12 298 02-09-16, 05:16 AM
آخر رد: %Eman%
  الاتصال بقاعدة البيانات atefkhalf2004 1 99 05-08-16, 06:31 PM
آخر رد: Kian Tech
  كود تحقق الاتصال بالانترنت وتسجيل تلقائي لايميل طالب 22 3 146 05-08-16, 01:04 AM
آخر رد: LoveVb

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


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