主题：关于网页中信息的应用问题

试试，这样写，ie浏览器，暂时无法测试 InternetExplorer.Application

Dim OjbIe As Object = CreateObject("InternetExplorer.Application")
With OjbIe
    .Visible = 1
    .Navigate("https://easyabc.95599.cn/SelfBank/netBank/zh_CN/entrance/logonSelf.aspx")
    Application.DoEvents
    Do While .Busy
        Application.DoEvents
    Loop
    Dim DoM As Object = .Document
    With DoM
        Dim Img = .GetElementById("img2")

        img.Style.position = "absolute"

        img.Style.top = "0px"

        img.style = "position: absolute; z-index: 9999; top: 0px; left: 0px"
        Dim b = new Bitmap(cint(img.ClientRectangle.Width)+20, cint(img.ClientRectangle.Height))
        .DrawToBitmap(b, new Rectangle(0,0,b.width, b.height))
        b.save("d:\test.gif")
    End With
End With