
16.04.2010, 21:52
|
|
Banned
Регистрация: 09.04.2010
Сообщений: 181
С нами:
8468331
Репутация:
12
|
|
begin
html_tag:=WebBrowser1.OleObject.Document.forms.ite m(0).elements;
for i:=0 to (html_tag.length-1) do
begin
if (html_tag.item(i).name='login') then
html_tag.item(i).value:=StrToInt(Edit1.text);
if (html_tag.item(i).name='passw') then
html_tag.item(i).value:=StrToInt(Edit2.text) ;
if (html_tag.item(i).value=' Âîéòè ') then
html_tag.item(i).click;
почему где едит ерор выдает ((
|
|
|