تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] مشكلة في كود Dim website As String
#1
سلام  عليكم 

عندي مشكلة  من  هي كود  

كود :
    Dim website As String = TextBox1.Text
           Dim html As String = New Net.WebClient() With {.Encoding = System.Text.Encoding.UTF8}.DownloadString(website)

اذا  موقع  لا يشتغل  يعطيني  خطاء  في 
كود :
    Dim html As String = New Net.WebClient() With {.Encoding = System.Text.Encoding.UTF8}.DownloadString(website)

اريد  كود if  اذا موقع  يشتغل  يعطيني  string  اذا لايشتغل  يروح الي موقع  ثاني 

شكرا   Heart Heart
الرد }}}}
تم الشكر بواسطة:
#2
كود :
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim FirstUrl As New System.Uri("http://www.yourURLhere.com/")
        Dim OtherURl As New System.Uri("http://www.dreamincode.net/forums/topic/137663-check-if-url-exists/")

        If isServerAccessible(FirstUrl) = True Then
            MessageBox.Show("Work")
        Else
            MessageBox.Show("Not Work")
        End If

        If isServerAccessible(OtherURl) = True Then
            MessageBox.Show("Work")
        Else
            MessageBox.Show("Not Work")
        End If
    End Sub

    Private Function isServerAccessible(ByVal HostAddress As Uri) As Boolean
        Try
            'First check if the computer has net access at all. 
            'Second check if the host is reachable and how good the speed of respond is. 
            'The host address can be a computer name, IP-address or you can create URL form Uri class.
            If My.Computer.Network.IsAvailable AndAlso My.Computer.Network.Ping(HostAddress, 1000) Then
                Return True
            Else
                Return False
            End If
        Catch ex As Exception
            Return False
        End Try
    End Function



استخدمه بالطريقة التي تناسبك  ،  بالاضافة يجب عليك التحقق هل يوجد بالاساس مشكله بالاتصال بالسيرفر ام لا يوجد انترنت بجهازك و هذه الطريقة تعمل على ذلك ، تتحقق هل انت متصل بالانترنت بالاساس ام لا  ثم تفحص وجود  URL   على الويب .

بالتوفيق
اسم معرفي : محمد يحيى
الرد }}}}
تم الشكر بواسطة: ممدوح , ممدوح


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] ما حل مشكلة تعارض Task مع Sleep؟ السندبااد 6 80 منذ 25 دقيقة مضت
آخر رد: السندبااد
  مشكلة في قراءة قيمة من الريجستري سعود الشامان 12 140 أمس, 07:59 PM
آخر رد: سعود الشامان
  مشكلة عند التعامل مع DevExpress آمل أن أجد لها حلًا أحمد إبراهيم سعد 8 144 16-09-17, 08:02 PM
آخر رد: tarek
  [سؤال] مشكلة في حذف و تعديل بيانات DataGridView mohammed alnour 4 112 16-09-17, 01:01 AM
آخر رد: mohammed alnour
  [VB.NET] مشكلة في تعديل المشروع مصمم هاوي 9 517 15-09-17, 06:54 PM
آخر رد: مصمم هاوي
  [VB.NET] مشكلة اثناء تنفيذ المشروع ظاهر علي 1 41 15-09-17, 01:28 AM
آخر رد: أبو نوره
  [VB.NET] مشكلة طباعه بيانات من DataGridview رومنس الشوق 4 641 14-09-17, 06:24 PM
آخر رد: محمود صالح
  مشكلة الفورم الشفاف محمود صالح 2 129 14-09-17, 04:59 PM
آخر رد: محمود صالح
  [VB.NET] لدي مشكلة مع كود التعديل 0theghost0 13 177 09-09-17, 05:24 PM
آخر رد: ola
  [VB.NET] مشكلة بتشغيل برنامج سكول سيرفر 2012 امل عوض 2 112 29-08-17, 02:45 PM
آخر رد: زيد زينوبي

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


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