WebBrowser使用中的问题，在线等！

Question

有以下这样一个网页：
<FORM ACTION="EAN.AN02_EAN" METHOD="POST">
  <INPUT TYPE="text" NAME="HELL">
  <INPUT TYPE="submit" VALUE="Submit">
</FORM>
我把这个网页放到了一个WebBrowser里面，想要让程序提交这个网页，而不是通过点击WebBrowser里页面上的按钮。

Answer 1

怎么编程把用户名，密码提交到网页上的登录页？http://www.applevb.com/qa/qa000257.htm

Answer 2

var
  URL: OleVariant;
  POST: OleVariant;
  target: OleVariant;
  flag: OleVariant;
  header: OleVariant;
  PostStr: string;
  PostLen, Index: Integer;
begin
  URL :='http://www.test.com/userinfoAction.do?'//--将此处换成你的地址
  PostStr := 'actionprocess=8&username=aaa'//--将此处的aaa替换成你参数
  target := NULL;
  flag := 0;
  PostLen := Length(PostStr);
  //用构建 varByte 类型的 Variant array
  Post := VarArrayCreate([0, (PostLen - 1)], varByte);
  //填充数据
  for Index := 0 to PostLen - 1 do
    Post[Index] := Ord(PostStr[Index + 1]);
  //填补头部数据注意：application
  Header := 'Content-Type: application/x-www-form-urlencoded' + #13#10;
   BrowserNews.Navigate2(URL, flag, target, Post, Header);
   while BrowserNews.Busy = True do
   begin
      Application.ProcessMessages;
   end;