| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как заполнить web форму? [D5, Win95/98, WinME, NT4, Win2k, WinXP]

начинающий1 ©   (2003-12-03 09:44:00) 

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

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:00) [1]

vopros snjat, izvinite za paniky :)

---

Наверх