清华录取查询小程序

迅速用VB写的,用来查询录取情况,需要申请号…… VB写小程序还真不错~
另外还有一个temp.htm,就是那个查询页面,大家自己获得吧~ 反正要用户名的~

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Command1_Click()
RTB.LoadFile
("D:temp.htm")
RTB.Find ("200821310048")
RTB.SelText = Text1.Text
Text1.Text = Text1.Text + 1
RTB.SaveFile "D:temp1.htm", 1
Web.Navigate ("D:Temp1.htm")
End Sub

Private Sub Web_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Dim doc As HTMLDocument
Set doc = Web.Document
If doc.Title = "保送生与自主招生" Then
Set elem = doc.getElementById("xx")

elem.Click
Else
DoEvents
If doc.All.length < 10 Then Command1_Click
End If
End Sub