تقييم الموضوع :
  • 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] حل مشكلة الاتصال بقواعد البيانات access loay775 2 158 25-02-24, 06:29 AM
آخر رد: loay775
  تحميل جميع الماسحات الضوئية المتصلة بالجهاز في كومبوبوكس جيولوجي مبتدئ 2 202 22-02-24, 07:10 PM
آخر رد: جيولوجي مبتدئ
  جملة الاتصال بقاعدة البيانات اكسس محمد خيري 4 362 12-12-23, 03:14 AM
آخر رد: محمد خيري
  كود الاتصال بقاعدة البيانات sqlserver strongriseman 2 421 29-11-23, 09:25 PM
آخر رد: العتيق
  مشكلة في جملة الاتصال مع sqlserver strongriseman 0 216 21-11-23, 01:32 PM
آخر رد: strongriseman
  يوجد مشكلة عند تحميل البيانات فى كمبوبوكس داخل داتا جريد new_programer 2 473 17-10-23, 06:51 PM
آخر رد: new_programer
  كيف يمكن تأخير الـSplash Screen حتى يتم تحميل الأدوات بالكامل؟ hazim1 0 270 28-09-23, 08:23 AM
آخر رد: hazim1
Photo [سؤال] ظور رسالة خطأ عند تحميل قاعدة بيانات تحتوي على صور أبو خالد الشكري 4 396 11-09-23, 09:51 PM
آخر رد: أبو خالد الشكري
  يوجد خطاء عند تحميل الفورم - مثال شجرة الحسابات new_programer 6 755 11-06-23, 06:47 PM
آخر رد: new_programer
  لماذا يتم انشاء العديد من كائنات الاتصال ابو محمد محمد محمد 12 964 27-04-23, 01:54 PM
آخر رد: ابو محمد محمد محمد

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


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