UnitUnit1;InterfaceusesWindows, Messages, sysutils, variants, Classes, Graphics, Controls, Forms, Dialogs, Stdctrls, Olectrls, Iebrowser, Mshtml;typeTForm1=class(tform) Label1:tlabel; Edit1:tedit; Label2:tlabel; Edit2:tedit; Button1:tbutton; Web:tcppwebbrowser; procedureButton1Click (Sender:tobject); procedureformcreate (Sender:tobject); Private {Private Declarations} Public {Public Declarations} End;varForm1:tform1;Implementation{$R *.DFM}procedureTform1.button1click (sender:tobject);varDoc:ihtmldocument2; Userinputelement, Pwdinputelement:ihtmlinputelement; Switchelement, submitelement:ihtmlelement;beginDoc:= Web.document asIHTMLDocument2; Userinputelement:= (Doc.all.item ('u',0) asihtmlinputelement); Userinputelement.value:=trim (edit1.text); Pwdinputelement:= (Doc.all.item ('P',0) asihtmlinputelement); Pwdinputelement.value:=trim (edit2.text); Sleep ( +); Submitelement:= (Doc.all.item ('Login_button',0) asIHtmlElement); Submitelement.click;End;proceduretform1.formcreate (sender:tobject);beginWeb.navigate ('Http://ui.ptlogin2.qq.com/cgi-bin/login?appid=549000912&s_url=http://qun.qzone.qq.com/group&style =11');End;End.
PS: Here Tcppwebbrowser is my new export ShDocVW.dll, on this basis, modified from, if you want to test, you can use Delphi WebBrowser replacement can!
Http://www.lsworks.net/article/98.html
Delphi uses WebBrowser to login QQ Group documents