如何用Delphi的IdHttp登陆大富翁(20分)

用程序自动大登陆大富翁，以免每次都要输密码，看了几个例子也没有成功<br>const<br> &nbsp;DFW_LOGIN_URL = 'http://www.delphibbs.com/delphibbs/chkuser.asp';<br>var<br> &nbsp;HTML: string;<br> &nbsp;Params: TStrings;<br> &nbsp;S: TStringStream;<br>begin<br> &nbsp;IdHTTP1.Request.ContentType := 'application/x-www-form-urlencoded';<br> &nbsp;Params := TStringlist.Create;<br> &nbsp;try<br> &nbsp; &nbsp;Params.Add('txtName=' + edt_User.Text);<br> &nbsp; &nbsp;Params.Add('txtPass=' + edt_Pass.Text);<br> &nbsp; &nbsp;//Params.Add('chkSave='); &nbsp;//是否记住我的密码<br> &nbsp; &nbsp;HTML:= IdHttp1.Post(DFW_LOGIN_URL, Params);<br> &nbsp; &nbsp;Memo1.Lines.Add(HTML);<br> &nbsp; //分析HTML，这里的HTML没有任数据<br> &nbsp;finally<br> &nbsp; &nbsp;Params.Free;<br> &nbsp;end;<br>end;

把Host定义上再试试

大富翁屏蔽了Indy，凡是Indy发送的http数据，都不做任何返回。把IdHttp.Request.UserAgent里面的'Indy'字符去掉，换成标准Windows IE的'Mozilla/4.0 (compatible; MSIE 5.00; Windows 98)'就可以了。

多人接受答案了。