求delphi編程實例及源代碼？

嘗試如下

doc:=wb1.document as ihtmldocument2;

userinputelement:=(doc.all.item('fastpostmessage',0) as ihtmlinputelement);

userinputelecment.value:='1111111' ;