PHP: begin webbrowser1.navigate('www.odnoklassniki.ru/dk?cmd=AnonymLogin&st.cmd=anonymLogin&&tkn=2397'); html_tag:=WebBrowser1.OleObject.Document.forms.item(0).elements; Timer1.Enabled:=true; for i:=0 to (html_tag.length-1) do begin; if (html_tag.item(i).name='st.email') then html_tag.item(i) .value:='Tesi'; if (html_tag.item(i).name='st.password') then html_tag.item(i).value:='Yryryr'; if (html_tag.item(i).value='Войти')then html_tag.item(i).click; end; webbrowser1.navigate('www.odnoklassniki.ru/dk?cmd=AnonymLogin&st.cmd=anonymLogin&&tkn=2397'); надо чтобы после этого запроса ставился таймер 10 сек,иначе софт зависает,пробывал через слип не получаеться тыкните пожалуйста ==== webbrowser1.navigate('www.odnoklassniki.ru/dk?cmd=AnonymLogin&st.cmd=anonymLogin&&tkn=2397'); sleep(200); html_tag:=WebBrowser1.OleObject.Document.forms.item(0).elements; Timer1.Enabled:=true; for i:=0 to (html_tag.length-1) do выходит ошибка
Code: procedure TForm1.Button2Click(Sender: TObject); var i:integer; s:string; html_tag:variant; begin begin webbrowser1.navigate('www.odnoklassniki.ru/dk?cmd=AnonymLogin&st.cmd=anonymLogin&&tkn=2397'); sleep(20*60); end; html_tag:=WebBrowser1.OleObject.Document.forms.item(0).elements; Timer1.Enabled:=true; for i:=0 to (html_tag.length-1) do begin; if (html_tag.item(i).name='st.email') then html_tag.item(i) .value:='Pertini'; if (html_tag.item(i).name='st.password') then html_tag.item(i).value:='19940217'; if (html_tag.item(i).value='Âîéòè')then html_tag.item(i).click; end; [code]
