问题:如何获取当前ie窗口鼠标位置图片信息
      1 图片名称,大小,格式,绝对地址为这个问题,跑了好多地方了,没人最终解决过,期待这里的高手解决了。
功能上有点类似  windows的 图片自动保存提示功能。
我的qq:7543406 邮箱:[email protected]

解决方案 »

  1.   

    http://www.codeproject.com/shell/AutomateShellWindow.asp
    http://msdn.microsoft.com/workshop/browser/mshtml/tutorials/sink.asp
      

  2.   

    能不能把此功能开发成dll啊,高手,哪个开发了即奖励分啊
      

  3.   

    给你贴一段代码,用的是webbrowser显示页面,也没对frame进行处理,看看思路吧:
    '需要引用 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