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

试试，这样写，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

大红袍老师

 

代码会报错，水平有限，只有把问题反映给你了。正常情况是这样的：

 

此主题相关图片如下：u)_6dm_3@f{adz2covj5x.png

 

运行代码后图片会跑到网页的顶部

 

 

然后就报错，经过测试是这名代码：img.style = "position: absolute; z-index: 9999; top: 0px; left: 0px"

 

报错信息如下：

 

此主题相关图片如下：~331dkiy)u0rs74e$z6r4.png

 

麻烦帮忙看一下，多谢！

 

 

 

 看21楼。我这里无法测试。

大红袍老师

 

    我就是用的21楼的代码，但会产生22楼的错误，我搞不定。多谢帮忙看看。

 既然图片去到了左上角，就没问题了啊，这句代码可以去掉

 

img.style = "position: absolute; z-index: 9999; top: 0px; left: 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))

 

报错信息见图

 

 

 

此主题相关图片如下：222.png

 那你直接指定宽高好了。

 

Dim b = new Bitmap(200, 100)

指定了宽高，下一句代码：.DrawToBitmap(b, new Rectangle(0,0,b.width, b.height)) 还是会报错，报找不到公共成员：DrawToBitmap 。

重新安装了ie，可以测试了。代码这样写

 

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.left = "0px"
       
        Dim myGraphics As Graphics = basemainform.CreateGraphics()
        Dim s As new Size(90, 40) '截取的大小
        Dim bit As New Bitmap(s.Width, s.Height, myGraphics)
        Dim memoryGraphics As Graphics = Graphics.FromImage(bit)
        memoryGraphics.CopyFromScreen(ojbIe.left+23, ojbIe.top+80, 0, 0, s) '截取的开始位置,坐标
       
        bit.save("d:\test.gif")
    End With
End With

 

大红袍老师

 

现在不会报错了，但下载下来的不是那个图片，而是别的东西，我在试着调整坐标，但试了好久，都不能成功。