• ¡Welcome to Square Theme!
  • This news are in header template.
  • Please ignore this message.
مهمان عزیز خوش‌آمدید. ورود عضــویت


امتیاز موضوع:
  • 31 رای - 3.29 میانگین
  • 1
  • 2
  • 3
  • 4
  • 5
Title: ذخیره عکسه داخل یه لینک با vb
حالت موضوعی
#1
درود بجه ها.من خیلی تو نت گشتم,خیلی هم سعی کردم تا مشکلم حل بشه ولی نشد!
من یه مبتدی تو برنامه نویسی نت هستم
چیکار کنم که بتونم عکسی که تو لینک زیر لود میشه رو با استفاده از کادر محاوره[Save]ذخیره کنم
(یه command واسه گرفتن grab عکس و یکی هم واسه ذخیره)
من میخوام عکسی که تو این لینک هست رو ذخیره کنم

http://avatar.nimbuzz.com/getAvatar?hl=e...IMBUZZ.COM
***عکس حتما باید داخله یه Image لود بشه بعد با زدن دکمه سیو پنجره محاوره save باز بشه و آدرس رو بپرسه***
*قسمتی که نوشته Iran رو کاربر تو یه Textbox وارد میکنه!
اگه کسی بتونه سورسش رو واسم بذاره ممنونش میشم
 
پاسخ
#2
سلام
لینکی که دادی باز نمیشه
کاری نداره که نوشتنش
من قبلا یه سورس برای ذخیره کردن اواتار یاهوی ایدی نوشتم حتی فرومت png هم بدون کامپونت لود کردم.
در سورس زیر به جای ادرس یاهو ادرس نیم بازت رو بده
لینک :
http://planetsourcecode.com/vb/scripts/S...5&lngWId=1
لینکت باز نشد اگر باز میشد دقیقا پروژتو میدادم
گروه دور همی پارسی کدرز
https://t.me/joinchat/GxVRww3ykLynHFsdCvb7eg
 
پاسخ
#3
سلام
داش من وقتی لینک رو جایگزین کردم خطا داد
ای لینکشه:
/http://avatar.nimbuzz.com/getAvatar?hl=en&jid=iran@NIMBUZZ.COM
راستی عکس باید با اندازه اورجینالش ذخیره بشه

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

اگه میشه از WebBrowser به جا ماژول استفاده کن
داش بخدا شرمنده
 
پاسخ
#4
درود
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

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


.rar   Save Avatar Nimbuzz.rar (اندازه 1.08 KB / تعداد دانلود: 8)
گروه دور همی پارسی کدرز
https://t.me/joinchat/GxVRww3ykLynHFsdCvb7eg
 
پاسخ
  


موضوعات مشابه ...
موضوع نویسنده پاسخ بازدید آخرین ارسال
  ذخیره و فرخوانی فایل تکست aghamali 3 3,324 11-01-2014، 01:58 PM
آخرین ارسال: aghamali
  سورس کد ذخیره میخوام روشنا 5 6,798 06-25-2014، 08:46 AM
آخرین ارسال: Amin_Mansouri
  ذخیره و نمایش عکس aleas 2 2,842 05-19-2014، 01:26 PM
آخرین ارسال: aleas
  گذاشتن ocx داخل خود برنامه alakimalaki 0 2,196 09-02-2012، 02:12 PM
آخرین ارسال: alakimalaki
  سورس کد رمز نگاری Url یا همان لینک Amin_Mansouri 0 2,036 01-05-2012، 05:02 PM
آخرین ارسال: Amin_Mansouri
Star زندانی کردن موس داخل فرم Ghoghnus 0 1,698 09-04-2011، 01:04 PM
آخرین ارسال: Ghoghnus

پرش به انجمن:


Browsing: 1 مهمان