اخي الكرم hamada666
اسعار المعادن والعملات متجددة يعني لو اخذت اليوم حتمال انه في اليوم القادم يطرى
رتفاع او انخفاض على السعار العملات والمعادن .
انصحك بربط برنامجك عن طريق ادات WebBrowser1
وتنسيق البرنامج وترتيبه بحيث يبقى المعلومات في تجديد مستمر
هاذا قتراح .
يا اخي
الأمر بسيط افتح مشروع جديد واضف الى المشروع ازرار (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
هاذا الكود راابط اسعار الذهب في مصر
انا وضعته لك كمثال
ملاحظة:
استبدل الرابط الذي في الكود برابط اي صفحة تريد عرض محتوياتها
بتوفيق
يعني اذا كود يحفظ الصفحة ب html و من ثم قراءة سطر محدد عبر الورد باد (الدفتر) و ليس المفكرة و مسح ما قبله و ما بعده
السلام عليكم ،،،
من وجهة نظري المتواضعه ،، و للافاده لا افضل عملية الربط بمحتوى صفحة قد تتغير ، لذلك هناك مواقع لاسعار الذهب عالميه و يقومون بتوفير رابط xml ، و من هنا سوف تتعامل مع الرابط بمساعدة مكاتب xml و يوجد شرح كامل و وافي في قسم اكواد فيجول بيسك .
اما بالنسبه للطريقة التي تريدها فيمكنك من خلال انزال الصفحة على جهازك و فحص محتوياتها عن طريق مقابض id الخاصه بكائنات الصفحة من جداول و حقول نص ...الخ
مع ذلك انصحك بشده لا تستخدم الثانيه لانها طويله جدا و متعبه و غير عملية في حالة تغيير بسيط في الموقع ،،،
السكر المغرور كتب :السلام عليكم ،،،
اما بالنسبه للطريقة التي تريدها فيمكنك من خلال انزال الصفحة على جهازك و فحص محتوياتها عن طريق مقابض 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
السلام عليك
اخي السكر كود ممتاز
ولاكن الكود لا يقوم بجلب محتويات id التكست المخفي
جزاك الله خير
السلام عليكم
بعد ابداع الاخوان معك
فيه طريقه سهله لكن لابد ان تتأكد من ان الموقع رسمي ولن يتغير
ضع الأداة
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]
طبعا بعد ضغط الزر انتظر قليلا وسوف ترا النتائج في الليست بوكس
وترجم الكود حسب احتياجك
بالتوفيق ,,,
إقتباس :السلام عليكم
بعد ابداع الاخوان معك
فيه طريقه سهله لكن لابد ان تتأكد من ان الموقع رسمي ولن يتغير
ضع الأداة
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
طبعا بعد ضغط الزر انتظر قليلا وسوف ترا النتائج في الليست بوكس
وترجم الكود حسب احتياجك
بالتوفيق ,,,
السلام عليكم
يااخي بارك الله فيك ومشكوررر الكود الذي اعطيتنا اياه يشتغل على تمام
ممكن تشرحه الكود من فضل