[samee119485r]

اخي الكرم hamada666

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

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

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

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




هاذا قتراح .

[hamada666]

كيف يتم ذلك

[samee119485r]

يا اخي

الأمر بسيط افتح مشروع جديد واضف الى المشروع ازرار (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]

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

[السكر المغرور]

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

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

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

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

[asto]

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

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

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

[السكر المغرور]

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

كود :

MsgBox WebBrowser1.Document.getElementById("agentcode").value

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

كود :

<input id="agentcode" type="button" value="button" />

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

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

[samee119485r]

السلام عليك

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

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

جزاك الله خير

[Top GreaT]

السلام عليكم

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

فيه طريقه سهله لكن لابد ان تتأكد من ان الموقع رسمي ولن يتغير
ضع الأداة
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]

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

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

فيه طريقه سهله لكن لابد ان تتأكد من ان الموقع رسمي ولن يتغير
ضع الأداة
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

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

السلام عليكم
يااخي بارك الله فيك ومشكوررر الكود الذي اعطيتنا اياه يشتغل على تمام
ممكن تشرحه الكود من فضل