Заплачю 10WMZ за простую работу

← →
Govorin S. (2002-11-11 16:12) [0]

Привет,
Мне нужно написать программу которая будет заполнять форму и нажимать кнопку submit во фрейме...
тоесть есть страница в ней 2 фрейма.. форма находится в одном из фреймов..

За пример кода заплочю 10$ (webmoney.ru)

Примеры на мыло.

← →
Digitman © (2002-11-11 16:17) [1]

Это называется - "нахаляву")

Штука зеленых денег - и готовая консоль у тебя в кармане) ... и пыхтеть не нужно будет, пытаясь понять, куда все это "запихнуть"

← →
Govorin S. (2002-11-11 16:22) [2]

1000$ ты погарячился..
Как жать кнопки и заполнять формы без фреймов я понял.
Но вот со фреймами не до пёр...

А если тебе в лом помочь то лучше промолчать.

← →
Song © (2002-11-11 16:31) [3]

Да уж, я согласен. 10 буказоидов - это издевательство. Лучше уж бы вообще нисколько не предлагал.

← →
Digitman © (2002-11-11 16:34) [4]

> погарячился

> не до пёр

Шутки желательно воспринимать адекватно, а родной язык таки уважать ! Хоть иногда !

Я здесь не торгуюсь вообще, сударь !
Я сюда пришел, чтобы помочь тебе и другим самостоятельно понять, локализовать и устранить проблему. И за то, чтобы знать, как построить логику движения к цели, я заплатил неизмеримо больше, чем твои 10WMZ - годы и годы учебы и практики)...
И отдаю тебе это "нахаляву" - бери не хочу ! Но тебе ж это не нужно, тебе ж проще купить "кота в мешке")))

← →
Govorin S. (2002-11-11 16:39) [5]

Ну .... лана деньги предлогать больше не буду:))
Ну помогите плиз...:(

← →
Wonder © (2002-11-11 16:49) [6]

>Govorin S.
>Как жать кнопки и заполнять формы без фреймов я понял.
И как же?

>Но вот со фреймами не до пёр...
А какая разница со фреймами или без? По секрету скажу: абсолютно никакой :)

← →
int64 © (2002-11-11 16:49) [7]

Помогаю:

procedure TForm1.Button1Click(Sender: TObject); var TempWB: IWebbrowser2; Coll: HTMLElementCollection; OleContainer: IOleContainer; enum: IEnumUnknown; TempUnk: IUnknown; Fetched: PLongint; FrameNo, i, temp: integer; MyText: WideString; begin MyText:= "Мой вставляемый текст"; With WebBrowser1 do begin while ReadyState <> READYSTATE_COMPLETE do Forms.Application.ProcessMessages; if Assigned(document) then begin Coll:=HTMLElementCollection(HTMLDocument(Document).All.Tags("FRAME")); for FrameNo:=0 to Coll.length-1 do if HTMLFrameElement(Coll.item(FrameNo,varEmpty)).name="reg" then break; Fetched := nil; OleContainer := Document as IOleContainer; OleContainer.EnumObjects(OLECONTF_EMBEDDINGS, Enum); Enum.Skip(FrameNo); Enum.Next(1, TempUnk, Fetched); TempWB := TempUnk as IWebbrowser2; end else TempWB := nil; end; if assigned(TempWB) then begin temp:= -1; Coll:=HTMLElementCollection(HTMLDocument(TempWB.Document).All.Tags("INPUT")); for i:=0 to Coll.length-1 do with HTMLInputElement(Coll.item(i,varEmpty)) do begin if (type_ = "submit") and (name = "Continue") then temp:= i; if (type_ = "text") and (name = "pass") then Value:= MyText; end; if temp<>-1 then HTMLInputElement(Coll.item(temp,varEmpty)).click; end; end;

Проект письмом направил. Лови.

← →
Digitman © (2002-11-11 16:51) [8]

Вот это - другое дело.

Поясни для начала, какое отношение к "Сетям" имеет твой вопрос.

← →
int64 © (2002-11-11 16:57) [9]

Wonder © (11.11.02 16:49)
Digitman © (11.11.02 16:51)

Вопрос идёт про IE, а значит и про сети. :)

Это тоже он:
http://delphi.mastak.ru/cgi-bin/forum.pl?look=1&id=1037003818&n=4

← →
Digitman © (2002-11-11 17:00) [10]

>int64

> Вопрос идёт про IE, а значит и про сети

Не вижу никакой связи.
Предположим, машина не в сети (абсолютно автономна). И что ? IE не работает ?

← →
Govorin S. (2002-11-11 17:00) [11]

Ой Спасибки!!

Я не жадный.. было бо больше. дал бы больше!:)

А ваще бедным школьникам на учебники не хватает.. а вы 1000бачков:))

int64 ОГРОМНЫЙ ФЕНКС!
Пиши на мыло..

← →
int64 © (2002-11-11 17:05) [12]

Digitman © (11.11.02 17:00)

> Не вижу...

Смайлик стоит.

← →
Govorin S. (2002-11-11 17:09) [13]

[Error] Unit1.pas(30): Undeclared identifier: "IOleContainer"
[Error] Unit1.pas(31): Undeclared identifier: "IEnumUnknown"
[Error] Unit1.pas(48): Operator not applicable to this operand type
[Error] Unit1.pas(49): Missing operator or semicolon
[Error] Unit1.pas(49): Undeclared identifier: "OLECONTF_EMBEDDINGS"

Может я чё забыл добавить кроме MSHTML ?

>Govorin S

Оч не советую тебе задавать в ближайшем будущем публичные вопросы, касаемые того кода, за который ты "расшаркался" уважаемому коллеге <int64>)

Ибо будешь поднят насмех, подобно клоунам а ля <Николай Быков> (см. "Потрепаться").

← →
Govorin S. (2002-11-11 17:21) [15]

← →
Govorin S. (2002-11-11 17:26) [16]

И не увидишь.
Пока своей головой думать не научишься.

Что ж ты код-то от <int64> не "приспособил"-то ? Или он тоже не "дельный" ?)

← →
Govorin S. (2002-11-11 17:31) [18]

Удалено модератором

Заплачю 10WMZ за простую работу Найти похожие ветки