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

银行的数据，不是你想获取就能获取的。密码不能直接输入。最多只能填写用户名

e.Form.Controls("WebBrowser1").address= "https://easyabc.95599.cn/SelfBank/netBank/zh_CN/entrance/logonSelf.aspx"
Dim web As System.Windows.Forms.WebBrowser = e.Form.Controls("Webbrowser1").BaseControl

Do Until web.ReadyState = 4 AndAlso web.Document.GetElementById("loginWra").GetElementsByTagName("li").count > 0
    Application.DoEvents
Loop
Dim yhm = web.Document.GetElementById("UserBox")
yhm.SetAttribute("Value", "abc")

MessageBox.show("网页打开成功!")

不太清楚，应该是人家网页做了js限制。

试试用 webkit http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=84533&skin=0

试试这样

Dim ie = CreateObject("internetexplorer.application")
ie.Visible = True
ie.Navigate("http://www.foxtable.com")

http://www.foxtable.com/bbs/query.asp?keyword=internetexplorer.application&boardid=0&sType=7&stable=Dv_bbs1&submit=%D5%BE%C4%DA%CB%D1%CB%F7

参考

http://blog.csdn.net/hyholine/article/details/7313287

你可以用快捷键输入密码，如

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=74048&skin=0

 试试

web.Document.getElementByID('PowerEnterDiv').focus()

 或者是，先让用户名获得焦点，再模拟按键输入tab把焦点移动到密码框。

汗，试了几种方法，只能用这种笨笨的方法才行，参考

mark 网页截图

Dim web As New System.Windows.Forms.WebBrowser()
web.Navigate("http://passport.csdn.net/account/mobileregister?action=mobileRegister")
Do Until web.ReadyState = 4
    Application.DoEvents
Loop

'取数据
Dim Img = web.Document.GetElementById("yanzheng")
Dim temp As String = Img.Style
img.style = "position: absolute; z-index: 9999; top: 0px; left: 0px"
Dim b = new Bitmap(cint(img.ClientRectangle.Width)+20, cint(img.ClientRectangle.Height))
web.DrawToBitmap(b, new Rectangle(0,0,b.width, b.height))
b.save("d:\test.gif")
img.style = temp

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

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