在webbrowse中让程序自动填写网页信息?(25分)

D

dana

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-12

• #1

我要在webbrowse 中让程序自动填写网页信息，
下面这段有的网站能行有的却不行不知是为何?
经常出现“'method'.value not supported by mautomation object”
不支持的这种提示该怎么办？

procedure TForm1.Button3Click(Sender: TObject);
var o : Olevariant;
begin
o := web1.oleobject.document.all.item('UserName',0);
o.value := '54321';
o := web1.oleobject.document.all.item('Password',0);
o.value := '3333';
web1.oleobject.document.Forms.Item(0, 0).submit;
end;

 

Z

zwh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-12

• #2

关注

 

S

smj_9547

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-14

• #3

是否有些网页是包含FRAME 格式的呀！好象有FRAME格式的暂时我没有办法处理！

 

L

LSS

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-14

• #4

var Htmlevariant;
xh,i,k,Po:integer;
t:OleVariant;
IsFindPos:integer;
addqu, S:String;
sfind:integer;
begin
try
cancel:=false;
t := WebBrowser1.Document;
htm:=t.all.item(0,varEmpty);
for k := 0 to t.all.length - 1 do begin
if (uppercase(t.all.item(k).tagName)='INPUT')and(uppercase(t.all.item(k).type)='TEXT')and(uppercase(t.all.item(k).name)='REMAIN_TIME') then begin
t.all.item(k).value:='117';
break;
end;
end;
...
我的没有问题呀

 

M

meigaos

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-15

• #5

.

 

D

dana

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-25

• #6

提交表单呢？

 

C

ctx62

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-25

• #7

关注

 

A

atonreg

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-25

• #8

富翁称号 总积分 本轮得分 专家分 本轮排名 总排名
dana 0 45 45 2356 3776
注册时间 上次来访 登陆次数 提问次数 回复次数 每贴得分
2000-11-4 2001-5-15 131 61 71 .63

dana的问题好多啊！

 

D

dana

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-09

• #9

多人接受答案了。