[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)