Форум: "Сети";
Текущий архив: 2004.02.06;
Скачать: [xml.tar.bz2];
ВнизКак заполнить 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 :)
Страницы: 1 вся ветка
Форум: "Сети";
Текущий архив: 2004.02.06;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.044 c