Rss & SiteMap
Foxtable(狐表) http://www.foxtable.com
参考这个帖子
http://www.datasoft.com.cn/dispbbs.asp?boardid=2&Id=15970&page=2
'送佛送到西好了
Dim OjbIe As Object = CreateObject("InternetExplorer.Application")
With OjbIe
.Visible = True
.Navigate("http://www.foxtable.com/bbs/index.asp")
Application.DoEvents
Do While .Busy
Application.DoEvents
Loop
Dim DoM As Object = .Document
With DoM
.getElementById("username").Value = "在此输入用户名"
.getElementById("password").Value = "在此输入密码"
.getElementById("submit").Click
End With
.Visible = True
End With
呵呵,飞果然高手,如何用ORC库识别验证码呢?我指的是比较简单容易识别的那种。
'送佛送到西好了
Dim OjbIe As Object = CreateObject("InternetExplorer.Application")
With OjbIe
.Visible = True
.Navigate("http://www.foxtable.com/bbs/index.asp")
Application.DoEvents
Do While .Busy
Application.DoEvents
Loop
Dim DoM As Object = .Document
With DoM
.getElementById("username").Value = "在此输入用户名"
.getElementById("password").Value = "在此输入密码"
.getElementById("submit").Click
End With
.Visible = True
End With
有这个提示