登陆路由，重新拔号连接

unit Unit1;


interface


uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdHTTP, StdCtrls;


type
  TForm1 = class(TForm)
    btn1: TButton;
    mmo1: TMemo;
    lbl1: TLabel;
    edt1: TEdit;
    lbl2: TLabel;
    edt2: TEdit;
    lbl3: TLabel;
    edt3: TEdit;
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;


var
  Form1: TForm1;


implementation


{$R *.dfm}
// route -p add 60.171.xxx.xxx mask 255.255.255.255 192.168.136.2
// route -p add 0.0.0.0 mask 0.0.0.0 metric 1 10.0.0.1


procedure TForm1.btn1Click(Sender: TObject);
var
  IdHTTPA: TIdHTTP;
  PostData: TStrings;
  xLogStrA, Str, URL, stok, Route_sServer, Route_Wan: string;
  _Cookies: TStringList;
  i: Integer;
begin
  btn1.Enabled := False;
  IdHTTPA := TIdHTTP.Create(nil);
  IdHTTPA.ReadTimeout := 30000;
  IdHTTPA.AllowCookies := True;
  IdHTTPA.Request.AcceptEncoding := 'gzip,deflate,sdch';
  IdHTTPA.Request.UserAgent := 'Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; .NET CLR 2.0.50727; InfoPath.2; .NET CLR 3.0.04506.30)';
  PostData := TStringList.Create;
  _Cookies := TStringList.Create;
  PostData.Add('username=' + edt1.Text);
  PostData.Add('password=' + edt2.Text);
  Route_sServer := edt3.text;
  Route_Wan := 'wan';
  while True do
  begin
    try //http://192.168.0.1/cgi-bin/luci/admin/
      IdHTTPA.Request.Referer := 'http://' + Route_sServer + '/cgi-bin/luci/admin/';
      Str := IdHTTPA.Post('http://' + Route_sServer + '/cgi-bin/luci/admin/', PostData);
      IdHTTPA.Response.RawHeaders.Extract('Set-Cookie', _Cookies);
      Str := _Cookies.text;
      mmo1.Lines.Add(stok);
      try
        if IdHTTPA.CookieManager.CookieCollection.Count > 0 then
          for i := 0 to IdHTTPA.CookieManager.CookieCollection.Count - 1 do
          begin
            xLogStrA := IdHTTPA.CookieManager.CookieCollection.Items[i].CookieText;
            mmo1.Lines.Add(xLogStrA);
          end;
      except
      end;


      if AnsiPos('stok=', Str) > 0 then
      begin
        stok := Copy(Str, AnsiPos('stok=', Str), 32 + 5);


        mmo1.Lines.Add(stok);
        //wan 是 接口名称 ...


        //http://192.168.0.1/cgi-bin/luci/;stok=078c3037a85f34e14876af521c679271/admin/network/iface_reconnect/wan?_=0.428406986175105
        //http://192.168.0.1/cgi-bin/luci/;stok=a166769274ab34d4a6eb4295796b7de2/admin/network/iface_reconnect/wan?_=0.7867100450675935
        URL := 'http://' + Route_sServer + '/cgi-bin/luci/;' + stok + '/admin/network/iface_reconnect/' + Route_Wan + '?_=0.' + inttostr(GetTickCount);
        mmo1.Lines.Add(URL);
        try
          //http://192.168.0.1/cgi-bin/luci/;stok=a166769274ab34d4a6eb4295796b7de2/admin/network/network/
          IdHTTPA.Request.Referer := 'http://' + Route_sServer + '/cgi-bin/luci/;' + stok + '/admin/network/';
          Str := IdHTTPA.Get(URL);
          mmo1.Lines.Add(Str);
        except
          xLogStrA := FormatDateTime('yyyy-mm-dd hh:mm', Now) + ' ' + URL;
          mmo1.Lines.Add(xLogStrA);
        end;
        break;
      end;
    except
    end;
    Sleep(3000);
  end;
  try
    _Cookies.free;
    PostData.Free;
    IdHTTPA.Free;
  except
  end;
  btn1.Enabled := True;
end;


end.