222.frm

内蒙古 高考信息 提取 2006年 自动提取 保存到excel里

VERSION 5.00
Object = "{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}#1.1#0"; "shdocvw.dll"
Begin VB.Form Form1 
   Caption         =   "高考信息自动统计"
   ClientHeight    =   9780
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   10770
   LinkTopic       =   "Form1"
   ScaleHeight     =   9780
   ScaleWidth      =   10770
   StartUpPosition =   3  '窗口缺省
   Begin VB.Timer Timer1 
      Left            =   240
      Top             =   6960
   End
   Begin SHDocVwCtl.WebBrowser WebBrowser1 
      Height          =   5775
      Left            =   240
      TabIndex        =   0
      Top             =   840
      Width           =   10215
      ExtentX         =   18018
      ExtentY         =   10186
      ViewMode        =   0
      Offline         =   0
      Silent          =   0
      RegisterAsBrowser=   0
      RegisterAsDropTarget=   1
      AutoArrange     =   0   'False
      NoClientEdge    =   0   'False
      AlignLeft       =   0   'False
      NoWebView       =   0   'False
      HideFileNames   =   0   'False
      SingleClick     =   0   'False
      SingleSelection =   0   'False
      NoFolders       =   0   'False
      Transparent     =   0   'False
      ViewID          =   "{0057D0E0-3573-11CF-AE69-08002B2E1262}"
      Location        =   "http:///"
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
WebBrowser1.Navigate Text1.Text
End Sub

Private Sub Form_Load()

Me.Show


Open "c:\res.htm" For Append As #2

Print #2, "<TABLE title=考生基本情况： cellSpacing=0 align=center border=1><TBODY>"

Close #2

Open "c:\url.ini" For Input As #1

Input #1, URL$

Close #1

WebBrowser1.Navigate URL$


End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)



Dim doc As IHTMLDocument2

Set doc = WebBrowser1.Document

Dim tmp As String
Dim x As Long
Dim y As Long


Open "c:\num.ini" For Input As #1
Input #1, i
Close #1
Open "c:\num.ini" For Output As #1
Write #1, i + 1
Close #1


tmp = "0" + Right(Str$(6150204150000# + i), 13)

SendKeys "{tab}"

SendKeys tmp

SendKeys "{enter}"


Savetime = Timer '记下开始的时间
While Timer < Savetime + 0.5 '循环等待
Wend



a$ = WebBrowser1.Document.body.innerHTML

x = InStr(a$, "<TBODY>")

a$ = Right$(a$, Len(a$) - x)


x = InStr(a$, "<TR>")

a$ = Right$(a$, Len(a$) - x)

x = InStr(a$, "<TR>")

a$ = Right$(a$, Len(a$) - x + 3)



x = InStr(a$, "</TR>")


b$ = Left$(a$, x + 4)


Open "c:\res.htm" For Append As #2


Print #2, b$

Close #2

End Sub