Dim web As System.Windows.Forms.WebBrowser = forms("窗口1").controls("webbrowser1").Basecontrol Dim Inputs As object = web.Document.GetElementsByTagName("input") For Each Input As object In Inputs If Input.GetAttribute("value") = "保存" msgbox(1) Input.InvokeMember("click") End If Next