下面这段代码，怎么获得BACKGROUND的图片，目前只能获得img

 
Dim oWin As SHDocVw.ShellWindows
Dim oIE As SHDocVw.InternetExplorer
For Each oIMG In oIE.Document.getelementsbytagname("img")
  '从图片的src中提取出域名，赋给sDomain变量
  sDomain = oIMG.src
  sDomain = Mid(sDomain, InStr(sDomain, "//") + 2)
  ' sDomain = Left(sDomain, InStr(sDomain, "/") - 1)
  '通过collection对象去除重复字符串
  On Error Resume Next
  colDomain.Add sDomain, sDomain
    
    
      ' sDomain = Left(sDomain, InStr(sDomain, "/") - 1)
  '通过collection对象去除重复字符串
  On Error GoTo 0
    
  '通过ExecCommand可以复制IE中的图片，之后在剪贴板中找到CF_HDROP格式对应的数据即是该图片在本地电脑Internet临时文件夹中缓存文件的完整路径
  Set oRange = oIE.Document.body.createControlRange()
  oRange.Add (oIMG)
  oRange.ExecCommand ("Copy")
  If OpenClipboard(ByVal 0&) <> 0 Then '打开剪贴板
  hMem = GetClipboardData(CF_HDROP) '获取剪贴板中CF_HDROP格式数据对应的内存对象句柄