Dim ls As Object = web.Document.getElementsByTagName("input")For Each l As object In ls If l.GetAttribute("value") = "确 定" Then
l.InvokeMember("click") Exit For End IfNext