webbrowser1 由于该控件目前不可见,未启用或其类型不允许,因此无法将焦点移向它 问题

Question

我在写自动填写网页资料并提交的代码
如果用
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
If Not (pDisp Is WebBrowser1.Object) Then Exit Sub
事件进行自动判断网页打开并进行填写和提交任务　
就会出现　错误提示＂由于该控件目前不可见,未启用或其类型不允许,因此无法将焦点移向它＂
如果用
Private Sub Command１_Click()事件　当网页完全打开后　点按钮后　就能完全正确填写并且正常提交　不出任何问题
还有个问题　WebBrowser1_DocumentComplete如何简便的重复使用　
我个人初步确定是最后提交代码的问题，填写代码没有问题．下边是提交任务的代码　：
            ElseIf UCase(vDoc.All(i).tagName) = "DIV" Then  '找到input标签
                 Set vTag = vDoc.All(i)
             　　If vTag.id = "btnContinue" Then
                 vTag.Click 
                End If
            End If这是网页那段提交控件的代码：
<div class="btnBarBottom" align="center">
                <table border="0" cellpadding="0" cellspacing="0">
                    <tr> <td>    
<div btntype="sec" onclick="uram.doContinue();" class="button btnpri1" id="btnContinue" tabindex="0">
<table width="100%" height="100%" cellspacing="0" cellpadding="0" border="0"><tbody><tr>
<td class="btnLeft btnLeftpri1"></td>
<td align="center" class="btnMid btnMidpri1">Continue</td>
<td class="btnRight btnRightpri1"></td>
</tr></tbody></table>
</div>
</td>
                    </tr>
                </table>
</div>
在线急等，请高手速指教．必厚谢．

Answer 1

If WebBrowser1.LocationURL <> URL Then Exit Sub 

Answer 2

If WebBrowser1.LocationURL  <> URL Then Exit Sub 用这个我试了　　还是提示那个错误＂由于该控件目前不可见,未启用或其类型不允许,因此无法将焦点移向它＂

Answer 3

用　WebBrowser1.SetFocus　然后SendKeys "{enter}"
还是提示　＂由于该控件目前不可见,未启用或其类型不允许,因此无法将焦点移向它＂ 
有时候能提交过去
请大家帮我解决下　我急用呢　谢谢大家了

Answer 4

Modest 你在线吗现在，我Ｑ是　927602959
你加下我，我们当场调试下．

Answer 5

经过调试　用　WebBrowser1.SetFocus　　能正确提交有填写框的网页，但是只含有下拉框的页面提示找不到焦点
还有个问题　WebBrowser1_DocumentComplete如何简便的重复判断使用
恳请有经验的朋友指点

Answer 6

你直接调用form的submit方法不行么

Answer 7

你把完整的填写以及HTML的代码贴出来看看。

Answer 8

TechnoFantasy 
我刚才试了全部页面代码发上去但是超过８０００字符了　论坛设置不允许．supergreenbean 再次谢谢你和大家的参与．