wonderwiller 2015-08-07 07:50 采纳率: 33.3%
浏览 2736
已采纳

求助!!delphi模拟登录博客园并发帖!!

百度未果 请兄弟们给出解决思路 最好再给出代码或者帮看下下面的代码问题处在哪里怎么扩充!!谢谢

procedure TForm1.Button1Click(Sender: TObject);

var postList:TStrings;

Response:TStringStream;

url:string; myIH:TIdHTTP;

IdSSLIOHandlerSocketOpenSSL1:TIdSSLIOHandlerSocketOpenSSL;

begin

Response:=TStringStream.Create('');

postList:=TStringList.Create;

try

myIH:=TIdHTTP.Create(nil);

IdSSLIOHandlerSocketOpenSSL1:=TIdSSLIOHandlerSocketOpenSSL.Create(nil);

myIH.IOHandler:=IdSSLIOHandlerSocketOpenSSL1;

myIH.HandleRedirects:=True; myIH.Request.UserAgent:='Mozilla/5.0 (compatible; MSIE 9.0; Windows NT 6.1; WOW64; Trident/5.0)';

      // myIH.Request.UserAgent:='Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0; Maxthon)';           

postList.Add('__EVENTTARGET=');

postList.Add('__VIEWSTATE=/wEPDwUJLTI5NjAzODk2ZBgBBR5fX0NvbnRyb2xzUmVxdWlyZVBvc3RCYWNrS2V5X18WAQULY2hrUmVtZW1iZXKHW0DW4nQrSrBHBomKrt3/MjtBLA==');

postList.Add('__EVENTVALIDATION=/wEWBQKE2u7lCQLyj/OQAgK3jsrkBALR55GJDgKC3IeGDO8x1Jd0k/hBY1a/6Yl9fTpP16ti');

postList.Add('input1=@@@@');

postList.Add('input2=@@@@');

postList.Add('chkRemember=');

postList.Add('btnLogin=登 录');

myIH.Post('http://passport.cnblogs.com/login.aspx',postList,Response);

finally

Memo1.Lines.Text := Utf8ToAnsi(Response.DataString);

Response.Free;

postList.Free;

end;

end;

  • 写回答

3条回答 默认 最新

  • devmiao 2015-08-07 09:07
    关注

    用twebbrowser好了

    本回答被题主选为最佳回答 , 对您是否有帮助呢?
    评论
查看更多回答(2条)

报告相同问题?

悬赏问题

  • ¥15 C#调用python代码(python带有库)
  • ¥15 矩阵加法的规则是两个矩阵中对应位置的数的绝对值进行加和
  • ¥15 活动选择题。最多可以参加几个项目?
  • ¥15 飞机曲面部件如机翼,壁板等具体的孔位模型
  • ¥15 vs2019中数据导出问题
  • ¥20 云服务Linux系统TCP-MSS值修改?
  • ¥20 关于#单片机#的问题:项目:使用模拟iic与ov2640通讯环境:F407问题:读取的ID号总是0xff,自己调了调发现在读从机数据时,SDA线上并未有信号变化(语言-c语言)
  • ¥20 怎么在stm32门禁成品上增加查询记录功能
  • ¥15 Source insight编写代码后使用CCS5.2版本import之后,代码跳到注释行里面
  • ¥50 NT4.0系统 STOP:0X0000007B