پيدا كردن تصاوير در يك صفحه

[saeedvir]

سلام خدمت همه ي اعضاي برنامه نويس.:خجالت:

من مي خواستم كه لينك تصاويري كه در آدرس زير هست را پيدا كنم.

http://irimo.ir/farsi/satellite/main.asp

اگه كمك كنيد ممنون ميشم.:قلب::لبخند:

در ضمن اين تصاوير هر چند ساعت به روز مي شوند.

[parselearn]

يك پردازش سادست با توابع mid , instr





Private Sub Command1_Click()
s = GetUrlSource("http://irimo.ir/farsi/satellite/main.asp")
If s = "" Then Exit Sub

List1.Clear
i1 = InStr(1, s, "<a target=1 href=")
While (i1 <> 0)
s1 = Mid(s, i1 + 18, 100)
i1 = InStr(1, s1, Chr(34))
List1.AddItem "http://irimo.ir" & Left(s1, i1 - 1)
s = Mid(s, i1 + 100, Len(s))
i1 = InStr(1, s, "<a target=1 href=")
Wend

RemoveSItem List1
RemoveSItem List1
MsgBox List1.ListCount
End Sub