If InStr(WebBrowser1.LocationURL, "baidu") > 0 Then
用控件的LocationURL属性判断当前打开页面的地址Retrieves the URL of the resource that Internet Explorer is currently displaying.
