|
代码片断： const
LoginUrl=''''http://www.csdn.net/member/logon.asp'''';
PostUrl=''''http://community.csdn.net/Expert/PostNew_SQL.asp'''';
ReplyUrl=''''http://community.csdn.net/Expert/reply.asp'''';
MsgUrl=''''http://community.csdn.net/message_board/postsend.asp''''; MyCookList：全局变量，取得当前用户的Cookie
IdHTTP1: TIdHTTP; 登录：
function Logon(UserName, PassWord, CookieTime: string):boolean;
var
LoginInfo: TStrings;
Response: TStringStream;
i: Integer;
Cookie:string;
begin
Result :=False;
Cookie:='''''''';
MyCookList :='''''''';
Response := TStringStream.Create('''''''');
LoginInfo := TStringList.Create;
try
LoginInfo.Clear;
LoginInfo.Add(''''login_name=''''+UserName);
LoginInfo.Add(''''password=''''+PassWord);
LoginInfo.Add(''''from=http://community.csdn.net/Expert/Forum.asp'''');
LoginInfo.Add(''''cookietime=''''+CookieTime);
LoginInfo.Add(''''x=0'''');
LoginInfo.Add(''''y=0'''');
IdHTTP1.Request.Referer:=''''http://www.csdn.net/member/logon.asp'''';
IdHTTP1.Request.From :=''''http://community.csdn.net/Expert/Forum.asp'''';
try
IdHTTP1.Post(LoginUrl,LoginInfo,Response);
except
showmessage(''''登陆失败'''');
end;
showmessage(Response.DataString);
//从返回的页面中找出cookie
for i :=0 to IdHTTP1.Response.RawHeaders.Count-1 do
begin
if UpperCase(Copy(IdHTTP1.Response.RawHeaders[i],1,10)) = ''''SET-COOKIE'''' then
begin
Cookie :=Trim(Copy(IdHTTP1.Response.RawHeaders[i],12,MAXINT));
Cookie :=Copy(Cookie,1,Pos('''';'''',Cookie));
MyCookList :=MyCookList+Cookie;
// showmessage(Cookie);
end;
end;
IdHTTP1.Request.RawHeaders.Add(''''Cookie: ''''+MyCookList);
finally
LoginInfo.Free;
Response.Free;
end;
if length(MyCookList)>200 then
result:=True;
end; //回复
function Reply(TopicID, Content: string): boolean;
var
ReplyInfo: TStrings;
Response: TStringStream;
begin
Result :=False;
ReplyInfo := TStringList.Create;
Response :=TStringStream.Create('''''''');
try
begin
//取回复页面
ReplyInfo.Clear;
ReplyInfo.Add(''''Topicid=''''+TopicID);
ReplyInfo.Add(''''xmlReply=aaaaa'''');
ReplyInfo.Add(''''csdnname='''');
ReplyInfo.Add(''''csdnpassword='''');
ReplyInfo.Add(''''ReplyContent=''''+Content); IdHTTP1.Request.CustomHeaders.Add(''''Cookie: ''''+copy(MyCookList,1,length(MyCookList)-1));
IdHTTP1.Request.Referer :=''''http://community.csdn.net/Expert/xsl/Reply_Xml.asp Topicid=''''+TopicID;
IdHTTP1.Request.UserAgent:=''''Redhat/9.0'''';
try
IdHTTP1.Post(ReplyUrl,ReplyInfo,Response);
except
showmessage(''''回复失败'''');
exit;
end;
// showmessage(Response.DataString);
if pos(''''添加完成，正在生成静态页面，请稍候'''',Response.DataString)>0 then
Result :=true;
end;
finally
ReplyInfo.Free;
Response.Free;
end;
end; //发贴
function PostNew(RoomID, Point, TopicName,
Content: string): boolean;
var
PostInfo: TStrings;
Response: TStringStream;
begin
Result :=False;
PostInfo := TStringList.Create;
Response :=TStringStream.Create('''''''');
try
begin
//取发贴页面
//typestate=1&Point=20&TopicName=test&Room=1404&Content=111222
PostInfo.Clear;
PostInfo.Add(''''typestate=1'''');
PostInfo.Add(''''Point=''''+Point);
PostInfo.Add(''''TopicName=''''+TopicName);
PostInfo.Add(''''Room=''''+RoomID);
PostInfo.Add(''''Content=''''+Content);
IdHTTP1.Request.CustomHeaders.Add(''''Cookie: ''''+copy(MyCookList,1,length(MyCookList)-1));
IdHTTP1.Request.CacheControl:=''''no-cache'''';
IdHTTP1.Request.UserAgent:=''''Windows Advanced Server/5.0'''';
try
IdHTTP1.Post(PostUrl,PostInfo,Response);
except
showmessage(''''发帖失败'''');
exit;
end;
// showmessage(Response.DataString);
if pos(''''增加成功，请稍候，正在生成静态页面'''',Response.DataString)>0 then
Result :=true;
end;
finally
PostInfo.Free;
Response.Free;
end;
end; //发短信
function SendMsg(SendTo, Content: string): boolean;
var
PostInfo: TStrings;
Response: TStringStream;
begin
Result :=False;
PostInfo := TStringList.Create;
Response :=TStringStream.Create('''''''');
try
begin
PostInfo.Clear;
PostInfo.Add(''''Sendto=''''+SendTo);
PostInfo.Add(''''Content=''''+Content);
IdHTTP1.Request.CustomHeaders.Add(''''Cookie: ''''+copy(MyCookList,1,length(MyCookList)-1));
try
IdHTTP1.Post(MsgUrl,PostInfo,Response);
except
showmessage(''''发送失败'''');
exit;
end;
// showmessage(Response.DataString);
if pos(''''发送成功'''',Response.DataString)>0 then
Result :=true;
end;
finally
PostInfo.Free;
Response.Free;
end;
end;
[Delphi程序]使用ClientSocket控件实现CSDN论坛帖子的自动回复 [Web开发]CSDN 总结 精华 ASP 代码
|
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
