درود بجه ها.من خیلی تو نت گشتم,خیلی هم سعی کردم تا مشکلم حل بشه ولی نشد!
من یه مبتدی تو برنامه نویسی نت هستم
چیکار کنم که بتونم عکسی که تو لینک زیر لود میشه رو با استفاده از کادر محاوره[Save]ذخیره کنم
(یه command واسه گرفتن grab عکس و یکی هم واسه ذخیره)
من میخوام عکسی که تو این لینک هست رو ذخیره کنم
http://avatar.nimbuzz.com/getAvatar?hl=e...IMBUZZ.COM
***عکس حتما باید داخله یه Image لود بشه بعد با زدن دکمه سیو پنجره محاوره save باز بشه و آدرس رو بپرسه***
*قسمتی که نوشته Iran رو کاربر تو یه Textbox وارد میکنه!
اگه کسی بتونه سورسش رو واسم بذاره ممنونش میشم
سلام
لینکی که دادی باز نمیشه
کاری نداره که نوشتنش
من قبلا یه سورس برای ذخیره کردن اواتار یاهوی ایدی نوشتم حتی فرومت png هم بدون کامپونت لود کردم.
در سورس زیر به جای ادرس یاهو ادرس نیم بازت رو بده
لینک :
http://planetsourcecode.com/vb/scripts/S...5&lngWId=1
لینکت باز نشد اگر باز میشد دقیقا پروژتو میدادم
سلام
داش من وقتی لینک رو جایگزین کردم خطا داد
ای لینکشه:
/http://avatar.nimbuzz.com/getAvatar?hl=en&jid=iran@NIMBUZZ.COM
راستی عکس باید با اندازه اورجینالش ذخیره بشه
این جا که نوشته Iran رو کاربر خودش باید وارد کنه
اگه میشه از WebBrowser به جا ماژول استفاده کن
داش بخدا شرمنده
درود
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
دانلود سورس کد :
[
attachment=129]