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

[rohammaster]

من ميخواستم مثلا قيمت يك خودرو را از يك سايت و تبىيل قيمت ان به ريال . چطور ميتونم اين اطلاعات رو از يك سايت بطور اتوماتيك بگيرم :بامزه:

[arash020]

سلام
من تو این زمینه تاحدودی کار کردم
مثلا یکی از برنامه هام این بود که خودکار کارهایی که مدیر وبلاگ (blogfa رو کار کردم)میتونست انجام بده رو انجام میداد.
هر برنامه ای قابل برنامه نویسیه توی وب, فقط هنوز نتونستم کد ترجمه تصویر امنتی رو ...
لطفا دقیق تر بگو و عکسی از اون سایت رو بزار یا لینکش رو بده تا بتونم راهنماییت کنم .

با آرزوی موفقیت

[rohammaster]

آرش جان سلام و ممنون از همکاریت
برای مثال سایت http://www.mazanex.com/
فرض کنیم من هر روز قیمت گرم طلای 18 در بازار تهران را احتیاج دارم
:چشمک:

[hakim22]

راه ساده ترش استفاده از WebBrowser به صورت زیره :



Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
WebBrowser1.Navigate("http://www.mazanex.com/")
End Sub

Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEv entArgs) Handles WebBrowser1.DocumentCompleted
'TextBox1.Text = WebBrowser1.DocumentText

Dim htmElm As HtmlElement

htmElm = WebBrowser1.Document.GetElementById("d3_3")
Label1.Text = htmElm.InnerText
End Sub


---
توجه کن که من دوتا دکمه دارم ، روی اولی وقتی کلیک می کنم webbrowser به صفحه ی مورد نظرم Navigate می کنه
بعد میام روی رویدادهای WebBrowser حال DocumentCompeleted رو انتخاب می کنم و در اونجا از
WebBrowser1.Document.GetElementById("d3_3")
استفاده می کنم که محتوای عنصر d3_3 که همون خانه از جدول قیمت طلاست رو بهم نشون بده
عبارت d3_3 رو با جستجو در سورس صفحه اینترنت (کلیک راست - ViewSource) پیدا کردم
84315
موفق باشید

www.p30ton.net (http://www.p30ton.net/)

[rohammaster]

حکیم جان دمت گرم . یه زحمت دیگه ....
ستون کمترین یا بیشترین رو Id سلولش رو چجوری پیدا کنم توی سورسش فقط تگ td رو نشون میده

[arash020]

تکه های یکی از برنامه های این کارمو میزارم , تست کن اون روش هایی که به درد میخوره رو خودت بردار .
'----------وارد کردن نام کاربری و پسورد----------
Dim htmlDoc As HtmlDocument = W.Document
htmlDoc.All("uid").InnerText = T_uid.Text
htmlDoc.All("password").InnerText = T_password.Text
'--------------------

L1.BackColor = Color.LawnGreen
L2.BackColor = Color.Gold

'-----------کلیک روی دکمه ورود---------
Dim btlogin As HtmlElement
btlogin = W.Document.GetElementById("btnSubmit")
btlogin.Focus()
SendKeys.Send("{ENTER}")

'--------------------
Dim theElementCollection As HtmlElementCollection
Dim ctrlIdentity As String

theElementCollection = W.Document.GetElementsByTagName("a")

For Each curElement As HtmlElement In theElementCollection
ctrlIdentity = curElement.GetAttribute("innerText").ToString
' MessageBox.Show(curElement.GetAttribute("innerText").ToString)
If ctrlIdentity = " جدید" Then
L5.Text = i & "-" & ctrlIdentity
curElement.InvokeMember("click")
curElement.InvokeMember("click")
End If
Next

Dim elementsInput2 As HtmlElementCollection = W2.Document.GetElementsByTagName("form")
For Each element2 As HtmlElement In elementsInput2
MessageBox.Show(element2.GetAttribute("action"))
W2.Navigate(element2.GetAttribute("action"))
Exit For
Next

[hakim22]

دوست من همیشه چند تا روش دیگه هم برای بدست آوردن اطلاعات از درون یک پیج هست !


Dim doc As HtmlDocument
doc.GetElementById()
doc.GetElementFromPoint()
doc.GetElementsByTagName()