VB BHO 修改FORM提交地址
请问高手们 实现这样功能的代码怎么写？
[解决办法]
通过BHO取得浏览器对象后，比如这个对象名为m_objIE
然后在m_objIE的DocumentComplete事件里处理相关信息就可以了，如
Private Sub m_objIE_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Dim YourURL As String
Dim IsMyWEB As Long
YourURL = "http://www.xxx.com/11.php"
IsMyWEB = 0
if Len(URL)>=Len(YourURL) Then
If Ucase(Left(URL,Len(YourURL))) = UCase(YourURL) Then
IsMyWEB = 1
End If
End If
If IsMyWEB = 0 Then Exit Sub
'如果走到这里就表示是你指定的页面地址了，下面就可以开始分析处理了
'比如设置第一个Form提交时提交表单内容到百度
m_objIE.document.forms.item(0).method = "GET"
m_objIE.document.forms.item(0).action = "http://www.baidu.com"
'也可以指定表单的名称来设置，如表单的ID="Form1"，可以这么做
m_objIE.document.forms.item("Form1").method = "GET"
m_objIE.document.forms.item("Form1").action = "http://www.baidu.com"
