delphi idhttp.post的问题
procedureTForm1.btn1Click(Sender:TObject);varParam:TStringList;RStream:TStringStream;...
procedure TForm1.btn1Click(Sender: TObject);
var
Param:TStringList;
RStream:TStringStream;
begin
Param:=TStringList.Create;
RStream:=TStringStream.Create('');
Param.Add('username=showlee000');
Param.Add('normModPsp=********');
Param.Add('mem_pass=true');
IdHTTP1.Post('http://passport.baidu.com/?login&tpl=mn',
Param,RStream);
mmo1.Text:=RStream.DataString;
end;
--------------------下面是登陆界面核心代码--------------------
<tr>
<td width="50" class="f14">用户名:</td>
<td width="156"><input type="text" name="username" id="username" value="showlee000" onChange="chechUserOld('username')" class="ip"/></td>
</tr>
<tr id="trPassNorm" style="display:none;">
<td width="50" class="f14" valign="top">密 码:</td>
<td width="156"><input type="password" id="normModPsp" value="" class="ip"/></td>
</tr>
为什么登陆不成功?
Param.Add('normModPsp=********');改成
Param.Add('password=********');就能成功
这是为什么
其实就是说白了,
如何去[跟踪下页面的提交数据]
可否 说下午REFER究竟是什么意思,是不是指跳转到此页面 展开
var
Param:TStringList;
RStream:TStringStream;
begin
Param:=TStringList.Create;
RStream:=TStringStream.Create('');
Param.Add('username=showlee000');
Param.Add('normModPsp=********');
Param.Add('mem_pass=true');
IdHTTP1.Post('http://passport.baidu.com/?login&tpl=mn',
Param,RStream);
mmo1.Text:=RStream.DataString;
end;
--------------------下面是登陆界面核心代码--------------------
<tr>
<td width="50" class="f14">用户名:</td>
<td width="156"><input type="text" name="username" id="username" value="showlee000" onChange="chechUserOld('username')" class="ip"/></td>
</tr>
<tr id="trPassNorm" style="display:none;">
<td width="50" class="f14" valign="top">密 码:</td>
<td width="156"><input type="password" id="normModPsp" value="" class="ip"/></td>
</tr>
为什么登陆不成功?
Param.Add('normModPsp=********');改成
Param.Add('password=********');就能成功
这是为什么
其实就是说白了,
如何去[跟踪下页面的提交数据]
可否 说下午REFER究竟是什么意思,是不是指跳转到此页面 展开
3个回答
展开全部
你好,你说为什么改成下面成功。上面不成功。我陪棚顷想这个是他的页面有Js脚本改了他的相关的值来造成的!
你说如果去跟踪下面的提交的数据
我建意你用一个 网络抓包工具
http://www.pediy.com/tools/spy_tools/network/wpe/wpe0.9.rar
我给你地址!作用方法很简。
选中你要取得的提交数据。然后点那个三角。开始。就行了。你就去提交。你就可以看到要提交的啥数据和乱!
REFER 你可以理解。是芦陆从那儿到那儿, 这个数据的结构你最好用你抓到的数据包中的地址!
哦,idhttp post数据你要注意一下。他中间默认的1.0 协议。你得改成 1.1 的!
我写的刷数据工具中的相关定义。你参考一下!
Web1 := TIdHTTP.Create(nil);
with Web1 do
begin
HTTPOptions := [hoKeepOrigProtocol,hoForceEncodeParams];
ProtocolVersion := pv1_1;
ReadTimeout := _READ_TIME_OUT; //这儿我定的是连接超时的控制
HandleRedirects := True;
//AllowCookies := True;
with Request do
begin
CacheControl := 'no-cache';
ContentType := 'application/x-www-form-urlencoded';
Accept := 'image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, application/vnd.ms-excel, application/vnd.ms-powerpoint, application/msword, */*';
AcceptLanguage := 'zh-cn';
Connection := 'Keep-Alive';
//AcceptEncoding := 'gzip, deflate';
UserAgent := 'Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; Maxthon; .NET CLR 2.0.50727)';
end;
end;
你说如果去跟踪下面的提交的数据
我建意你用一个 网络抓包工具
http://www.pediy.com/tools/spy_tools/network/wpe/wpe0.9.rar
我给你地址!作用方法很简。
选中你要取得的提交数据。然后点那个三角。开始。就行了。你就去提交。你就可以看到要提交的啥数据和乱!
REFER 你可以理解。是芦陆从那儿到那儿, 这个数据的结构你最好用你抓到的数据包中的地址!
哦,idhttp post数据你要注意一下。他中间默认的1.0 协议。你得改成 1.1 的!
我写的刷数据工具中的相关定义。你参考一下!
Web1 := TIdHTTP.Create(nil);
with Web1 do
begin
HTTPOptions := [hoKeepOrigProtocol,hoForceEncodeParams];
ProtocolVersion := pv1_1;
ReadTimeout := _READ_TIME_OUT; //这儿我定的是连接超时的控制
HandleRedirects := True;
//AllowCookies := True;
with Request do
begin
CacheControl := 'no-cache';
ContentType := 'application/x-www-form-urlencoded';
Accept := 'image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, application/vnd.ms-excel, application/vnd.ms-powerpoint, application/msword, */*';
AcceptLanguage := 'zh-cn';
Connection := 'Keep-Alive';
//AcceptEncoding := 'gzip, deflate';
UserAgent := 'Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; Maxthon; .NET CLR 2.0.50727)';
end;
end;
展开全部
这些作用不大,问题的关键是对唯弊仔方是否接受指汪外来数据,你要模拟个卜含来路。明白不
refer:他的域名。具体网上搜索。
refer:他的域名。具体网上搜索。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
你跟踪下页面的提交数并慧并据就知道了,不成功说明他提交的时候是用的password,这个不是你看的出来的,是人家自己定的。我自绝迹己网页提交的时候变成dabian=*****也可以,就这么简单- -
跟踪你用webbrowser,碧雹在beforenagivate2里面的postdata
跟踪你用webbrowser,碧雹在beforenagivate2里面的postdata
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询