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

问题描述

求助!!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;

解决方案

用twebbrowser好了

解决方案二:

建议使用TWebbrowser,自己建议一个浏览器,快捷方式录入用户名、密码。可以浏览自己带支的网站。

解决方案三:

先用Http抓包工具,获得各个动作的动作包协议数据,然后使用HttpRequest等之类的东西,直接模拟提交就行了。

时间: 2024-11-09 00:58:02

登陆-求助!!delphi模拟登录博客园并发帖!!的相关文章

webbrowser自动实现登录博客园

代码下载:http://files.cnblogs.com/zfanlong1314/AutoLogin.zip   关于webBrowser控件的一些其他用法: 如何解决WebBrowser.DocumentCompleted事件的多次调用 http://www.cnblogs.com/rchlz/archive/2009/02/27/1399274.html    Webbrowser控件判断网页加载完毕的简单方法 http://www.blogjava.net/weidagang2046/

小技巧:如何在(博客园)TinyMCE编辑器模式下同时插入Flash和Sliverlight以及代码运行框

如标题,已经知道的同学们就不用往下看了,以免浪费时间,本文内容是为博客园新手准备的.   众所周知,博客园发布博文时提供了二种html编辑器:CuteEditor 和 TinyMCE.(其实还有一种纯文本方式,不过很少有用人它,本文就不讨论它了)   TinyMCE相对在代码着色方面更出色,排版出来的文章也更好看,所以博客园推荐大家使用它,但是这东西有一个致命的缺点:如果用它直接插入Sliverlight(Xap),保存后会自动识别为Flash,这令银光侠们苦恼不已,昨天我向博客园团队反馈了,得

YY博客园UML用例图-活动图-状态图之博客模块

UML建模YY系列: YY博客园UML类图之博客模块 YY博客园UML时序图之博客模块 YY博客园UML用例图-活动图-状态图之博客模块 前面YY了博客园UML类图之博客模块和博客园UML时序图之博客模块,这次把剩下常用的用例图.状态图和活动图一起给完成了.至于其他不常用的对象图.组件图和配置图在此一律不表.协作图可以由时序图转换而来,因此也不做讨论. 博客园博客模块用例图 用户粒度如何控制呢?囧... 用户登陆活动图 博客园博客的状态图 博客状态图出来了,是什么时候上最多推荐的?有本事让我上最

使用C#发送Http 请求实现模拟登陆(以博客园为例)

原文:使用C#发送Http 请求实现模拟登陆(以博客园为例)         模拟登陆的原理很简单,就是发送一个Http 请求服务器获得响应,然后客户端获取到cookie即可实现模拟登陆,比如一些抢票软件的原理无非也是这样模拟客户端的cookie 然后发送请求去抢票,然后12306 本文将演示如何用C# 来实现模拟登陆的,推荐一款工具Fiddler,这是一款监听http 请求的利器.废话不多说,我就以博客园为例来实现模拟登陆.首先我登陆博客园 http://passport.cnblogs.co

PHp + socket编程练习——博客园回复

因为也是学习的路上,先画出思路,代码和看别人的学习的,最后是根据的思路完成的,可能比较简单,后期在去完善和更改     <?php /**  * php+socket 编程 发送HTTP请求  * @version  c.php  * 模拟博客园评论  */ interface Proto{     // 连接url     public function conn($url);     // 发送get请求     public function get();     // 发送post请求

PHP仿博客园个人博客数据库与界面设计

自学PHP大半年多了,断断续续地,但是最终还是坚定了我的想法,将PHP继续下去,所以写这个PHP的博客是为了找个稳定的 PHP工作,不求工资多高,但求一收留之地.我能看懂大部分英语文档,人不蠢,爱学习,有兴趣地可以联系下!有诚意的来吧!qq:240382473 我会分3-5次发布所有关键代码和文档说明,博客后台所有的样式均套用博客园! 说明: 1. 不完全采用MVC架构,但是理念就是这样的.因为还不能写出很稳定的MVC架构. 2.几乎不采用JQUERY AJAX 因为不是特别熟悉,运用起来还不自

实战博客园访问流量计数器-三步操作简化教程

引子:你是否为无法看到自己园子的访问流量而黯然神伤呢? 每写一篇文字,你是都否期待有人来阅读,是否期待有人来支持,与你共享心得和体会呢?注册园子有几个月了,很喜欢这么一个平台,总可以找到心意相通的朋友,也发现了一些不足.包括无法看到自己博客空间的访问流量计数.这个问题得向Dudu反应一下.没办法只能自己想辙啊,感谢度娘,感谢博客园,终于找到了解决问题的方法,特整理处理,希望与大家共享. 第一步:风格选择 首先我们登录到站点:http://www.amazingcounters.com/sign-

PHP仿博客园 个人博客(1) 数据库与界面设计_php实例

自学PHP大半年多了,断断续续地,但是最终还是坚定了我的想法,将PHP继续下去,所以写这个PHP的博客是为了找个稳定的 PHP工作,不求工资多高,但求一收留之地.我能看懂大部分英语文档,人不蠢,爱学习,有兴趣地可以联系下!有诚意的来吧!qq:240382473 我会分3-5次发布所有关键代码和文档说明,博客后台所有的样式均套用博客园! 说明: 1. 不完全采用MVC架构,但是理念就是这样的.因为还不能写出很稳定的MVC架构. 2.几乎不采用JQUERY AJAX 因为不是特别熟悉,运用起来还不自

利用正则表达式抓取博客园列表数据_正则表达式

鉴于我在要完成的asp.net MVC 3 仿照博客园企业系统要用到测试数据,我自己输入太累,所以我就抓取了博客园的部分列表数据,还请dudu不要见怪. 在抓取博客园数据的时候采用了正则表达式,所以有不熟悉正则表达式的朋友可以参考相关资料,其实很容易掌握,就是在具体的实例中会花些时间. 现在我就来把我抓取博客园数据的过程叙述一下,如果有朋友有更好的意见,欢迎提出来. 要使用正则表达式抓取数据,首先就要创建一个正则表达式进行匹配,我推荐使用regulator,这个正则表达式工具,我们可以先使用这个