تقييم الموضوع :
  • 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] مشكلة في كيفية اعادة الاتصال في TcpClient YazanOtoum 1 52 20-02-17, 01:03 PM
آخر رد: YazanOtoum
  [VB.NET] خطأ في كود الاتصال بقاعدة البيانات ،، مرفق مشروع أبووسم 5 105 08-02-17, 04:56 PM
آخر رد: atefkhalf2004
  مشكلة عند تحميل فورم تناسيم 1 40 06-02-17, 04:53 PM
آخر رد: ابو يوسف النواوي 2
  [سؤال] كود الاتصال بقاعدة البيانات فى Class noway 0 54 06-02-17, 02:48 AM
آخر رد: noway
  [VB.NET] الاتصال بقاعدة البيانات عن طريق real Ip engmedomed@gmail.com 1 96 02-02-17, 11:44 PM
آخر رد: nabil.1710
  اريد طريقة الاتصال المباشر بقاعدة بيانات اكسس abudawoodd 0 85 30-01-17, 02:58 PM
آخر رد: abudawoodd
  [VB.NET] اريد عمل مثل هذا الاتصال 3asfa~mdmra 4 142 29-01-17, 11:08 PM
آخر رد: 3asfa~mdmra
  [VB.NET] إعادة تحميل داتاجريد tifagreet 6 121 27-01-17, 03:04 PM
آخر رد: tifagreet
  الاتصال بقاعدة بيانات SQL SEVER موجودة بجهاز اخر كفاح 5 213 15-01-17, 10:46 PM
آخر رد: كفاح
  مشكلة في تحميل التقرير alwasela 0 78 25-12-16, 12:48 PM
آخر رد: alwasela

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


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