用idhttp控件是否可以登陆大富翁,如果可以介绍一下。(30分)

  • 主题发起人 主题发起人 陈晨
  • 开始时间 开始时间
不回是编程序来挣分吧
 
以前的有的DFW旧帖子查询工具里就可以升级资料,你可以下一些他的代码看看
一般来说,就是发出HTTP请求,等待回复就可以了
 
ICS中的HttpCli也可以的
做个通用的,可以登录大多数网站,
我做了个程序,可以定时提前某些贴子,
不过没什么意思,也就没有用
 
怎么没有用呢?我很想看看,可以给吗?谢谢 [8D] -> smnyx@sina.com
 
我用 TServerSocket 都可以,idhttp 应该没问题吧?
 
各位给个详细的说明吧。我分析不出这个xml文件怎么用,
 
请给个简单的例子。QQ:65759880
EMAIL:cwl-cw-l@21cn.com
 
直接点说:我想用idhttp.post(url,sources);
登陆后可以访问我的收藏夹,我想用程序下载我收藏的贴子,该如何做呢?
 
不要用来干坏事哦[:D]
procedure TForm1.Button1Click(Sender: TObject);
const
DFW_LOGIN_URL = 'http://www.delphibbs.com/delphibbs/chkuser.asp';
UserName = '你的用户名';
Password = '你的密码'; //晕,刚才把密码写出来了,得改一下了
var
Params: TStrings;
HTML: String;
begin
Params:=TStringList.Create;
try
Params.Add('URL='+'/delphibbs/collections.asp');
//登录成功后跳转到的URL,这里直接转到"我收藏的问题"
Params.Add('QUERY_STRING='); //登录成功后跳转URL的参数
Params.Add('txtName='+UserName);
Params.Add('txtPass='+Password);
//Params.Add('chkSave='); //是否记住我的密码

IdHttp.HandleRedirects:=True;
HTML:=IdHttp.Post(DFW_LOGIN_URL,Params);
if Pos('<USER Name="" />',HTML)>0 then
ShowMessage('登录失败!') //登录失败则用户名为空
else
ShowMessage('登录成功!');
//分析HTML,取出每一条收藏贴子的URL,下载保存
finally
Params.Free;
end;
end;
 
后退
顶部