+- Parsi Coders (http://parsicoders.com)
+-- انجمن: Software Development Programming (http://parsicoders.com/forumdisplay.php?fid=37)
+--- انجمن: Visual Basic Programming (http://parsicoders.com/forumdisplay.php?fid=39)
+---- انجمن: Visual Basic 6 (http://parsicoders.com/forumdisplay.php?fid=44)
+---- موضوع: ذخیره عکسه داخل یه لینک با vb (/showthread.php?tid=1820)
ذخیره عکسه داخل یه لینک با vb - !_!_batman_!_! - 02-18-2012
درود بجه ها.من خیلی تو نت گشتم,خیلی هم سعی کردم تا مشکلم حل بشه ولی نشد!
من یه مبتدی تو برنامه نویسی نت هستم
چیکار کنم که بتونم عکسی که تو لینک زیر لود میشه رو با استفاده از کادر محاوره[Save]ذخیره کنم
(یه command واسه گرفتن grab عکس و یکی هم واسه ذخیره)
من میخوام عکسی که تو این لینک هست رو ذخیره کنم
http://avatar.nimbuzz.com/getAvatar?hl=e...IMBUZZ.COM
***عکس حتما باید داخله یه Image لود بشه بعد با زدن دکمه سیو پنجره محاوره save باز بشه و آدرس رو بپرسه***
*قسمتی که نوشته Iran رو کاربر تو یه Textbox وارد میکنه!
اگه کسی بتونه سورسش رو واسم بذاره ممنونش میشم
RE: ذخیره عکسه داخل یه لینک با vb - Amin_Mansouri - 02-18-2012
سلام
لینکی که دادی باز نمیشه
کاری نداره که نوشتنش
من قبلا یه سورس برای ذخیره کردن اواتار یاهوی ایدی نوشتم حتی فرومت png هم بدون کامپونت لود کردم.
در سورس زیر به جای ادرس یاهو ادرس نیم بازت رو بده
لینک :
http://planetsourcecode.com/vb/scripts/ShowCode.asp?txtCodeId=73815&lngWId=1
لینکت باز نشد اگر باز میشد دقیقا پروژتو میدادم
RE: ذخیره عکسه داخل یه لینک با vb - !_!_batman_!_! - 02-19-2012
سلام
داش من وقتی لینک رو جایگزین کردم خطا داد
ای لینکشه:
/http://avatar.nimbuzz.com/getAvatar?hl=en&jid=iran@NIMBUZZ.COM
راستی عکس باید با اندازه اورجینالش ذخیره بشه
این جا که نوشته Iran رو کاربر خودش باید وارد کنه
اگه میشه از WebBrowser به جا ماژول استفاده کن
داش بخدا شرمنده
RE: ذخیره عکسه داخل یه لینک با vb - Amin_Mansouri - 02-19-2012
درود
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)