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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  حل مشكلة الكود الاتي - سهل- CLARO 3 84 02-12-16, 04:06 PM
آخر رد: ali.alfoly
  كيف يتم حل مشكلة ظهور رسالة عند الضغط علي هيد داتا جريد فيو السيد الجوهري 4 61 30-11-16, 10:08 PM
آخر رد: السيد الجوهري
  [VB.NET] مشكلة عند عمل تحديث للبيانات Asmaa adel 3 79 27-11-16, 03:56 PM
آخر رد: Adrees
Rainbow [VB.NET] مشكلة طابعة الباركود محمد اسماعيل 3 269 27-11-16, 10:30 AM
آخر رد: adel27
  [SQL] مشكلة عند الاتصال بالسيكوال سيرفر تظهر الرسالة التالية Asmaa adel 8 188 21-11-16, 11:58 PM
آخر رد: Asmaa adel
  [سؤال] مشكلة في إعادة تنفيذ البرنامج wael khlak 1 53 21-11-16, 11:48 PM
آخر رد: السرور
  [VB.NET] مشكلة في كود البحث khalid475 14 237 11-11-16, 07:52 PM
آخر رد: khalid475
Question [سؤال] مشكلة محيرتني هل من مساعدة shwehdi4pc 14 2,119 10-11-16, 03:55 PM
آخر رد: أبوبكر سويدان
Lightbulb [سؤال] كود برنامج string يبحث و يحذف a_abdullah 9 153 07-11-16, 11:55 PM
آخر رد: a_abdullah
Exclamation [VB.NET] استفسار في كود string a_abdullah 11 215 07-11-16, 10:05 PM
آخر رد: a_abdullah

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


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