问题:如何获取当前ie窗口鼠标位置图片信息
1 图片名称,大小,格式,绝对地址为这个问题,跑了好多地方了,没人最终解决过,期待这里的高手解决了。
功能上有点类似 windows的 图片自动保存提示功能。
我的qq:7543406 邮箱:[email protected]
1 图片名称,大小,格式,绝对地址为这个问题,跑了好多地方了,没人最终解决过,期待这里的高手解决了。
功能上有点类似 windows的 图片自动保存提示功能。
我的qq:7543406 邮箱:[email protected]
http://msdn.microsoft.com/workshop/browser/mshtml/tutorials/sink.asp
'需要引用 Microsoft HTML Object Library
Option Explicit
Dim WithEvents mHtml As MSHTML.HTMLDocumentPrivate Sub Command1_Click()
Me.WebBrowser1.Navigate Text1.Text
End SubPrivate Sub Form_Load()
Me.WebBrowser1.Navigate "www.csdn.net"
End SubPrivate Function mhtml_oncontextmenu() As Boolean
mhtml_oncontextmenu = False '屏蔽右键
Dim i As Long
Dim j As Long
MsgBox getImgInfo(mHtml.activeElement.outerHTML, i, j)
End Function
Private Sub Webbrowser1_DownloadComplete()
Set mHtml = WebBrowser1.Document
End SubPrivate Function getImgInfo(ByVal mstr As String, width As Long, height As Long) As String
Dim s As String
Dim i As Long, j As Long
If Len(mstr) = 0 Then Exit Function
i = InStr(1, mstr, "<IMG")
If i > 0 Then
j = InStr(i, mstr, ">")
If j > i Then
s = Mid(mstr, i, j - i + 1)
Dim mHTMLImgElement As IHTMLImgElement
Set mHTMLImgElement = mHtml.createElement(s)
width = mHTMLImgElement.width
height = mHTMLImgElement.height
getImgInfo = mHTMLImgElement.src
Set mHTMLImgElement = Nothing
Exit Function
End If
End If
End Function