老师 ,
根据精华帖
http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=32808&authorid=0&page=1&star=1
想要登陆中国银行网站
https://ebsnew.boc.cn/boc15/login.html
全局代码应该怎么写
Case "登录"
web.Document.Window.Frames(1).Document.GetElementById("txt_username_79443").SetAttribute("Value","用户名") '获得第二个FrAMES框架里面的ID为"username"的的HTML标签元素,并且将其Value设置为"test138"
web.Document.Window.Frames(1).Document.GetElementById("txt_captcha_79449").SetAttribute("Value","这块是密码") '获得第二个FrAMES框架里面的ID为"pwd1"的的HTML标签元素,并且将其Value设置为"a110110"
'如果元素不是在Frame框架中,那么直接 web.Document.GetElementById 即可
'如果元素没有ID怎么办? 按照上面的方法,获得指定类型的元素集合,然后循环判断是否包含该字段的方法来获得.
'下面的代码都大同小异,就不一一介绍了.
Dim hec As System.Windows.Forms.HtmlElementCollection = web.Document.Window.Frames(1).Document.GetElementsByTagName("input")
For i As Integer = 0 To hec.Count-1
If hec(i).OuterHtml.Contains("登录") Then
hec(i).InvokeMember("click")
lb="去精华板块"
Exit For
End If
Next
Case "去精华板块"
web.Navigate(https://ebsnew.boc.cn/boc15/welcome.html?v=20171013030320567&locale=zh)‘这是用我的用户名密码登录后的界面
lb="查找帖子"