تقييم الموضوع :
  • 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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيف الاتصال بقاعدة بيانات SQLite أحمد إبراهيم سعد 3 81 أمس, 07:37 PM
آخر رد: Adrees
  تحميل فاتورة جديدة ahmedgamal 3 63 18-09-17, 06:23 AM
آخر رد: khodor1985
  كيفية تغير نوعية الاتصال من xmpp الي improver socket using Tls and DIGEST-MD5 login e-coder 0 29 16-09-17, 04:24 PM
آخر رد: e-coder
Question [سؤال] الفرق بين نص الاتصال اكسس و سيكوال و الاوركل alims 4 104 04-09-17, 07:06 PM
آخر رد: alims
  اريد طريقة الاتصال المباشر بقاعدة بيانات اكسس abudawoodd 1 307 22-08-17, 02:03 PM
آخر رد: نبيل كونكت
Bug [سؤال] مشكلة في الاتصال بقاعدة بيانات اوراكل 10g jestenkress 4 116 15-08-17, 06:22 PM
آخر رد: jestenkress
  الاتصال بقاعدة بيانات mysql سلامات 22 480 13-08-17, 12:39 PM
آخر رد: zinom
  سؤال الاتصال بقاعدة بيانات عن طريق Web Service كفاح 8 197 12-08-17, 01:29 AM
آخر رد: سلامات
  [سؤال] ممكن رابط تحميل الفيجوال بيسك 2012 استوديو Mina Botros 5 183 13-07-17, 03:01 PM
آخر رد: Mina Botros
  مشكلة في تحميل فورم يحتوي على كريستال ريبورت تناسيم 1 139 12-06-17, 02:28 PM
آخر رد: Amir_alzubidy

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


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