为了在delphi中完成对网站的自动登陆。

解决方案 »

  1.   

    var str: String;
    begin
      CanGetIECookie('http://www.yahoo.com', str);
      showMessage(str);
    end;
      

  2.   

    {uses wininet;}
    function CanGetIECookie(const URL:string; var Cookie:string):boolean;
    var lpvBuffer: array[0..1000] of byte;
        lpdwBufferLength: cardinal;
    begin
      lpdwBufferLength := sizeof(lpvBuffer);
      result := InternetGetCookie(PChar(URL),nil,@lpvBuffer,lpdwBufferLength);
      if result then
        Cookie := pchar(@lpvBuffer);
    end;(説明:此為CSDN上的東東、原貼没査着)
      

  3.   

    InternetGetCookie 我知道啊。可是,这个只能取得 已经用 IE登陆过 的网页的 cookie啊。 如果 没有登陆过的呢?