如何自动登陆网站（仅用户名和密码无需验证码）

Question

RT

Answer 1

1.用HTTPWatch分析一下HTTP HEADER与POST DATA 
2.用IDHTTP来进行模拟提交

Answer 2

HTTPWatch与WSockExpert 谁更有用？

Answer 3

也可以用libcurl.
idhttp好像有内存管理问题

Answer 4

用idhttp,WebBrowser都没有问题，自己先查看下网页源码就可以知道网页变量了
网上也有很多例子，可以看看

Answer 5

加分这个没问题，我要的是原理，因为客户的网页是他们公司内部的一个管理系统，这个我也拿不到，现在就以 
mail.163.com这个邮箱为例，可以再加两百分都可以，非常感谢。这几天一直出差没来得及跟贴，抱歉

Answer 6

procedure TForm1.Button1Click(Sender: TObject);
begin
  EmbeddedWB1.Navigate('http://mail.163.com/');
end;procedure TForm1.Button2Click(Sender: TObject);
var
  Docs, ovElements, form : OleVariant;
  i : integer;
begin
    Docs := EmbeddedWB1.OleObject.Document;
    form := Docs.GetElementById('login163');
    ovElements := Docs.GetElementByID('username');
    ovElements.Value := '我的用户名';
    ovElements := Docs.GetElementByID('password');
    ovElements.Value := '我的密码';
    DOcs:= EmbeddedWB1.OleObject.document.getElementsByTagName('button');
  for i:= 0 to docs.length-1 do
  begin
    if pos('登 录',docs.item(i).value) <> 0 then
    begin
     docs.item(i).click;
    end;
  end;
end;//需要自动就在 EmbeddedWB1DocumentComplete事件中判断当前网络地址和网页是否下载完毕，调用登陆代码即可。
测试可以登陆,原理不知道.

Answer 7

若
密码更改了,就不能[登陆]了呀,
一般情况,必须定义成
user.ini
UserName=
PassWord=
这样,就会永远无效的登陆进去...............