Как заполнить web форму?

← →
начинающий1 (2003-12-03 09:44) [0]

эти ... из мегафона изменили страницу
раньше я кидал на форму веббраузер и писал так

if ((pDisp as IUnknown) = (WebBrowser1.DefaultInterface as IUnknown))
then begin

Doc:= IHTMLDocument2(WebBrowser1.Document);
sleep(1000);
//oaeno SMS
Coll:=IHTMLElementCollection(Doc.All.Tags("textarea"));
for i:=0 to Coll.length-1 do
if (HTMLInputElement(Coll.item(i,varEmpty)).name="smbody")
then begin
label1.Caption:="Начинаю заполнение полей";
HTMLInputElement(Coll.item(i,varEmpty)).Click;
HTMLInputElement(Coll.item(i,varEmpty)).Value:=WideString(Text);
end;
sleep(1000);
//iiia? o?oau
Coll:=IHTMLElementCollection(Doc.All.Tags("INPUT"));
for i:=0 to Coll.length-1 do
// if (HTMLInputElement(Coll.item(i,varEmpty)).type_="hidden") and
if (HTMLInputElement(Coll.item(i,varEmpty)).name="sms")
then HTMLInputElement(Coll.item(i,varEmpty)).Value:=nomer;

sleep(1000);
//eeeea? ii eiiiea
for i:=0 to Coll.length-1 do
if (HTMLInputElement(Coll.item(i,varEmpty)).name="flashOk")
then begin
sleep(500);
HTMLInputElement(Coll.item(i,varEmpty)).Click;
label1.Caption:="Начинаю отправку";
end;

flag:=flag+1; //ii?aio-oi ae??eo e iinueaao ianeieuei ?ac, o?aaoaony 2 i?ioiaa

end;
end;
сейчас нет кнопок, есть картинки. Короче вот страничка
http://mgsm.ru/index.php?region=2

как быть? или можть скажете как работает метод post у Thttp?

← →
11111111111 (2003-12-03 10:13) [1]

vopros snjat, izvinite za paniky :)

Как заполнить web форму? Найти похожие ветки