程序TForm1.Button1Click（发件人：否潜兵TObject的）; VAR 文档：的IHTMLDocument2; 文件：变体; OVE：IHTMLElement; ovElements：olevariant; 我：整数; 开始 文档：=的IHTMLDocument2（WebBrowser1.Document）; 文档：神敢= webbrowser1.oleobject.document; ovElements：= Document.forms.Item（0）.elements; 为I：= 0 ovElements.Length - 1 做 开始尝试 如果（CompareText（ovElements.item（I）.tagName，“INPUT”）= 0）和 （CompareText（ovElements.item（ⅰ）。名称，“用户名”）饥法= 0），然后 开始 ovElements.item（ⅰ）。价值：='用户名'; 结束; 如果（CompareText（ovElements.item（I）.tagName，“INPUT”）= 0）， （CompareText（ovElements.item（I）.name和'密码'）= 0），则 开始 ovElements.item（I）。价值：='密码'; 结束; 除了 结束; 结束; 结束;