[!_!_batman_!_!]

درود بجه ها.من خیلی تو نت گشتم,خیلی هم سعی کردم تا مشکلم حل بشه ولی نشد!
من یه مبتدی تو برنامه نویسی نت هستم
چیکار کنم که بتونم عکسی که تو لینک زیر لود میشه رو با استفاده از کادر محاوره[Save]ذخیره کنم
(یه command واسه گرفتن grab عکس و یکی هم واسه ذخیره)
من میخوام عکسی که تو این لینک هست رو ذخیره کنم

http://avatar.nimbuzz.com/getAvatar?hl=e...IMBUZZ.COM
***عکس حتما باید داخله یه Image لود بشه بعد با زدن دکمه سیو پنجره محاوره save باز بشه و آدرس رو بپرسه***
*قسمتی که نوشته Iran رو کاربر تو یه Textbox وارد میکنه!
اگه کسی بتونه سورسش رو واسم بذاره ممنونش میشم

[Amin_Mansouri]

سلام
لینکی که دادی باز نمیشه
کاری نداره که نوشتنش
من قبلا یه سورس برای ذخیره کردن اواتار یاهوی ایدی نوشتم حتی فرومت png هم بدون کامپونت لود کردم.
در سورس زیر به جای ادرس یاهو ادرس نیم بازت رو بده
لینک :
http://planetsourcecode.com/vb/scripts/S...5&lngWId=1
لینکت باز نشد اگر باز میشد دقیقا پروژتو میدادم

[!_!_batman_!_!]

سلام
داش من وقتی لینک رو جایگزین کردم خطا داد
ای لینکشه:
/http://avatar.nimbuzz.com/getAvatar?hl=en&jid=iran@NIMBUZZ.COM
راستی عکس باید با اندازه اورجینالش ذخیره بشه

این جا که نوشته Iran رو کاربر خودش باید وارد کنه

اگه میشه از WebBrowser به جا ماژول استفاده کن
داش بخدا شرمنده

[Amin_Mansouri]

درود
10 دقیقه وقتمو گرفت به همراه سورس پیوست کردم یا سورس زیر راحت میتوانید هم اواتار nimbuzz رو نگاه کنید و به فرمت jpg ذخیره کنید.

Code :

کد:

'Coder : Mohammad Amin Mansouri
'Public By Www.parsicoders.com (Persian Team)
Private Declare Function URLDownloadToFile Lib "urlmon" _
   Alias "URLDownloadToFileA" _
  (ByVal pCaller As Long, _
   ByVal szURL As String, _
   ByVal szFileName As String, _
   ByVal dwReserved As Long, _
   ByVal lpfnCB As Long) As Long

Private Const ERROR_SUCCESS As Long = 0
Private Const BINDF_GETNEWESTVERSION As Long = &H10
Private Const INTERNET_FLAG_RELOAD As Long = &H80000000

Public Function DownloadFile(sSourceUrl As String, _
                             sLocalFile As String) As Boolean

   DownloadFile = URLDownloadToFile(0&, _
                                    sSourceUrl, _
                                    sLocalFile, _
                                    BINDF_GETNEWESTVERSION, _
                                    0&) = ERROR_SUCCESS

End Function


Private Sub Command1_Click()
Me.DownloadFile ("http://avatar.nimbuzz.com/getAvatar?hl=en&jid=" & ID.Text & "@NIMBUZZ.COM"), Path.Text
Picture1.Picture = LoadPicture(Path.Text)

End Sub

Private Sub Form_Load()
Me.Caption = "Save Avatar Nimbuzz"
ID.Text = "iran"
Path.Text = "C:\iran.jpg"
End Sub

دانلود سورس کد :


  Save Avatar Nimbuzz.rar (اندازه 1.08 KB / تعداد دانلود: 8)