ايران ويج

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

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

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

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

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

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

کد: 
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

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

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

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

saeedvir

CRazYFULL

saeedvir

CRazYFULL