Sub Main()
Dim ie As Object
Set ie = CreateObject("InternetExplorer.Application")
ie.navigate "http://116.255.252.229:830/trainingClasses.html"
ie.Visible = True
While ie.readyState <> 4 Or ie.Busy = True
DoEvents
Wend
ie.document.getElementsByName("idcard").Item(0).Value = "372901199203011618"
ie.document.getElementById("btn").Click
End Sub
上面是半成品
最后一步怎么让程序 自动打卡 ，自动点第一个打卡 自动点 第二个打卡