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

[saeedvir]

سلام خدمت همه ي دوستان.

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

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

اگه كمك كنيد ممنون ميشم.

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

[CRazYFULL]

نوشتنش از توضيح دادنش کمتر نياز به تايپ داشت

کد:

Private Sub Command1_Click()
Dim strLinks() As String, I As Long
Call LinKSpliter(HDMLData, strLinks)

For I = 1 To UBound(strLinks)
List1.AddItem strLinks(I)
Next

End Sub

Public Function LinKSpliter(ByVal DATA As String, ByRef strList() As String)
Dim Link As String, I As Integer, AvalLnk As String, AkharLnk As String
AvalLink = "<a target=1 href="""
Akhar = """"

    Do While InStr(DATA, AvalLink) > 0
        Link = "http://irimo.ir" & Split(Split(DATA, AvalLink)(1), Akhar)(0)
        I = I + 1
        ReDim Preserve strList(I)
        strList(I) = Link
        'List.AddItem Link
        '=========
        DATA = Right(DATA, Len(DATA) - InStr(DATA, AvalLink))
      DoEvents
    Loop
End Function

[saeedvir]

خيلي ممنون كه پاسخ داديد .

كجا بايد سورس صفحه را قرار بدم ؟؟؟

[CRazYFULL]

!
سورس صفحه رو بريز تو يه متغير به نام HDMLData