لود کامل وب بروزر

[oYaMaa]

سلام دوستان!
شرمندم ولی گشتم پیدا نکردم!

میخوام وب بروزر 1 زمانی که به طور کامل سایتی که باید باز کنه رو باز کرد، وب بروزر 2 یک سایت دیگه رو باز کنه.
من از رویداد های statusTextchange و documentcompelet استفاده کردم ولی جواب نداد!
چون وقتی وی بروزر هیچ چیزی هم باز نمیکنه رویداد documentcompelet متغیر داره و از طرفی توی این رویداد ها چندبار بررسی میشن که باعث میشه وب بروزر 2 عمل نکنه!

ممنون میشم راهنماییک کنید!

[majidbahrami]

ببین این کمکت میکنه.. بعد از لود پیغام میده

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
msgbox "Page Load"
End Sub



این لینک رو هم ببینید
http://barnamenevis.org/showthread.php?171890-%D8%A8%DA%A9%D8%A7%D8%B1%DA%AF%DB%8C%D8%B1%DB%8C-ProgressBar-%D8%AF%D8%B1-WebBrowser&p=773180#post773180

اینم یه کد دیگه که وقتی صفحه لود شد برنامه در Label1 می نویسه Done و دکمه Command1 فشار می دهد.

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, url As Variant)
Label1.Caption = "Done"
Command1_Click
End Sub



موفق باشید

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

سلام

این تکه کد باعث میشه تا وقتی که وب بروزر کامل لود نشده ادامه دستورات اجرا نشه :




WebBrowser1.Navigate "www.google.com"

Do Until WebBrowser1.ReadyState = READYSTATE_COMPLETE
DoEvents
Loop

Msgbox "Done"



موفق باشید

[oYaMaa]

ممنون از دوستان!
کارم راه افتاد ولی یه مشکل دیگه.گاهی اوقات پیش میاد که سایت به طور کامل لود نمیشه، پس با این کد به مشکل میخورم.
راهی هست، زمانی که وب بروزر راه افتاد و حتی یکم از سایت رو لود کرد، پیغام بده؟
اگر از رویداد documentcompelete استفاده کنم جواب نمیده، میخوام از همین کد readystate استفده کنم، آیا چیزه دیگه هست که جای readystate_copmlete بذارم که این کارو کنه؟
ممنون!

[oYaMaa]

دوستان معذرت میخوام مشکل حل شد، فهمیدم!

[oYaMaa]

یکی از دوستان سوال کردند چطور به جواب سوال آخرم رسیدم، گفتم اینجا بگم.
از همین کد readystate استفاده کردم، فقط جای readystate_copmlete گذاشتم READYSTATE_INTERACTIVE

یا حق!