الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

[ تمت الإجابة ]عند محاولة قراءة صفحة من الإنترنت يعطيني الخطاء 500

بدأه بطران في 21 أغسطس 2008 · 3 رد · 784 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم ....

يحدث معي مشكلة غريبة حالياً, قمت بكتابة كود لقراءة صفحة من الإنترنت و تأكدت من أنه يعمل على مجموعة من المواقع.

لكن عند تطبيقع على موقع تداول أو أي صفحة من صفحاته الداخلية, لا يتم قراءة الموقع ويعود بإكسبشن , و خطاء 500.

(500) Internal Server Error

قمت بتجرية الكود أكثر من مره و تجربة أكثر من طريقة دون فائدة هل مرت بأحدكم ؟؟

 Private Const URL = "http://www.tadawul.com.sa"

 Dim uri As Uri = New Uri(URL)

		'Create the request object

		Dim req As WebRequest = WebRequest.Create(Uri)
		Dim resp As WebResponse = req.GetResponse()
		Dim stream As Stream = resp.GetResponseStream()
		Dim sr As StreamReader = New StreamReader(stream)

		Dim s As String = sr.ReadToEnd()

		Return (s)

Dim web As New WebClient
		Dim html() As Byte
		Dim resultHtml As String
		Dim utf8 As New UTF8Encoding
		html = web.DownloadData(URL)
		resultHtml = utf8.GetString(html)

تم تعديل هذه المشاركة بواسطة بطران في 21 أغسطس 2008 في 18:15

014.gif
#2

المشكله انة الموقع مايسمح استخدام الروبوت - فقط استخدام متصفح الانترنت - يمكنك حل هذة المشكله باستخدام httpWebRequest Object وادخال UserAgent For Internet Explorer - 

Dim req As HttpWebRequest = HttpWebRequest.Create(uri) 
req.UserAgent = "Mozilla/4.0 (compatible; MSIE 6.0;Windows NT 5.1;)"

الكود بالكامل 

 Dim uri As Uri = New Uri("http://www.tadawul.com.sa")

					  'Create the request Object

					  Dim req As HttpWebRequest = HttpWebRequest.Create(uri)
					  req.UserAgent = "Mozilla/4.0 (compatible; MSIE 6.0;Windows NT 5.1;)"

					  Dim resp As WebResponse = req.GetResponse()
					  Dim stream As Stream = resp.GetResponseStream()
					  Dim sr As StreamReader = New StreamReader(stream)

					  Dim s As String = sr.ReadToEnd()

ايضا يمكنك استخدام component جاهز - ولكن غير مجاني - اضغط هنا

تم تعديل هذه المشاركة بواسطة buaziz في 22 أغسطس 2008 في 15:04

#3

لك جزيل الشكر يا صاحبي ...

كلامك صحيح الموقع يمنع قراءة الروبوتات له, تم حل المشكلة عن طريق استخدام خاصية UserAgent .

من الجميل أن يعود الإنسان للبرمجة بعد 4 سنوات انقطاع :)

014.gif
#4

بسم الله الرحمن الرحيم

تمت الإجابة على الموضوع

إدارة الفريق العربي للبرمجة

سبحان الله وبحمده ... سبحان الله العظيم

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…