گرفتن لینک تصویر اینستاگرام

[solmos36 69]

سلام نیاز شدید به راهنمایی دارم

تو برنامه های  اینستا گرام وقتی لینک رو کپی میکنم تمام اون پست یعنی نام کاربر عکس و متن با هم کپی میشه در حقیقت لینک پست ارسالی کاربر رو به ما میده چطور میتونم فقط لینک تصویر رو بگیرم ممنون

[solmos36 69]

آقایون خواهشا راهنمایی کنید من خودم تا این مرحله پیش رفتم ولی واقعا موندم اون لینکی ه میخوام دان نمیشه

 

ببینید کل متن html رو دان کردم بعد با دستور rejex اومدم یه متن خاصی رو جدا کردم و تو متغیر از اون نوع string ریختم و اون متغیر رو به عنوان لینکی که باید دانلود بشه به دانلود منیجر دادم ولی تصویری که میخوام دان نمیشه و فقط یه فایل نا مشخص دانلود میشه ممنون میشم کمک کنید

 

این متن html که تگ تصویر داخلش هست

<img alt="نام محصول:
چادر لبنانی
توضیحات محصول:
چادر لبنانی در حقیقت همان چادر بحرینی است با این تفاوت که پوشش داخلی آن بر خلاف چادر بحرینی که به پهلوها بسته می شد از جلو با دکمه یا زیپ بسته می شود.
چادر دارای دو آستین می باشد و با کش روی سر می ایستد.

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

شماره تماس دفتر:
02632526879
09360313124
ادرس وبسایت:
Sakala.ir
برای خرید تماس بگیرید" class="-cx-PRIVATE-Photo__image" id="pImage_0" src="https://scontent-frt3-1.cdninstagram.com/hphotos-xfp1/t51.2885-15/e35/p320x320/12231000_738430002968553_192277627_n.jpg" data-reactid=".0.1.0.0.0.$https=2//scontent-frt3-1=1cdninstagram=1com/hphotos-xfp1/t51=12885-15/e35/p320x320/12231000_738430002968553_192277627_n=1jpg.0.$pImage_0">

این هم کدهای اندروید

If job.Success=True Then
Dim get As String
get=job.GetString
get = get.Replace("""","'")
Dim k() As String = Regex.Split("<img",get)
For i = 0 To k.Length -1


If k(i).Contains("scontent-frt3-1") Then
Dim str As String=k(i)
str=str.SubString(str.IndexOf("src=")+4)
str=str.SubString2(0,str.IndexOf(".jpg") -0)
 Dim cl As BClipboard
eshtr_down.DOWNLOAD_ADDRESS = str & ".jpg"
DownloaderService.DOWNLOAD_ADDRESS = cl.getText
End If
Next

Else
job1.Download("https://instagram.com/p/-JfThnp07I/")

End If
End Sub