ذخیره مقدار WebBrowser

[vB.N3T]

سلام

یه WebBrowser داریم که یه عکسی توش دخیره هست
و یه کامند که صفحه سیو رو باز میکنه
حالا چه جور باید اون عکس که تو WebBrowser هست رو ذخیره کنیم
من یه قست از کد رو میدونم ممنون میشم راهنمایی کنید




CommonDialog1.ShowSave
ommonDialog1.FileTitle = "Save Picture"
CommonDialog1.Filter = "JPG Files(*.jpg)|*.Jpg| BMP Files(*.bmp)|*.bmp"
Call SavePicture( Dostan in ghesmat moshkel dare????)

[_behnam_]

لینک عکس رو بدست بیار با Internet Transfer به صورت Byte() دریافتش کن و بعد به صورت باینری به فایل با فرمت دلخواه تو مسیرت ایجاد کن و فایل رو روش ذخیره کن


Dim File() As Byte
File = Inet.OpenURL("Link", icByteArray)
Open "C:\pic.jpg" For Binary As #1
Put #1, , File
Close #1

[vB.N3T]

من این کد رو در برنامه اافاده کردم لینک عکس هم دادم اما یه عکس خالی تو درایو c سیو میکنه

برنامه به این صوررت هست که تو تکس باکس به ایدی یاهو میدی و با استفاده از این کد عکس کنار ایدی رو بر میگردونه


WebBrowser1.Navigate "http://img.msg.yahoo.com/avatar.php?yids=?/" & Text1 & "&m=g&t=0&size=medium&format=jpg&height=200&width=200"

حالا برای سیو این عکس با کامند دیالوگ مشکل دارم

[_behnam_]

Dim File() As Byte
File = Inet.OpenURL("http://img.msg.yahoo.com/avatar.php?yids=" & "ovv_l" & "&.jpg", icByteArray)
Open "C:\pic.jpg" For Binary As #1
Put #1, , File
Close #1

به جای ovv_l آیدی مورد نظر رو بنویس

[vB.N3T]

باز هم نشد

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

[vB.N3T]

کسی نبود جواب بده

[_behnam_]

دوست عزیز کدی که من دادم همین کارو انجام میده یعنی عکس آواتار آیدی رو ذخیره میکنه اما در مسیر "C:\pic.jpg"
Open "C:\pic.jpg" For Binary As #1
شما خودتون میتونید مسیر دیالوگ رو وارد کنید توی کد
کد مشکلی نداره