求助，如何利用DELPHI实现自动添加网页表单的功能

Question

首先，利用控件打开浏览器并打开了一个网址
页面上很简单，只有一个用户名和密码，请问各位，如何将事先设定好的值添加到网页上的文本框，并且回车呢，谢谢

Answer 1

这是一个调用WebBrowser中JavaScript脚本的例子.
在得到了Document后,你可以访问页面中的所有对象
procedure TForm1.Button1Click(Sender: TObject);
var
  Document : Variant;
  Script,r : Variant;
  ArrLen   : Variant;
begin
  Document := WebBrowser1.Document;
  Script := Document.Script;
  r := Document.Script.GetArrayItem(Script.arr,0);
  ShowMessage(r.value); 
end;