webbrowser1的问题!!!300分不成敬意!!!!◥████████████◣(300)

那个帮我看看!是想定时登陆网页.procedure TForm1.Timer1Timer(Sender: TObject);var Nowtime: string; sSql,code:string; doc:ihtmldocument2; inputlevariant; user,pwd:ihtmlinputelement;begin Nowtime:=FormatDateTime('HH:MM',Now); sSql:='SELECT CODE FROM ITM WHERE LEFT(SENDTIME,5)='''+Nowtime+''' '; ADOQuery1.SQL.Text:=sSql; ADOQuery1.Open; if not ADOQuery1.IsEmpty then begin Timer1.Enabled:=False; code:=ADOQuery1.fieldByname('CODE').AsString; webbrowser1.Navigate('http://www.www.com/id='+code+''); Sleep(10000); doc:=webbrowser1.document as ihtmldocument2; user:=(doc.all.item('LoginId',0) as ihtmlinputelement);//███ 老是内存报错, user.value:=edit1.Text; pwd:=(doc.all.item('password',0) as ihtmlinputelement); pwd.value:=edit2.Text; input:=doc.all.item('submit',0); input.click; Timer1.Enabled:=True; end;end;

Navigate，操作没有完际完成。if FWeb.ReadyState = $00000004 then Break;

... webbrowser1.Navigate('http://www.www.com/id='+code+''); while WebBrowser1.ReadyState <> READYSTATE_COMPLETE do Application.ProcessMessages;// Sleep(10000); doc:=webbrowser1.document as ihtmldocument2;...

或者将 Sleep(1000) 后的代码放到 WebBrowser1.OnDocumentComplete 中。

浏览器问题 ，e-是权威

为什么不列举input根据名字填[]

该贴结贴放分,新问题请见http://www.delphibbs.com/delphibbs/dispq.asp?lid=3962131

~~~~~~~~~~~~~~