
2013-09-07
展开全部
procedure TForm1.Button1Click(Sender: TObject);
var
Doc : IHTMLDocument2;
Document: Variant;
ove:IHTMLElement;
ovElements: olevariant;
i:integer;
begin
Doc := IHTMLDocument2(WebBrowser1.Document); Document:= webbrowser1.oleobject.document;
ovElements := Document.forms.Item(0).elements; for i := 0 to ovElements.Length - 1 do
begin
try
if (CompareText(ovElements.item(i).tagName,'INPUT') = 0) and
(CompareText(ovElements.item(i).name,'username') = 0) then
begin
ovElements.item(i).Value := '用户名';
end; if (CompareText(ovElements.item(i).tagName,'INPUT') = 0) and
(CompareText(ovElements.item(i).name,'password') = 0) then
begin
ovElements.item(i).Value := '密码';
end;
except
end;
end;end;
var
Doc : IHTMLDocument2;
Document: Variant;
ove:IHTMLElement;
ovElements: olevariant;
i:integer;
begin
Doc := IHTMLDocument2(WebBrowser1.Document); Document:= webbrowser1.oleobject.document;
ovElements := Document.forms.Item(0).elements; for i := 0 to ovElements.Length - 1 do
begin
try
if (CompareText(ovElements.item(i).tagName,'INPUT') = 0) and
(CompareText(ovElements.item(i).name,'username') = 0) then
begin
ovElements.item(i).Value := '用户名';
end; if (CompareText(ovElements.item(i).tagName,'INPUT') = 0) and
(CompareText(ovElements.item(i).name,'password') = 0) then
begin
ovElements.item(i).Value := '密码';
end;
except
end;
end;end;
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询