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
在做个循环就行了。