WebBrowser1.Navigate "http://www.baidu.com" Do DoEvents If WebBrowser1.ReadyState = 4 Then MsgBox "载入完成": Exit Do Loop