دریافت ایدی پست های اینستاگرام

[H4N9_0V3R 7]

سلام

چطور میشه ایدی هر پست اینستا رو دریافت کرد

کتابخانه یا قطعه کدی دارید ممنون میشم قرار بدید

[shahrokhnazari 110]

فکر نمکنم بشه اینکار رو کرد

به API های اینستا یه سری بزن

 

[H4N9_0V3R 7]

در 7 دقیقه قبل، shahrokhnazari گفته است :

فکر نمکنم بشه اینکار رو کرد

به API های اینستا یه سری بزن

 

از طریق ادرس زیر میشه اطلاعات کامل یک پست رو بدست اورد

http://api.instagram.com/oembed?url=https://www.instagram.com/p/BV0VUBnl5Fk

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

 

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

 

Sub JobDone(job1 As HttpJob)
	If job1.Success Then
		If job1.JobName = "send" Then
			ProgressDialogHide
			Dim parser As JSONParser
			Dim MapData As Map
			parser.Initialize(job1.GetString)
			MapData = parser.NextArray
			Msgbox(MapData.Get("media_id"),"title")
		
		End If
	End If
End Sub

و

 

Sub Button1_Click
	ht.Initialize("send",Me)
	ht.Download("http://api.instagram.com/oembed?url='"& EditText1.text &"'"")
	
	ProgressDialogShow("درحال دریافت")

End Sub