Form_Load 调用 InStr(1, WebBrowser1...... "") 出错

Question

Private Sub Command1_Click()
If InStr(1, WebBrowser1.Document.body.innerText, "网站") <> 0 Then
Label1.Caption = "没打开"
Else
Label1.Caption = "打开"
End If
End Sub[code]Private Sub Form_Load()
WebBrowser1.Navigate "www.baidu.cn"
End Sub以上代码运行后没有问题但现在form_load中需要调用command1下面的命令
于是，
Private Sub Form_Load()
WebBrowser1.Navigate "www.baidu.cn"
command1_click
End Sub提示错误：实时错误'91' 对象变量或with块变量未设置
错误代码行：If InStr(1, WebBrowser1.Document.body.innerText, "网站") <>0 Then
这是为什么啊，应该怎么解决，谢谢没有分了，不好意思

Answer 1

Private Sub Command1_Click()
If InStr(1, WebBrowser1.Document.body.innerText, "网站") <> 0 Then
Label1.Caption = "没打开"
Else
Label1.Caption = "打开"
End If
End SubPrivate Sub Form_Load()
WebBrowser1.Navigate "www.baidu.cn"
End SubPrivate Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Command1_ClickEnd Sub

Answer 2

Private Sub Command1_Click()
If InStr(1, WebBrowser1.Document.body.innerText, "网站") <> 0 Then
Label1.Caption = "没打开"
Else
Label1.Caption = "打开"
End If
End SubPrivate Sub Form_Load()
WebBrowser1.Navigate "www.baidu.com"''加入下面的一个循环，要等网页加载完毕才能读取吧
Do Until WebBrowser1.ReadyState = READYSTATE_COMPLETE
    DoEvents
LoopCommand1_Click
End Sub