دسترسی به webbrowser

[saeedhord]

با سلام


استادای عزیز چطوری میتونم به webbrowseram ادرس دهی کنم !


مثلا یه ادرس دارم اینطوریه !

webbrowser1.Navigate (" google.com/222222")

حالا من میخوام قسمت 222222 رو تغیر بدم بهتر بگم با یه حلقه به مقدارش اضافه کنم :-؟

مشکل اینجاس نمیتونم به 2222222 دسترسی داشته باشم

[SlowCode]

سلام
در مورد رشته ها بیشتر مطلب بخون.

For i=1 to 1000
Webbrowser1.Navigate "http://site.com/" & i
Next

البته این کد درست نیست چون چند ثانیه طول میکشه تا یه صفحه باز بشه. ولی این حلقه کمتر از یک هزارم ثانیه اجرا میشه. پس شما نمیتونی به این شکل ازش استفاده کنی.
یا باید چندتا وب بروزر ایجاد کنی و سایت ها رو بین اونا تقسیم بندی کنی.
یا داخل حلقه وقفه ایجاد کنی.
یا از تایمر استفاده کنی، مثلا با Interval یک ثانیه اینو بنویسی:

Dim Counter as long
Private Sub Timer1_Timer()
Counter = Counter + 1
webbrowser1.navigate "http://site.com/" & Counter
If Counter = 2000 Then Timer1.Enabled = False 'Sharte payan yaftane amaliat
End Sub

تو این کد از 1 تا 2000 انجام میشه.
البته این کدهم یه مشکلی داره. مثلا اگه سرعت اینترنت پایین باشه و صفحه رو باز نکنه بعد 1 ثانیه صفحه بعدی رو باز میکنه!
یه کار دیگه هم میتونی بکنی که دقیق تر هست. باید از رویداد navigateComplete استفاده کنی.