Sub sina()
Set ie = CreateObject("InternetExplorer.Application")
With ie
.Visible = True
.navigate "http://login.
Do Until .Readystate = 4
DoEvents
Loop
.Document.all("username").Value = "用户名"
.Document.all("password").Value = "密码"
.Document.forms(0).all.tags("input")(6).Click
End With
End Sub
在做个循环就行了。