当你点击WebBrowser 网页一个按钮,页面会被刷新,那么就在网页加载写代码就OK了!Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, Url As Variant)If Not WebBrowser.Busy Then '判断网页是否加载完毕 ...................else........................................end ifEnd Sub