足球投注软件,做过的进来看看(100分)

足球投注网站上,会员输入帐号密码登录后就可以投注了,现在就是要做一个软件来实再它.
功能要求如下:
1.可以从指定的几家网站上取数据并在程序中显示出来.大约五家网站,都已在其网站上注册了会员帐号和密码,网站可以在写程序时就确定下来.
2.可以在程序中进行投注.

也就是说,以后不再需求通过浏览器登录足球投注网站上,而只用我的程序就可以登录看到实时的信息并投注了.数据大约一秒内就要实时刷新一次,该如何做呢,做过这方面的可以给点建议啊,分不够可以再加

顶呀

我做过一套基于jsp的投注系统，基于一样的方式。
可以联系 qq: 86804

QQ已加,我的QQ是26272549,有兴趣的朋友也可以加我

procedure TForm1.Button1Click(Sender: TObject);
var
Params: TStrings;
URL, UserName, Password: string;
Html:string;
begin
url:='http://www.ibc998.com/';
idhttp1.ConnectTimeout:=20000;
Memo1.Clear;
try
Params:= TStringList.Create;
UserName:= '000000000';
Password:= '000000000';
IdHTTP1.HandleRedirects:= true;
Params.Add('username=' + UserName);
Params.Add('password=' + Password);
Params.add('language=ch');
try
Html:=IdHTTP1.Post(URL+'processlogin.asp ', Params);
except

Memo1.Text:='登录失败';
end;
memo1.Lines.Add(html);
if pos('球賽詳情',memo1.text)<>0 then
showmessage('登录成功')
else
showmessage('登录失败');
finally
Params.Free;
end;
end;

procedure TForm1.IdHTTP1Redirect(Sender: TObject; var dest: String;
var NumRedirect: Integer; var Handled: Boolean;
var VMethod: TIdHTTPMethod);
begin
memo1.Lines.Add(dest);
end;

end.

获得了两位的帮助,所以分就分了,
谢谢你们.

多人接受答案了。