Скачать: CL | DM;

Как заполнить 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.Ta­gs("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.Ta­gs("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 :)

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.021 c