رفتن به چندین صفحه به ترتیب بر اسا فرمت خاص در وب بروس

[hackershz]

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

خسته نباشید

دوستان من میخوام توسط کامپونت وب بروس کاری کنم که توی تمام صفحات یک سایت بره

نحوه کار :» آدرس سایت رو به برنامه میدیم بعد دیگه برنامه میاد از صفحه یک که بازدید کرد میره صفحه ی 2 صفحه ی 2 که کامل لود شد میره صفحه ی 3 و همچنین به کارش خودش ادامه میده به صورت خودکار صفحه صفحه لود که شد میره صفحه ی بعدیش

نکته : صفحه وقتی لود شد میره سراغ صفحه ی بعدی

صفحه ها به چه شکل است ؟


(http://pars-360.ning.com/profiles/friend/list?page=1&xg_source=profiles_memberList_next)http://pars-360.ning.com/profiles/friend/list?page=1&xg_source=profiles_memberList_next (http://pars-360.ning.com/profiles/friend/list?page=1&xg_source=profiles_memberList_next)



(http://pars-360.ning.com/profiles/friend/list?page=2&xg_source=profiles_memberList_next)http://pars-360.ning.com/profiles/friend/list?page=2&xg_source=profiles_memberList_next (http://pars-360.ning.com/profiles/friend/list?page=2&xg_source=profiles_memberList_next)



(http://pars-360.ning.com/profiles/friend/list?page=3&xg_source=profiles_memberList_next)http://pars-360.ning.com/profiles/friend/list?page=3&xg_source=profiles_memberList_next (http://pars-360.ning.com/profiles/friend/list?page=3&xg_source=profiles_memberList_next)



(http://pars-360.ning.com/profiles/friend/list?page=4&xg_source=profiles_memberList_next)http://pars-360.ning.com/profiles/friend/list?page=4&xg_source=profiles_memberList_next (http://pars-360.ning.com/profiles/friend/list?page=4&xg_source=profiles_memberList_next)

......


http://pars-360.ning.com/profiles/friend/list?page=800&xg_source=profiles_memberList_next (http://pars-360.ning.com/profiles/friend/list?page=800&xg_source=profiles_memberList_next)

شماره هایی که قرمز رنگ هستند شماره صفحه هستند

که به ترتیب از 1 شروع میشه تا 800

کاری که میخوای برنامه بکنه اینه که بیاد از صفحه ها دونه دونه بازدید کنه صفحه اول که لود شد خودش بره صفحه دوم
صفحه دوم که لود شد بره صفحه سوم و....

همین جور برنامه بیاد از هر کدمش بازدید کنه و خودکار هی بره وب بعدی آیا کسی میتونه این مشکل بزرگ منو حل کنه ؟


منتظر کمکتون هستم فقط اینجا میتونه کمکم کنههههههه

برنامه نویس ها به دادم برسند مرسی

[scarce]

از رویداد ( DocumentComplete ) در وب بروس استفاده کن. به مثال زیر توجه کنید



Private Sub Web_DocumentComplete(ByVal pDisp As Object, URL As Variant)

Location = PageName

On Error Resume Next

If Not URL = "about:blank" Then
If Location = "" Then Exit Sub
If URL = Location Then
Location = PageNameNext
Web.Navigate = PageNameNext
End If
End If
End Sub

[hackershz]

از رویداد ( DocumentComplete ) در وب بروس استفاده کن. به مثال زیر توجه کنید



Private Sub Web_DocumentComplete(ByVal pDisp As Object, URL As Variant)

Location = PageName

On Error Resume Next

If Not URL = "about:blank" Then
If Location = "" Then Exit Sub
If URL = Location Then
Location = PageNameNext
Web.Navigate = PageNameNext
End If
End If
End Sub



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

میشه یه نمونه پروجه واسه مثال بالا بهم بدید تا قضیه رو بهتر درک کنم شرمنده

مرسی