MSHTML是微軟公司的一個(gè)COM組件，該組件封裝了HTML語言中的所有元素及其屬性，通過其提供的標(biāo)準(zhǔn)接口，可以訪問指定網(wǎng)頁的所有元素．MSHTML對(duì)象模型是由一些對(duì)象和集合組成的．處于根部的是HTML，描述了打開頁面的1個(gè)窗口，包括一系列集合和對(duì)象。如Frames集合，History，Location，Navigator，Document，Vi—sum，Event對(duì)象等．其中描述呈現(xiàn)在客戶窗口實(shí)際網(wǎng)頁的是Document對(duì)象。由一系列的屬性、方法、對(duì)象和集合組成．其中All集合中包含網(wǎng)頁中所有標(biāo)記(Tag)元素，其主要的方法和屬性有：
(1)Length(長度)：即標(biāo)記出現(xiàn)的個(gè)數(shù)，可以把標(biāo)記的集合理解為從0開始的一維數(shù)組，其次序按照標(biāo)記在網(wǎng)頁位置排列；
(2)Tags(標(biāo)記)：用于過濾出給定標(biāo)記的集合，如Doc．Al1．Tags(P)得到所有分段標(biāo)記P；
(3)Item(項(xiàng)目)：用于選擇集合中的某1個(gè)元素，如object．item(0)得到集合的第1個(gè)元素，而object．item(i)得到第i+1個(gè)元素．
此外，IHTMLElement也是個(gè)常用的集合對(duì)象，代表網(wǎng)頁中指定標(biāo)記的集合，通過這個(gè)集合對(duì)象，可以得到網(wǎng)頁上特定標(biāo)記的內(nèi)容．IHTMLElement有4個(gè)主要屬性：
(1)InnerText：開始標(biāo)記和結(jié)束標(biāo)記之間的文本；
(2)InnerHTML：開始標(biāo)記和結(jié)束標(biāo)記之間的文本和HTML；
(3)OuterText：對(duì)象的文本；
(4)OuterHTML：對(duì)象的文本和HTML．
procedure TForm1.Button1Click(Sender: TObject);varDoc:IHTMLDocument2;input:OleVariant;userinputelement,pwdinputelement:ihtmlinputelement;begindoc:=Webbrowser1.document as ihtmldocument2;userinputelement:=(doc.all.item('user'(也就是網(wǎng)頁中用戶名控件的名字),0) as ihtmlinputelement);userinputelement.value:=edit1.text;(也就是你要向網(wǎng)頁輸入的東西)pwdinputelement:=(doc.all.item('password',0) as ihtmlinputelement);pwdinputelement.value:=edit2.text;input:=doc.all.item('submit',0);input.click;end;
當(dāng)提交數(shù)據(jù)按鈕沒有NAME屬性時(shí)，采用如下方法：
procedure TForm1.Button1Click(Sender: TObject);varDoc:IHTMLDocument2;form:ithmlformelement;userinputelement,pwdinputelement:ihtmlinputelement;begindoc:=webbrowser1.document as ihtmldocument2;userinputelement:=(doc.all.item('user'(也就是網(wǎng)頁中用戶名控件的名字),0) as ihtmlinputelement);userinputelement.value:=edit1.text;(也就是你要向網(wǎng)頁輸入的東西)pwdinputelement:=(doc.all.item('password',0) as ihtmlinputelement);pwdinputelement:=edit2.text;form:=(doc.all.item('login_form',0) as ihtmlformelement):form.submit;end;
登錄"按鈕一般都是網(wǎng)頁中默認(rèn)的回車按鈕,所以可以用上面代碼來代替前面的點(diǎn)擊按鈕.
(1)Length(長度)：即標(biāo)記出現(xiàn)的個(gè)數(shù)，可以把標(biāo)記的集合理解為從0開始的一維數(shù)組，其次序按照標(biāo)記在網(wǎng)頁位置排列；
(2)Tags(標(biāo)記)：用于過濾出給定標(biāo)記的集合，如Doc．Al1．Tags(P)得到所有分段標(biāo)記P；
(3)Item(項(xiàng)目)：用于選擇集合中的某1個(gè)元素，如object．item(0)得到集合的第1個(gè)元素，而object．item(i)得到第i+1個(gè)元素．
此外，IHTMLElement也是個(gè)常用的集合對(duì)象，代表網(wǎng)頁中指定標(biāo)記的集合，通過這個(gè)集合對(duì)象，可以得到網(wǎng)頁上特定標(biāo)記的內(nèi)容．IHTMLElement有4個(gè)主要屬性：
(1)InnerText：開始標(biāo)記和結(jié)束標(biāo)記之間的文本；
(2)InnerHTML：開始標(biāo)記和結(jié)束標(biāo)記之間的文本和HTML；
(3)OuterText：對(duì)象的文本；
(4)OuterHTML：對(duì)象的文本和HTML．
procedure TForm1.Button1Click(Sender: TObject);varDoc:IHTMLDocument2;input:OleVariant;userinputelement,pwdinputelement:ihtmlinputelement;begindoc:=Webbrowser1.document as ihtmldocument2;userinputelement:=(doc.all.item('user'(也就是網(wǎng)頁中用戶名控件的名字),0) as ihtmlinputelement);userinputelement.value:=edit1.text;(也就是你要向網(wǎng)頁輸入的東西)pwdinputelement:=(doc.all.item('password',0) as ihtmlinputelement);pwdinputelement.value:=edit2.text;input:=doc.all.item('submit',0);input.click;end;
當(dāng)提交數(shù)據(jù)按鈕沒有NAME屬性時(shí)，采用如下方法：
procedure TForm1.Button1Click(Sender: TObject);varDoc:IHTMLDocument2;form:ithmlformelement;userinputelement,pwdinputelement:ihtmlinputelement;begindoc:=webbrowser1.document as ihtmldocument2;userinputelement:=(doc.all.item('user'(也就是網(wǎng)頁中用戶名控件的名字),0) as ihtmlinputelement);userinputelement.value:=edit1.text;(也就是你要向網(wǎng)頁輸入的東西)pwdinputelement:=(doc.all.item('password',0) as ihtmlinputelement);pwdinputelement:=edit2.text;form:=(doc.all.item('login_form',0) as ihtmlformelement):form.submit;end;
登錄"按鈕一般都是網(wǎng)頁中默認(rèn)的回車按鈕,所以可以用上面代碼來代替前面的點(diǎn)擊按鈕.