Delphi实现网页表单数据的自动提交

MSHTML是微软公司的COM组件，封装了HTML语言中的所有元素及其属性。通过其标准界面，您可以访问指定网页的所有元素。MSHTML对象模型由一些对象和集合组成。根是HTML，它描述了一个打开页面的窗口，包括一系列集合和对象。例如框架集合、历史、位置、导航器、文档、VI-sum、事件对象等。文档对象用于描述客户窗口中显示的实际网页。它由一系列属性、方法、对象和集合组成。All集合包含网页中的所有标记元素，它的主要方法和属性是:

(1)长度:即出现的标记数。该组标记可以理解为从0开始的一维数组，其顺序按照标记在网页上的位置排列；
(2)标签:用于筛选出给定标签的集合，如doc.al1.tags (p)得到所有分段标签p；
(3)Item(项目):用于选择集合中的一个元素，如object.item (0)获取集合的第一个元素，object.item (i)获取第I+1个元素。
此外，IHTMLElement也是一个常用的set对象，表示一个网页中指定标记的集合。通过这个你可以得到网页上特定标签的内容。。IHTMLElement有四个主要属性:
(1)InnerText:开始标记和结束标记之间的文本；
(2)InnerHTML；:开始标记和结束标记之间的文本和HTML
(3)OuterText:对象的文本；
(4)OuterHTML:对象的文本和HTML。

程序TForm1。Button1Click(发件人:to object)；varDoc:ihtmldocument 2；输入:OleVariantuserinputelement，pwd inputelement:ihtmlinputelement；begin doc:= webbrowser 1 . document as ihtml document 2；用户输入元素:= (doc.all.item ('user '(即网页中用户名控件的名称)，0)as ihtmlinputelement)；userinputelement . value:= edit 1 . text；(也就是你要输入到网页中的内容)pwd inputelement:=(doc . all . item(' password '，0)as ihtmlinputElement)；pwd inputelement . value:= edit 2 . text；input:=doc.all.item('submit '，0)；input.click结束；

当提交数据按钮没有名称属性时，采用以下方法:

过程TForm1。Button1Click(发件人:to object)；varDoc:ihtmldocument 2；form:ithmlformelement；userinputelement，pwd inputelement:ihtmlinputelement；begin doc:= webbrowser 1 . document as ihtml document 2；用户输入元素:= (doc.all.item ('user '(即网页中用户名控件的名称)，0)as ihtmlinputelement)；userinputelement . value:= edit 1 . text；(也就是你要输入到网页中的内容)pwd inputelement:=(doc . all . item(' password '，0)as ihtmlinputElement)；pwd inputelement:= edit 2 . text；form:=(doc . all . item(' log in _ form '，0)as ihtmlformelement):form . submit；结束；

【/br/】“登录”按钮一般是网页中默认的enter按钮，所以可以用上面的代码代替之前的click按钮。