2,503
社区成员




Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Dim j As Integer
Dim ex As Object
Dim wb As Object
Dim sh As Object
Dim objDoc
Dim endi As Integer
Dim k As Integer
Private i As Integer
Private si As String
Private Sub Form_Load()
WebBrowser1.Width = Screen.Width
WebBrowser1.Height = Screen.Height - 500
i = 1
Set ex = CreateObject("Excel.Application")
Set wb = ex.Workbooks.Open(App.Path & "\1.xls")
Set sh = wb.Sheets(4)
If sh.Cells(1, 1) <> 4 Then
wb.Close True
ex.Quit
Set sh = Nothing
Set wb = Nothing
Set ex = Nothing
Unload Me
End
Else:
Set sh = wb.Sheets(1)
endi = sh.UsedRange.Rows.Count
WebBrowser1.Navigate "http://148.36.20.220:86/"
End If
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
If WebBrowser1.LocationURL = "http://148.36.20.220:86/" Then
If i > endi Then
wb.Close True
ex.Quit
Set sh = Nothing
Set wb = Nothing
Set ex = Nothing
Unload Me
End
Else:
WebBrowser1.Document.Forms(0).TextBox1.Value = sh.Cells(i, 1)
WebBrowser1.Document.Forms(0).TextBox2.Value = sh.Cells(i, 2)
j = (Int(Rnd * 10) + 3) * 1000
Sleep j
DoEvents
WebBrowser1.Document.Forms(0).Button1.Click
i = i + 1
End If
End If
If WebBrowser1.LocationURL = "http://148.36.20.220:86/qd.aspx" Then
Dim s As Variant
s = pDisp.Document.documentElement.outerHTML
If InStr(s, "上午请签到") > 0 Then
j = (Int(Rnd * 10) + 5) * 1000
Sleep j
DoEvents
On Error Resume Next
Set objDoc = WebBrowser1.Document
For k = 0 To objDoc.All.Length - 1
If objDoc.All(k).Name = "ImageButton1" Then
objDoc.All(k).Click
End If
Next
WebBrowser1.Navigate "http://148.36.20.220:86/"
' WebBrowser1.Document.Forms(0).ImageButton1.Click
ElseIf InStr(s, "下午请签到") > 0 Then
j = (Int(Rnd * 10) + 5) * 1000
Sleep j
DoEvents
On Error Resume Next
Set objDoc = WebBrowser1.Document
For k = 0 To objDoc.All.Length - 1
If objDoc.All(k).Name = "ImageButton2" Then
objDoc.All(k).Click
End If
Next
WebBrowser1.Navigate "http://148.36.20.220:86/"
'WebBrowser1.Document.Forms(0).ImageButton2.Click
Else:
j = (Int(Rnd * 10) + 3) * 1000
Sleep j
DoEvents
WebBrowser1.Navigate "http://148.36.20.220:86/"
End If
End If
End Sub
看下这个你能看明白不,就是打开EXCEL文件,用WEBBROWSER自动填写其表单