VB触发网页onmousedown事件

canca13年前 (2011-10-26)VB297

Dim vDoc As IHTMLDocument2
            Set vDoc = WebBrowser1.Document
            Dim aLink As HTMLLinkElement
                For Each aLink In vDoc.all
                  If aLink.href = news(List1.ListIndex + 1).URL Then
                        aLink.FireEvent ("onmousedown")
                    Exit For
                  End If
                Next

相关文章

在VB中实现MD5算法

——————————————————————————————————————Option Explicit Dim w1 As String, w2 As String, w3 As Strin...

VB小作品--成语大全

两三年没用过VB开发过啦！今天我用VB开发了个《成语大全》感觉还OK吧！本来想用.Net开发的，它那个框架这么吓人，...

祝各位圣诞快乐

昨晚用VB弄的圣诞小礼物。呵呵...一时兴致到了... 下载：http://exs.mail.qq.com/cgi-bin/downloadfilepart?svrid=16&fid=2535...

我的网友第一个bho作品

转自:http://hi.baidu.com/zzjwl/blog/item/60ecf8de3bf4bf5c95ee3725.html 去年用vb做bho，没有成功，最近偶然到网络搜索，有那么多资料...

File not found:'C:\WINDOWS\system32\ieframe.dll\1'

Open your start menu > Selecr 'Run'Type regedit, then hit enterThe registry editor will open.On t...

VB读写注册表

Option Explicit Public Enum ERROR ERROR_SUCCESS = 0& ERROR_B...

发表评论