delphi提交网面参数?

Question

我想用DELPHI写一个自动投票的小程序,但是不知道怎么做.
http://www.mellnet.com/vote/vote.asp?id=40
我只要用程序循环发送这个URL就可以实现自动投票,但具体代码如何写?
请教~~~

Answer 1

这是我是代码:
procedure TForm1.Button1Click(Sender: TObject);
var HttpClient:TidHttp;
  Params: TStrings;
  HTML: String;
  ret:TStringStream;
begin
//  Params:=TStringList.Create;
  ret:=TStringStream.Create('');
  try
    HttpClient.HandleRedirects:=false;
    HttpClient.Request.ContentType:='application/x-www-form-urlencoded';
    Params.Clear;
    Params.Add('id=42');
    HttpClient.Request.Referer:='http://www.mellnet.com/vote/';
    HttpClient.Post('Vote_do.asp',Params,ret);
    HTML:=ret.DataString;
  finally
    Params.Free;
    ret.Free;
  end;
end;
运行出错~~
不好意思,没有分了~!