Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.02.06;
Скачать: 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 вся ветка

Текущий архив: 2004.02.06;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.04 c
9-16014
lokid7
2003-07-21 12:07
2004.02.06
Помогите мне в D3D


14-16600
ёё
2004-01-15 14:10
2004.02.06
Что есть пиринговые сети?


3-16198
AVP_opck
2004-01-13 08:57
2004.02.06
временная база данных


14-16678
Driverrr
2004-01-17 10:43
2004.02.06
За-а-а-икание


1-16496
MakNik
2004-01-26 17:04
2004.02.06
String или Float