主页
Top.Mail.Ru Yandeks.Metrika
论坛:“抢”;
当前存档:2002.12.02;
下载:[xml.tar.bz2];

向下

我将为10WMZ支付简单的工作费用 找到类似的分支


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

你好,
我需要编写一个程序来填写表格,然后单击框架中的提交按钮...
也就是说,其中有一个页面有两个框架..表格位于其中一个框架..

我将为示例代码(webmoney.ru)支付10美元

肥皂的例子。



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

这就是所谓的“免费”

一笔绿色的钱-口袋里有一个现成的控制台)...,您无需抽气,只需弄清楚将其推向何处



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

$ 1000你很热..
我了解如何按下按钮并填写没有框架的表格。
但是对于镜架,这不是笔所能及的。

而且,如果您在报废方面有所帮助,最好保持沉默。



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

是的,我同意。 10个bucasoids是一个嘲弄。 最好完全不提供。



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


>变热了


>不尽如人意


建议充分理解笑话,但仍要尊重母语! 至少有时候!

我不是在这里讨价还价 大体长官
我来这里是为了帮助您和其他人独立地了解,定位和解决问题。 为了知道如何建立实现目标的逻辑,我付出了比您的10WMZ高得多的费用-多年的学习和实践)
而且,我“免费”送给您-我不想接受它! 但是您不需要它,您可以更轻松地购买“ pi中的猪”)))



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

好吧.....我不会再提供钱了:))
好帮助,请... :(



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

> GovorinS。
>我了解如何按下按钮并填写没有边框的表格。
又如何?

>但是这里的镜架不及笔...
有无框架有什么区别? 秘密地说,我绝对不会:)



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巨大的FENX!
写给肥皂..



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

Digitman©(11.11.02 17:00)

>我看不到...

笑脸值得。



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

[错误] Unit1.pas(30):未声明的标识符:“ IOleContainer”
[错误] Unit1.pas(31):未声明的标识符:“ IEnumUnknown”
[错误] Unit1.pas(48):运算符不适用于此操作数类型
[错误] Unit1.pas(49):缺少运算符或分号
[错误] Unit1.pas(49):未声明的标识符:“ OLECONTF_EMBEDDINGS”

也许我忘了添加除MSHTML之外的其他内容?



Digitman   (2002-11-11 17:10) [14]

> Govorin S

不好意思,我不建议您在不久的将来就“陷入困境”给受尊敬的同事<int64>的代码询问公开问题)

因为您将被嘲弄,就像小丑<la Nikolai Bykov>(见“操”)一样。




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

>数字人©
我绕过论坛..我看了一堆话题,但仍然看不到一个明智的答案..一个闲聊..



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

>数字人©
我绕过论坛..我看了一堆话题,但仍然看不到一个明智的答案..一个闲聊..



Digitman   (2002-11-11 17:27) [17]

而且您不会看到。
直到您学会用自己的头脑思考。

您为什么不“适应” <int64>中的代码? 还是他也不“高效”?)



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

由主持人删除



Страницы: 1 整个分支

论坛:“抢”;
当前存档:2002.12.02;
下载:[xml.tar.bz2];

楼上





内存:0.6 MB
时间:0.03 c
1-4282
助步车
2002-11-20 12:53
2002.12.02
UN格式???


1-4450
skirdov
2002-11-20 12:05
2002.12.02
从ListView中删除项目时出现问题


14-4578

2002-11-09 08:56
2002.12.02
...


1-4423
DIM-
2002-11-16 23:47
2002.12.02
MDI表格


1-4425
Ag2002
2002-11-23 11:10
2002.12.02
文件信息





南非荷兰语 阿尔巴尼亚人 阿拉伯语 亚美尼亚 阿塞拜疆 巴斯克 白俄罗斯 保加利亚语 加泰罗尼亚 简体中文 中国(繁体) 克罗地亚 捷克 丹麦语 荷兰人 英语 爱沙尼亚语 菲律宾人 芬兰 法语
加利亚西语 格鲁吉亚语 德语 希腊语 海地克里奥尔语 希伯来语 印地语 匈牙利 北日耳曼语 印度尼西亚人 爱尔兰语 意大利语 日本 韩语 拉脱维亚 立陶宛 马其顿 马来语 马耳他语 挪威语
波斯语 波兰语 葡萄牙语 罗马尼亚 俄语 塞尔维亚 斯洛伐克 斯洛文尼亚 西班牙语 斯瓦希里 瑞典语 泰国人 土耳其 乌克兰 乌尔都语 越南人 威尔士语 意第绪语 孟加拉 波斯尼亚
宿务 世界语 古吉拉特语 豪萨语 苗族 伊博 爪哇 卡纳达语 高棉 老挝 拉丁语 毛利 马拉 蒙古人 尼泊尔 旁遮普 索马里 淡米尔文 泰卢固语 约鲁巴语
祖鲁
英文 Французский Немецкий Итальянский Португальский 俄文 Испанский