7,759
社区成员
发帖
与我相关
我的任务
分享
Private Sub Command1_Click()
WebBrowser1.Navigate "www.baidu.com"
While WebBrowser1.ReadyState <> 4
oEvents
Wend
p = 1
End Sub
Private Sub Command1_Click()
WebBrowser1.Navigate "www.baidu.com"
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
If pDisp Is WebBrowser1.Object Then p = 1
End Sub