خواندن یک تگ خاص از یک سایت؟

[hamedrezayi]

با سلام به همه دوستان و عزیزان برنامه نویس
یک سوال داشتم خدمت دوستان و اساتید .خیلی ممنون میشم به من کمک کنید

من میخواستم یک تگ خاص از یک سایت رو توسط برنامه بگیرم.به طور مثال میخوام تگ رو رو که مربوط به سایت گوگل هست رو بگیرم و عکس اون رو در یک Picturebox در برنامه نمایش بدم
<img alt="Google" height=95 src="/intl/en_com/images/srpr/logo1w.png" width=275 id=hplogo style="padding-top:136px" onload="window.lol&&lol()">دوستان توجه کنید که من نمیخوام یک ادرس مشخص رو بخونم چون معلوم نیست که اسم فایل چی باشه میخوام با دادن تگ ان به برنامه برنامه عکسشو توی Picturebox نمایش بده.

من میخوام مثلا سایت google.com رو توسط کامپوننت Webbrowser لود کنم و بعد در سورس اون تگ مورد نظر رو بخونم و عکس رو نمایش بدم

اگر تاپیک تکراری هست من رو ببخشید چون تازه وارد هستم:خجالت:
خیلی خیلی ممنون میشم سورس برام قرار بدین.ممنون از همه

[omidpa2]

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

اگه دوستان کمک کمم ممنون میشم!

[Samsam2010]

سلام
برنامه اشو صبح نوشتم

http://barnamenevis.org/showthread.php?358387-%DA%AF%D8%B1%D9%81%D8%AA%D9%86-%D8%B9%DA%A9%D8%B3-%D8%A7%D8%B2-%D9%BE%DB%8C%DA%A9%DA%86%D8%B1%D8%A8%D8%A7%DA%A9%D 8%B3-%D9%87%D8%A7%DB%8C-%DB%8C%DA%A9-%D8%B3%D8%A7%DB%8C%D8%AA

[omidpa2]

اینو دانلود کردم پروژه باسه من باز نمیشد
ولی کد هاشو دیدم چوب به دیزاین دسترسی ندارم نمیتونم بفهمم چی کار کردین!

اگه میشه کد اینی که میخوام رو بگید

داخل بروزر یا لینک لود میشه
داخل اون صفحه یه عکس هست که تگ اون = "omid"
این عکس توی پیکچر باکس من لود بشه!


ممنون

[Samsam2010]

اول :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

find_url(TextBox1.Text.Trim)
End Sub

دوم :

Private Sub find_url(ByVal id As String)

Dim ht As HtmlElementCollection

Dim img As String = ""

ht = WebBrowser1.Document.Images

For Each x As HtmlElement In ht
If x.Id = id Then
img = x.OuterHtml
Exit For
End If

Next

If img.Length = 0 Then
MsgBox("Not found !")
Else

Dim dl As New WebClient
Dim path As String = ToolStripTextBox1.Text + link(img)

Dim files_path As String = Environment.GetFolderPath(Environment.SpecialFolde r.ApplicationData) + "\" + path.Substring((path.LastIndexOf("/") + 1), path.Length - path.LastIndexOf("/") - 1)
dl.DownloadFile(path, files_path)
Dim b As New Bitmap(files_path)

PictureBox1.Image = b



End If


End Sub


Private Function link(ByVal lk As String) As String

Dim oldValue = Regex.Match(lk, "\<img.+?src=""(.+?)""", RegexOptions.IgnoreCase).Groups(1).Value
Return oldValue

End Function

[omidpa2]

دادا شرمنده بازم نفهمیدم

برنامه من وقتی باز میشه باید عکس پروفایل کارر از سایت لود بشه داخل پیکچر باکس!

[Samsam2010]

1.شما میای توی webbrowser گوگل رو لود میکنی
2. ID عکس رو که میخوای در بیاری به تابع find_url میدی که مثلا برای لوگوی گوگل میشه hplogo
3.متد find_url خروجیش میشه این
<img alt="Google" height="95" src="/images/srpr/logo3w.png" width="275" id="hplogo" onload="window.lol&amp;&amp;lol()" style="padding-top:112px">
4.حالا باید عکس رو از تو src بخونی با متد link این کار انجام میشه
5.خروجی متد لینک میشه این
/images/srpr/logo3w.png
6. خروجی متد لینک رو با اسم کامل سایت پیوند میدیم
میشه این
http://google.com/images/srpr/logo3w.png
7.میدیم به Webclient برای دانلود
8. دانلود که تموم شد میریزم توی یه bitmap و در picturebox نمایش میدیم !