Форум: "Потрепаться";
Текущий архив: 2002.12.02;
Скачать: [xml.tar.bz2];
Вниз
Заплачю 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 ?
← →
Digitman (2002-11-11 17:10) [14]>Govorin S
Оч не советую тебе задавать в ближайшем будущем публичные вопросы, касаемые того кода, за который ты "расшаркался" уважаемому коллеге <int64>)
Ибо будешь поднят насмех, подобно клоунам а ля <Николай Быков> (см. "Потрепаться").
← →
Govorin S. (2002-11-11 17:21) [15]> Digitman ©
Походил я по форуму..пересмотрел кучу тем но так и не увидел не одного дельного ответа.. один трёп..
← →
Govorin S. (2002-11-11 17:26) [16]> Digitman ©
Походил я по форуму..пересмотрел кучу тем но так и не увидел не одного дельного ответа.. один трёп..
← →
Digitman (2002-11-11 17:27) [17]И не увидишь.
Пока своей головой думать не научишься.
Что ж ты код-то от <int64> не "приспособил"-то ? Или он тоже не "дельный" ?)
← →
Govorin S. (2002-11-11 17:31) [18]Удалено модератором
Страницы: 1 вся ветка
Форум: "Потрепаться";
Текущий архив: 2002.12.02;
Скачать: [xml.tar.bz2];
Память: 0.48 MB
Время: 0.008 c
