清华录取查询小程序
迅速用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.TextText1.Text = Text1.Text + 1RTB.SaveFile "D:temp1.htm", 1Web.Navigate ("D:Temp1.htm")End Sub Private Sub Web_DocumentComplete(ByVal pDisp As Object, URL As Variant)Dim doc As HTMLDocumentSet doc = Web.DocumentIf doc.Title = "保送生与自主招生" ThenSet elem = doc.getElementById("xx") elem.ClickElseDoEventsIf doc.All.length < 10 Then …