رفتن به مطلب
برای استفاده از انجمن و عضـویت کلیک کنید.

AnswerCenter

مرکز پاسخگویی به سوالات برنامه نویسی

  • مرجع پاسخگویی
  • تولید آموزش
  • سفارش پروژه

درخواست سفارش پروژه

اطلاعیه

کاربر گرامی

به انجمن برنامه نویسی AnswerCenter.ir خوش آمدید

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


  • 0
alimo1999

دانلود از اینستاگرام

سوال

alimo1999    42

کاربر عادی

سلام بر همه دوستان

اقا من یه اپ دانلود از ایستاگرام درست کرده بودم با استفاده از  کتابخونه ولی الان کار نمیکنه یعنی  فقط عکس رو نمیشه دان کرد ویدیو رو میشه؟

چی کار باید کنم؟

پیشاپیش ممنون از دوستانی که جواب میدن♥

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

4 پاسخ به این سوال تا کنون داده شده است

پست های پیشنهاد شده

  • 0
مهدی ایزدی    9,162

موسس و بنیان گذار

سلام

لینکی که واسه دانلود ویدئو انتخاب میکنه رو توی Log بنداز ببین لینک درسته یا نه ؟

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

منتهی اول طبق حرفی که زدم تست کن و مطمئن شو لینک رو درست و کامل برمیداره !

  • پسندیدن 1
  • تشکر 1

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
  • 0
Mr Mansour    244

مدیر بخش

با سلام

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

اما خوب بنده این برنامه رو نوشته ام و چون اینکه دیدم برای این دو خط کد کلی سایتا واسه فروش گذاشتن که واقعا هم خنده داره  تصمیم گرفتم رایگان قرار بدمش که دوستان استفاده کنن :unknown:

برای دانلود ویدیو :

Sub JobDone (job As HttpJob)
	If job.Success Then
		If job.JobName = "ok" Then
			Dim mt As Matcher = Regex.Matcher("<meta property=""og:video:secure_url"" content=""(.*)"" />",job.GetString)
				video.Download(mt.Group(1))
		End If
		
		End If
		If job.JobName = "vid" Then
			Dim vidname As String = "vid-"&Rnd(1,10000)&".mp4"
			Dim out As OutputStream = File.OpenOutput(File.DirRootExternal,"Download/"&vidname,False)
			File.Copy2(job.GetInputStream,out)
			out.Close
		End If

 

  • پسندیدن 3
  • تشکر 1

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
  • 0
alimo1999    42

کاربر عادی

سلام مجدد

مطلب ادیت کردم فیلم می تونم دانلود کنم به راحتی ولی عکس رو نمیشه

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

URL signature mismatch

ولی میگم با دان فیلم مشکلی ندارم

اقای ایزدی لینکم صحیح کاملا♥

@Mr Mansour

 برای عکس چه جوری میشه؟

قبلا کتابخونه عکس دان می کرد ولی الان نه:empathy2:

در در 1398/03/17, 05:06:33، Mr Mansour گفته است :

با سلام

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

اما خوب بنده این برنامه رو نوشته ام و چون اینکه دیدم برای این دو خط کد کلی سایتا واسه فروش گذاشتن که واقعا هم خنده داره  تصمیم گرفتم رایگان قرار بدمش که دوستان استفاده کنن :unknown:

برای دانلود ویدیو :


Sub JobDone (job As HttpJob)
	If job.Success Then
		If job.JobName = "ok" Then
			Dim mt As Matcher = Regex.Matcher("<meta property=""og:video:secure_url"" content=""(.*)"" />",job.GetString)
				video.Download(mt.Group(1))
		End If
		
		End If
		If job.JobName = "vid" Then
			Dim vidname As String = "vid-"&Rnd(1,10000)&".mp4"
			Dim out As OutputStream = File.OpenOutput(File.DirRootExternal,"Download/"&vidname,False)
			File.Copy2(job.GetInputStream,out)
			out.Close
		End If

 

 

در در 1398/03/16, 15:50:20، مهدی ایزدی گفته است :

سلام

لینکی که واسه دانلود ویدئو انتخاب میکنه رو توی Log بنداز ببین لینک درسته یا نه ؟

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

منتهی اول طبق حرفی که زدم تست کن و مطمئن شو لینک رو درست و کامل برمیداره !

 

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
  • 0
Mr Mansour    244

مدیر بخش

دوست عزیز واسه عکس هم به همین شکله

کافیه یکم دقت میکردین

 

اول میخواستم که نزارم این کد هارو چون این کار باعث تنبلی شما میشه که همیشه دنبال کد های آماده باشین اما خوب گذاشتم که بفهمید نحوه کارش چجوره ولی بهتره که بدونین در ظاهر داره چی میشه

موفق باشید

Dim pic As Matcher = Regex.Matcher("<meta property=""og:image"" content=""(.*)"" />",job.GetString)
img.Download(pic.Group(1))


	If job.JobName = "img" Then
			Preview.Bitmap = job.GetBitmap
			Dim imgname As String = "Rnd(10000,99999)&".jpg"
			Dim out As OutputStream = File.OpenOutput(File.DirRootExternal,"Download/"&imgname,False)
			job.GetBitmap.WriteToStream(out,100,"JPEG")			
			out.Close
	End IF

 

  • پسندیدن 1

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

مهمان
پاسخ به این سوال ...

×   شما در حال چسباندن محتوایی با قالب بندی هستید.   حذف قالب بندی

  تنها استفاده از 75 اموجی مجاز می باشد.

×   لینک شما به صورت اتوماتیک جای گذاری شد.   نمایش به عنوان یک لینک به جای

×   محتوای قبلی شما بازگردانی شد.   پاک کردن محتوای ویرایشگر

×   شما مستقیما نمی توانید تصویر خود را قرار دهید. یا آن را اینجا بارگذاری کنید یا از یک URL قرار دهید.


×
×
  • جدید...