منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
اخذ بيانات من موقع او رابط علي ويب سايت - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : اخذ بيانات من موقع او رابط علي ويب سايت (/showthread.php?tid=9089)

الصفحات: 1 2 3

اخذ بيانات من موقع او رابط علي ويب سايت - samee119485r - 30-06-13

اخي الكرم hamada666

اسعار المعادن والعملات متجددة يعني لو اخذت اليوم حتمال انه في اليوم القادم يطرى

رتفاع او انخفاض على السعار العملات والمعادن .

انصحك بربط برنامجك عن طريق ادات WebBrowser1

وتنسيق البرنامج وترتيبه بحيث يبقى المعلومات في تجديد مستمر




هاذا قتراح .

اخذ بيانات من موقع او رابط علي ويب سايت - hamada666 - 01-07-13

كيف يتم ذلك

اخذ بيانات من موقع او رابط علي ويب سايت - samee119485r - 01-07-13

يا اخي

الأمر بسيط افتح مشروع جديد واضف الى المشروع ازرار (Command1)

وسمي الزرار باسماء الدول

واضف الى مشروعك اداة WebBrowser1

لعرض صفحة الوب

وضع هاذا الكود في الزر

If "http://www.goldpricedata.com/gold-prices-in-egypt.php" Then

WebBrowser1.Navigate2 "http://www.goldpricedata.com/gold-prices-in-egypt.php"

If WebBrowser1.Visible = False Then
WebBrowser1.Visible = True
End If
End If


هاذا الكود راابط اسعار الذهب في مصر

انا وضعته لك كمثال



ملاحظة:
استبدل الرابط الذي في الكود برابط اي صفحة تريد عرض محتوياتها
بتوفيق

اخذ بيانات من موقع او رابط علي ويب سايت - asto - 06-07-13

يعني اذا كود يحفظ الصفحة ب html و من ثم قراءة سطر محدد عبر الورد باد (الدفتر) و ليس المفكرة و مسح ما قبله و ما بعده

اخذ بيانات من موقع او رابط علي ويب سايت - السكر المغرور - 07-07-13

السلام عليكم ،،،

من وجهة نظري المتواضعه ،، و للافاده لا افضل عملية الربط بمحتوى صفحة قد تتغير ، لذلك هناك مواقع لاسعار الذهب عالميه و يقومون بتوفير رابط xml ، و من هنا سوف تتعامل مع الرابط بمساعدة مكاتب xml و يوجد شرح كامل و وافي في قسم اكواد فيجول بيسك .

اما بالنسبه للطريقة التي تريدها فيمكنك من خلال انزال الصفحة على جهازك و فحص محتوياتها عن طريق مقابض id الخاصه بكائنات الصفحة من جداول و حقول نص ...الخ

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

اخذ بيانات من موقع او رابط علي ويب سايت - asto - 07-07-13

السكر المغرور كتب :السلام عليكم ،،،

اما بالنسبه للطريقة التي تريدها فيمكنك من خلال انزال الصفحة على جهازك و فحص محتوياتها عن طريق مقابض id الخاصه بكائنات الصفحة من جداول و حقول نص ...الخ

كيف يعني مقابض id الخاصه بكائنات الصفحة ؟

اخذ بيانات من موقع او رابط علي ويب سايت - السكر المغرور - 13-07-13

اولا تفتح الصفحة في webbrowser ثم تضع في حدث اكتمال تحميل الصفحه هذا الكود -بعد الافتراض ان احدى عناصر الصفحه id الخاص به هو agentcode - فنضع هذا الكود لجلب القيمه التي بداخله :

كود :
MsgBox WebBrowser1.Document.getElementById("agentcode").value

مثال عما اقصد بال ID في وسوم HTML لاحظ الفكره :

كود :
<input id="agentcode" type="button" value="button" />


للمزيد من المعلومات هنا دارت مناقشه و فيها اكواد منوعه من ضغط زر و ادراج قيمه في الكائنات ... الخ
ادخل هنا
http://www.vbforums.com/showthread.php?333850-RESOLVED-How-control-web-component-in-VB6

لفته : اعتذر عن تأخر ردي + ليس لي الخبره الكافيه في vb6 فانا لم انتبه و ظننتها سهوا مني انها بقسم .net ، لذا اضطررت للبحث لك عن اكواد VB6 و لا تختلف كثيرا عن vb.net ، بالنسبه للمقابض تجاهل هذا المصطلح و استبدله بـ element attributes

اخذ بيانات من موقع او رابط علي ويب سايت - samee119485r - 14-07-13

السلام عليك

اخي السكر كود ممتاز

ولاكن الكود لا يقوم بجلب محتويات id التكست المخفي

جزاك الله خير

اخذ بيانات من موقع او رابط علي ويب سايت - Top GreaT - 18-07-13

السلام عليكم

بعد ابداع الاخوان معك

فيه طريقه سهله لكن لابد ان تتأكد من ان الموقع رسمي ولن يتغير
ضع الأداة
Microsoft Internet Transfer Control
وضع
ListBox

ثم ضع الكود التالي في زر كومند

كود :
[align=left]
Dim W As String
Dim A() As String
Dim Q() As String

W = Inet1.OpenURL("http://www.goldpricedata.com")
A = Split(W, "<td>")
For X = 0 To UBound(A)
Q = Split(A(X), "</td>")
If Left(Q(0), 1) <> "<" Then List1.AddItem Left(Q(0), 18)
Next X
[/align]

طبعا بعد ضغط الزر انتظر قليلا وسوف ترا النتائج في الليست بوكس
وترجم الكود حسب احتياجك
بالتوفيق ,,,

اخذ بيانات من موقع او رابط علي ويب سايت - ellhadi39 - 22-07-13

إقتباس :السلام عليكم

بعد ابداع الاخوان معك

فيه طريقه سهله لكن لابد ان تتأكد من ان الموقع رسمي ولن يتغير
ضع الأداة
Microsoft Internet Transfer Control
وضع
ListBox

ثم ضع الكود التالي في زر كومند

كود:

Dim W As String Dim A() As String Dim Q() As String W = Inet1.OpenURL("http://www.goldpricedata.com") A = Split(W, "<td>") For X = 0 To UBound(A) Q = Split(A(X), "</td>") If Left(Q(0), 1) <> "<" Then List1.AddItem Left(Q(0), 18) Next X

طبعا بعد ضغط الزر انتظر قليلا وسوف ترا النتائج في الليست بوكس
وترجم الكود حسب احتياجك
بالتوفيق ,,,
السلام عليكم
يااخي بارك الله فيك ومشكوررر الكود الذي اعطيتنا اياه يشتغل على تمام
ممكن تشرحه الكود من فضل