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

[22222bbb]

RT

[dongmei757]

idhttp,WebBrowser......

[liangpei2008]

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

[slmax1]

HTTPWatch与WSockExpert 谁更有用？

[小小的王药师]

用jscript

[SuperTitan004]

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

[stsrse]

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

[nkym0626]

idhttp

[五哥]

我觉得用webBrowser好用点

[无条件为你]

第一：提供要自动登录的某个网页，我来帮你写。因为不同网页的登录网页变量不同。
第二：给贴子加分。这点分让我看到的是你对问题不够重视。我也就没动力帮你编写。

[22222bbb]

[Quote=引用 7 楼 mwy654321 的回复:]
第一：提供要自动登录的某个网页，我来帮你写。因为不同网页的登录网页变量不同。
第二：给贴子加分。这点分让我看到的是你对问题不够重视。我也就没动力帮你编写。
[/Quote]
加分这个没问题，我要的是原理，因为客户的网页是他们公司内部的一个管理系统，这个我也拿不到，现在就以
mail.163.com这个邮箱为例，可以再加两百分都可以，非常感谢。这几天一直出差没来得及跟贴，抱歉

[22222bbb]

目前我的级别只能开200的贴子，等解决后另开贴加分。。

[dongmei757]

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事件中判断当前网络地址和网页是否下载完毕，调用登陆代码即可。
测试可以登陆,原理不知道.

[山东蓝鸟贵薪]

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