OA自动考勤系统代码

OA自动考勤系统代码（完整）
Public str01, str02 As String
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Command1_Click()
Static i As Long
i = i + 1
Print str01; "已考勤人数" & i & "个"
WebBrowser1.Document.getElementById("start_menu").Click
WebBrowser1.Document.getElementById("m01").Click
WebBrowser1.Document.getElementById("f7").Click
Dim k As Integer
Dim str03 As String
str03 = "http://xp-201007231017/general/attendance/personal/duty/submit.php?REGISTER_TYPE="
For k = 1 To 4
WebBrowser1.Navigate str03 & k
Sleep (60)
Next k
WebBrowser1.Navigate "http://xp-201007231017/"
Adodc1.Recordset.MoveNext
If Adodc1.Recordset.EOF Then
MsgBox "考勤已完毕"
Command1.Enabled = False
Command2.Enabled = False
Command5.Visible = True
Exit Sub
End If
str01 = Adodc1.Recordset.Fields("用户名") '存储用户名的中间变量
If Not IsNull(Adodc1.Recordset.Fields("密码")) Then
str02 = Adodc1.Recordset.Fields("密码") '用于存储密码
Else: str02 = ""
End If
End Sub
Private Sub Command2_Click()
Dim x As Integer
For x = 0 To 2
Sleep (240)
Command1.Value = True
Sleep (240)
Command1.Value = False
Next x
End Sub
Private Sub Command3_Click()
WebBrowser1.Navigate
"http://xp-201007231017/general/attendance/personal/duty/submit.php?REGISTER_TYPE=1" WebBrowser1.Navigate
"http://xp-201007231017/general/attendance/personal/duty/submit.php?REGISTER_TYPE=3" End Sub
Private Sub Command4_Click()
WebBrowser1.Navigate
"http://xp-201007231017/general/attendance/personal/duty/submit.php?REGISTER_TYPE=2" WebBrowser1.Navigate
"http://xp-201007231017/general/attendance/personal/duty/submit.php?REGISTER_TYPE=4" End Sub
Private Sub Command5_Click()
End
End Sub
Private Sub Form_Load()
Command5.Visible = False
WebBrowser1.Navigate "http://xp-201007231017/"
Adodc1.RecordSource = "select * from OA资料"
Adodc1.Refresh
Adodc1.Recordset.MoveFirst
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant) If Adodc1.Recordset.EOF Then
Exit Sub
End If
Dim vDoc, vTag '申明变量，好给下面的引用做铺垫
Dim i As Integer '申明变量i
Dim j As Integer
Set vDoc = WebBrowser1.Document
str01 = Adodc1.Recordset.Fields("用户名") '存储用户名的中间变量
If Not IsNull(Adodc1.Recordset.Fields("密码")) Then
str02 = Adodc1.Recordset.Fields("密码") '用于存储密码
Else: str02 = ""
End If
For i = 0 To vDoc.All.length - 1 '用for语句遍览WebBrowser1控件里显示的网页里的所有元素，WebBrowser1.Document.All是指的所有元素，加上length就是所有元素的个数的序号，但是这些元素序号是从0开始计数的，所以序号总比元素的个数要大一。

所以为了表示个数，必须减上1.
If UCase(vDoc.All(i).tagName) = "INPUT" Then 'WebBrowser1.Document.all(i)是指的当前的元素，tagName的意思是标签，标签是指的HTML代码里的标签，比如<input name="username">,input是标签,而name是指的标签的名字，至于Ucase函数则是使括号里的结果变成大写
Set vTag = vDoc.All(i) '此处作用同①
If vTag.Type = "text" Or vTag.Type = "password" Then 'type是类型,此处是说元素标签的类型是什么，比如<input type="text" name="username">,此处是标签类型是一个text，即文本框
Select Case 'select条件语句，判断标签的名字
Case "UNAME" '如果标签名字是"pwuser"
vTag.Value = str01
Case "PASSWORD"
vTag.Value = str02
End Select
ElseIf vTag.Type = "submit" Then '或者如果类型是submit（提交按钮）
vTag.Click '模拟鼠标的点击
End If
End If
Next i
End Sub。