H
hying95
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.Button8Click(Sender: TObject);var Doc:IHTMLDocument2; input:OleVariant; userinputelement,pwdinputelement:ihtmlinputelement;begin doc:=webbrowser1.document as ihtmldocument2; userinputelement:=(doc.all.item('TPL_username',0) as ihtmlinputelement); userinputelement.value:=edit6.text;//输入用户名 // 下面的点击登录就出错“TPL_password“改成password也不行 //pwdinputelement:=(doc.all.item('TPL_password',0) as ihtmlinputelement); //pwdinputelement.value :=edit7.text; //密码 //input:=doc.all.item('登录',0); // input.click;end;procedure TForm1.Button9Click(Sender: TObject);begin webbrowser1.Navigate('http://member1.taobao.com/member/login.jhtml');end;******************************登录易趣可以webbrowser1.Navigate('http://login.eachnet.com/usr/login.do');procedure TForm1.Button3Click(Sender: TObject);var Doc:IHTMLDocument2; input:OleVariant; userinputelement,pwdinputelement:ihtmlinputelement;begin doc:=webbrowser1.document as ihtmldocument2; userinputelement:=(doc.all.item('userName',0) as ihtmlinputelement); userinputelement.value:=edit1.text; pwdinputelement:=(doc.all.item('passwd',0) as ihtmlinputelement); pwdinputelement.value :=edit2.text; input:=doc.all.item('登录',0); input.click;end;再另加300分.在下面有300解决一并送上http://www.delphibbs.com/delphibbs/dispq.asp?lid=3909719