دریافت عکس پروفایل اینستاگرام

[amir1999 81]

سلام

3 روز وقت گذاشتم برای انجام این کار به ظاهر ساده:

دریافت عکس پروفایل یک اکانت در اینستاگرام توسط آیدی اون اکانت

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

یعنی آدرس اکانت باز بشه و عکس پروفایل دانلود بشه البته توسط لینکی که میده و توسط class

و مشکل اینجاست که 2 بار کار میکنه و 5 بار کار نمیکنه :|

راهی سراغ ندارید؟

در ضمن لینک عکس پروفایل با تغییر دادن عکس، عوض میشه!

[AMiN.M7892 1,029]

یعنی چی دوست عزیز 2 بار کار میکنه و 5 بار کار نمیکنه؟

تغییر لینک عکس هم که طبیعیه چون بعنوان یک فایل جدید در سرور ذخیره میشه

[amir1999 81]

در 5 دقیقه قبل، AMiN.M7892 گفته است :

یعنی چی دوست عزیز 2 بار کار میکنه و 5 بار کار نمیکنه؟

تغییر لینک عکس هم که طبیعیه چون بعنوان یک فایل جدید در سرور ذخیره میشه

2 و 5 رو فقط برای مثال گفتم

کلا هر وقت دلش میخواد میاد هر وقتم دوست نداره نمیاد

یعنی درست کار نمیکنه

[AMiN.M7892 1,029]

کدهاتونو بفرستید

[محمد رشوند 1,208]

با سلام ،

طبق گفته آقا امین میتونین کد های مربوطه رو ارسال کنید بررسی بشه ،

من یک کتابخونه در این باره نوشتم ولی هنوز داخل فروشگاه سایت ارسال نشده در صورت نیاز میتونید به آیدی تلگرام بنده Blackgram پیام بدید.

[amir1999 81]

در 21 ساعت قبل، AMiN.M7892 گفته است :

کدهاتونو بفرستید

 

در 7 ساعت قبل، محمد رشوند گفته است :

با سلام ،

طبق گفته آقا امین میتونین کد های مربوطه رو ارسال کنید بررسی بشه ،

من یک کتابخونه در این باره نوشتم ولی هنوز داخل فروشگاه سایت ارسال نشده در صورت نیاز میتونید به آیدی تلگرام بنده Blackgram پیام بدید.

webInsta.Initialize("webInsta")
extras9.addJavascriptInterface(webInsta,"getpro")
extras9.addWebChromeClient(webInsta,"")
webInsta.LoadUrl("https://www.instagram.com/"&idProfileMoredNazar)

با کد های بالا صفحه پروفایل مورد نظر رو لود میکنم

Sub webInsta_PageFinished (Url As String)
	extras9.executeJavascript(webInsta,"getpro.CallSub('GetPro_done', true, document.getElementsByClassName('_9bt3u')[0].src)")
End Sub

اینم که واضحه

Sub GetPro_done(text As String)
	text = text.Replace("s150x150","s256x256")
	Dim ariaglide As AriaGlide
	ariaglide.Load(text).AsBitmap.IntoTarget("glide1","Ax1")
End Sub

توی خط اول به جای عکس با اندازه 150 عکس 256 رو لود میکنم که کیفیتش بهتر باشه

و خطوط بعدی هم عکس رو با اریا لود میکنم

Sub glide1_OnBitmapReady(bitmap As Bitmap,Tag As Object)
	ariaPhoto.Initialize("ariaPhoto")
	ImgInsta1.Bitmap = ariaPhoto.GetCircleBitmap(bitmap)
End Sub

فکر نمیکنم کد ها مشکلی داره و شاید محدودیتی چیزی از طرف اینستاگرام وجود داره

در ضمن اینترنت ADSL بهتر لود میکنه نسبت به اینترنت گوشی

[amir1999 81]

به کمک کتابخانه آقای رشوند مشکل حل شد.

امیدوارم سریع تر داخل فروشگاه قرار بگیره این محصول ارزشمند