تشخیص خارج شدن از صفحه یا ماندن در صفحه توسط WebBrowser

[maniaf69]

سلام به دوستان و مدیران سایت برنامه نویس
از بین دوستان کسی می دونه چطوری می تونم توسط WebBrowser تشخیص بدم که کاربر از صفحه اصلی خارج شده یا هنوز تو صفحه باقی مانده است؟:اشتباه:

مثلاً صفحه ای که الان سایت باز کرده به این صورت است :چشمک:

www.site.com/main.php

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

www.site.com/main.php?id=45

می خواستم بدونم راهی هست که تشخیص بدیم برنام هنوز تو همون صفحه مونده یا از صفحه خارج شده است؟:متفکر::بوس::قلب:

[امین مستانی]

خوب url اولی رو تو یک متغیر بزار بعد چک کن که url با متغیر برابر هست یا نه:لبخند:

[maniaf69]

خوب دوست عزیزمیدونم باید چک بشه:قهقهه: ولی چطوری url کامپوننت WebBrowser رو به دست بیارم؟:متعجب:

[امین مستانی]

با یک جستجو ساده میتونی جوابتو پیدا کنی
این دوتا رو بخون توضیح کامل داره

تاپیک 1 (http://barnamenevis.org/showthread.php?177785-%D8%AA%D9%85%D8%A7%D9%85%DB%8C-%D8%A2%D9%85%D9%88%D8%B2%D8%B4-%D9%87%D8%A7%DB%8C-WebBrowser-%D9%87%D9%85%DB%8C%D9%86%D8%AC%D8%A7)
تاپیک 2 (http://barnamenevis.org/showthread.php?168223-%D8%AF%D8%B3%D8%AA%D8%B1%D8%B3%D9%8A-%D8%A8%D9%87-%D8%A7%D8%AC%D8%B2%D8%A7%D9%8A-%D8%B5%D9%81%D8%AD%D9%87-%D8%AF%D8%B1-%DA%A9%D9%86%D8%AA%D8%B1%D9%84-WebBrowser)

[maniaf69]

تو این 2 تا تاپیک به جواب نرسیدم قبلاً هم اینا رو گشتم که تاپیک زدم

[ramzdar]

بفرما دوست عزیز. اینم کد شما.
هم میشه از تایمر استفاده کرد هم از رویدادهای خود WebBrowser. من تو کد زیر از رویداد ProgressChange مربوط به WebBrowser استفاده کردم
Dim FLG As Boolean

Private Sub Form_Load()
WebBrowser1.Silent = True
WebBrowser1.Navigate "http://www.site.com/main.php"
FLG = False
End Sub

Private Sub WebBrowser1_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long)
If WebBrowser1.LocationURL <> "http://www.site.com/main.php" And FLG = False Then
MsgBox "az safhe kharej shod"
FLG = True
End If
End Sub