Vba VB6-WebBrowser检测是否已单击链接
您好，我是Visual Basic 6的新手， 我的申请表有一个显示广告的部分。点击广告时，“电源”按钮被激活 我试图在id为“anuncio1”的广告中检测到点击我的广告 到目前为止，我只成功地检测到您何时单击WebBrowser区域，但没有检测到我何时单击了链接 然后我让我的代码：Vba VB6-WebBrowser检测是否已单击链接,vba,hyperlink,vb6,onclick,detect,Vba,Hyperlink,Vb6,Onclick,Detect,您好，我是Visual Basic 6的新手， 我的申请表有一个显示广告的部分。点击广告时，“电源”按钮被激活 我试图在id为“anuncio1”的广告中检测到点击我的广告 到目前为止，我只成功地检测到您何时单击WebBrowser区域，但没有检测到我何时单击了链接 然后我让我的代码： Option Explicit 'Reference to HTML DOM Dim WithEvents HTMLDOC As HTMLDocument Private Const READYSTATE_COM
Option Explicit
'Reference to HTML DOM
Dim WithEvents HTMLDOC As HTMLDocument
Private Const READYSTATE_COMPLETE As Long = 4
'Load the website directly to the ad hiding Scrollbars and focusing anchor #anuncio1
Private Sub Form_Load()
WebBrowser1.Navigate "www.traductoramixer.es#anuncio1"
Do While WebBrowser1.Busy: DoEvents: Loop
Do While WebBrowser1.ReadyState <> READYSTATE_COMPLETE: DoEvents: Loop
WebBrowser1.Document.parentWindow.scrollBy 25, 0
WebBrowser1.Document.body.Scroll = "no"
WebBrowser1.Document.body.Style.overflow = "hidden"
End Sub
'Deteck click in WebBrowser1 zone
Private Function HTMLDOC_onclick() As Boolean
Command1.Enabled = True
End Function
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
If Not WebBrowser1.Document Is Nothing Then
Set HTMLDOC = WebBrowser1.Document
End If
End Sub
选项显式
'对HTML DOM的引用
以事件HTMLDOC作为HTMLDocument进行Dim
Private Const READYSTATE_完成，长度=4
“将网站直接加载到隐藏滚动条和聚焦锚的广告中”
专用子表单_加载（）
浏览“www.traductoramixer.es#anuncio1”
当WebBrowser1.Busy:DoEvents:Loop时执行
当WebBrowser1.ReadyState ReadyState_完成时执行：DoEvents:循环
WebBrowser1.Document.parentWindow.scrollBy 25，0
WebBrowser1.Document.body.Scroll=“否”
WebBrowser1.Document.body.Style.overflow=“隐藏”
端接头
'在WebBrowser1区域中检测并单击
私有函数HTMLDOC_onclick（）作为布尔值
Command1.Enabled=True
端函数
私有子WebBrowser1_DocumentComplete（ByVal pDisp作为对象，URL作为变体）
如果不是WebBrowser1.文档什么都不是，那么
设置HTMLDOC=WebBrowser1.Document
如果结束
端接头