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
相关问答：
本人使用的是VB6.0版本
假设有一个对象A，A内有类型为B的对象属性。现在的问题是，需要添加若干个B对象作为A对象的属性。如，
A.B1,A.B2,...
但具体添加多少个B对象作为A对象的属性则视具体情况不同而不同 ......
Private Sub btnPrint_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnPrint.Click
MouseWait()
Dim ClearTempTabelSQL As String
'If Not ......
现在我想根据treeview上每个节点的权限，没有权限的节点不能被选中，而且成灰色，怎么实现，在线等。。。
这个？。。。
貌似没法。
试试能不能改某些node的颜色，记录下上次的nodeclick里的node。
下次点击的如� ......
点击按钮后弹出进度条窗口，要在30%的时候停顿1秒 40%停顿2秒，然后走完进度条后提示保存成功！
请问如何写？
进度条用那个VB6自带的progressbar控件,定时用timer
我在本站找了这几个帖,估计够你用
http://topic ......
