Forms("窗口1").TimerEnabled = False
Dim web As System.Windows.Forms.WebBrowser = Forms("窗口1").Controls("WebBrowser1").BaseControl
Dim divhtml As System.Windows.Forms.HtmlElementCollection = web.Document.GetElementsByTagName("div") '获得当前页面的div标签HTML元素集合
For i As Integer = 0 To divhtml.Count - 1 '循环所有div标签
If divhtml(i).OuterHtml.Contains("myTabContent") Then 'myTabContent是成功登录后数据表的id
Dim trhtml As Object = web.Document.GetElementById("total").GetElementsByTagName("tr") '获得当前页面的id为total下的标签tr元素集合
Dim tdhtml
Dim KeMu As New List(Of String) From {"语文成绩", "数学成绩", "外语成绩", "物理成绩", "化学成绩", "生物成绩", "政治成绩", "历史成绩", "地理成绩", "综合成绩", "本科总分(含加分)", "本科分平行排名"} '定义网页需采集的数据集合
Dim XueKe As New List(Of String) From {"语文", "数学", "外语", "物理", "化学", "生物", "政治", "历史", "地理", "综合", "总分", "总分排名"} '定义成绩表里的字段集合
Dim xkstr, cjstr As String
Dim h As Integer
Dim r As Row
'采集网页数据到数据表
For j As Integer = 1 To trhtml.count - 1
xkstr = trhtml(j).GetElementsByTagName("td")(0).innertext
cjstr = trhtml(j).GetElementsByTagName("td")(1).innertext
If KeMu.Contains(xkstr) AndAlso cjstr IsNot Nothing Then
xkstr = xueke(KeMu.IndexOf(xkstr))
h = Tables("成绩").FindRow("[考生号] = " & stuKsh)
r = Tables("成绩").Rows(h)
r(xkstr) = cjstr
End If
Next
CaiJi = True
Exit For
End If
'以下是消除验证码出错弹出的提示框
If divhtml(i).OuterHtml.Contains("wintips") And divhtml(i).OuterHtml.Contains("display: block;") Then '判断该input标签是否包含这个字符串(如果包含说明该div标签是在弹窗里)
'MessageBox.Show(divhtml(i).OuterHtml)
'messagebox.Show(divhtml(i).Children(1).OuterHtml)
divhtml(i).Children(1).InvokeMember("click")
Sleep(1000)
Functions.Execute("btn1")
Exit For
End If
Next