K
kocus
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
var doc :IHTMLDocument2;
chk:ihtmlinputelement;
begin
doc:=webbrowser1.Document as IHTMLDocument2;
chk:=doc.all.item('username',0) as ihtmlinputelement;
chk.value:='hao';
chk:=doc.all.item('password',0) as ihtmlinputelement;
chk:=doc.all.item('password',0) as ihtmlinputelement;
chk.value:='669';
chk:=doc.all.item('submit',0) as ihtmlinputelement;
最后的chk是一个button。怎么点他。谢谢
end;
const pDisp: IDispatch; var URL: OleVariant);
var doc :IHTMLDocument2;
chk:ihtmlinputelement;
begin
doc:=webbrowser1.Document as IHTMLDocument2;
chk:=doc.all.item('username',0) as ihtmlinputelement;
chk.value:='hao';
chk:=doc.all.item('password',0) as ihtmlinputelement;
chk:=doc.all.item('password',0) as ihtmlinputelement;
chk.value:='669';
chk:=doc.all.item('submit',0) as ihtmlinputelement;
最后的chk是一个button。怎么点他。谢谢
end;