[ Delphi / Pascal ] — начинающим: задаем вопросы (архивная - 2015)

Не помогло

 

помогите авторизироваться на www_._blog_ger_._com

Code:

  IdHTTP1.AllowCookies:=True;
  IdHTTP1.IOHandler:=IdSSLIOHandlerSocket1;
  IdSSLIOHandlerSocket1.SocksInfo:=IdSocksInfo1;
  idhttp1.CookieManager:=IdCookieManager1;
  IdSSLIOHandlerSocket1.SSLOptions.Method:=sslvSSLv3;
  IdHTTP1.HandleRedirects:=True;
  s:=idhttp1.Get('https://www.blogger.com/start');
  Delete(s,1,Pos('name="security_token" value="', s)+28);
  s:= Copy(s,1,Pos('"', s)-1);
  post:=TStringList.Create;
  post.Add('security_token='+s);
  post.Add('d=/home');
  post.Add('Email='+login);
  post.add('Passwd='+pass);
  post.add('ok=Войти);
  s:=idhttp1.Post('https://www.blogger.com/start',post);

В S нужно вывести исходный код страницы профиля.
Спасибо

 

чем пользовались для перехвата запроса?
Мой снифер показывает адрес запроса http://www.blogger.com/legacy-claim.do, а также имена параметров другие

 

LiveHTTP в мазилле... Хм, странно...

 

Нужно зайти на 100 страничек и оставатся на них.


Запускаю их в потоке через TWebBrowser.
Но почему-то в снифере не видать что куда-то заходит.
Правильно ли я создаю компонент? :

Code:

procedure TMyThread.Execute;
var
WebBrowser1: TWebBrowser;
begin
WebBrowser1 := TWebBrowser.Create(nil);
WebBrowser1.Navigate('http://.......ru');
end;

 

Code:

var
 buf_read: array [1..4096] of char;
 res_new_file: THandle;
 remain_bytes, buf_for_write: integer;
 ...
 res_new_file:=CreateFileA('d:\test000.gif', GENERIC_WRITE, 0, 0,
              CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0);
 WriteFile(res_new_file, buf_read, remain_bytes, buf_for_write, 0);
 ...

Где здесь ошибка? Пишет это:

 

WriteFile(res_new_file, buf_read[1], remain_bytes, buf_for_write, 0);

 

проще говоря у тебя несоответствие типа переменных remain_bytes и buf_for_write, должны быть: DWORD;

 

компонент для делфи но код на С++, tregexpr
некорректно работает данный класс

Code:

 TRegExpr *r2 = new TRegExpr;
    r2->Expression = "[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}:[0-9]{2,5}";

      if(r2->Exec(table))
      {
       while (r2->ExecNext())
       {
         Form1->Memo1->Lines->Add(r2->Match[0]);
       }
      }
     r2->Free();

Получаю

Code:

06/2010 21:41
190.254.20.42:8080
06/2010 21:39
89.189.84.234:80
06/2010 21:39

Почему пропускает другие данные непонятно.

 

Я использую вот такую регулярку:
RegExp.Expression := '\d{1,3}.\d{1,3}.\d{1,3}.\d{1,3}:\d{1,5}';
Всё нормально на выходе..

 

вообше отказалось выводить, не работает.

 

Только что пробовал, всё работает
PS: На delphi 7

 

эмм.. нужен код по перебору
acc: pass
acc1: pass1
acc2: pass2 и т.д (в принципе сам код есть но только он перебирает не правильно)

acc: pass
acc: pass1
acc: pass2 и т.д подскажите что не так

 

Код в студию

 

SNAIPER ShoT,
В первом случае :

PHP:

for I := 0 to Memo1.Lines.Count - 1 do 
begin
 pass := Memo1.Lines[i];
 acc := Memo1.Lines[i];
end;


Для второго

PHP:

For i := 0 to Memo1.Lines.Count - 1 do
begin
 acc := Memo1.Lines[i];
 for a := 0 to Memo2.Lines.Count - 1 do 
  begin
   pass := Memo2.Lines[a]
  end;
end;


 

Здравствуйте, такой вопрос:
Пишу прогу на WinAPI нужно в WinProc отлавливать, когда контрол Edit получает и теряет фокус, как правильно это сделать?

 

Собственно сам сорц .

 

Даров.

WM_SetFocus() - окно получило фокус
WM_KillFocus() - окно потеряло фокус
WM_GetFocus() - вернет дескриптор текущего окна, имеющего фокус.
Ну и в оконной процедуре обрабатывай их.

 

Code:

     for x := 0 to logins.Count-1 do
      for y := 0 to passwords.Count-1 do
        begin
          if closing = true then Break;
          try
            while k = 1 do
            begin
              Application.ProcessMessages; // Если поток ещё не отработал, то ждём.
            end;
            Application.ProcessMessages;
            isCyr := false;
            for ch := 1 to length(logins.Items[x]) do
            begin
              if not (logins.Items[x][ch] in ['a'..'z', 'A'..'Z', '0'..'9']) then isCyr := true;
            end;
            for ch := 1 to length(passwords.Items[y]) do
            begin
              if not (passwords.Items[y][ch] in ['a'..'z', 'A'..'Z', '0'..'9']) then isCyr := true;
            end;
            if isCyr = false then
            begin
              Potok[k]                 := Stream.Create(true);
              Potok[k].login           := logins.Items[x];
              Potok[k].password        := passwords.Items[y];
              Potok[k].FreeOnTerminate := True;
              Potok[k].Resume;
              inc(k);
            end else inc(z);
            Application.ProcessMessages;
          except end;
        end;

убираешь один цикл

Code:

 
       for y := 0 to Min(passwords.Count, logins.Count)-1 do
        begin
          if closing = true then Break;
          try
            while k = 1 do
            begin
              Application.ProcessMessages; // Если поток ещё не отработал, то ждём.
            end;
            Application.ProcessMessages;
            isCyr := false;
            for ch := 1 to length(logins.Items[y]) do
            begin
              if not (logins.Items[y][ch] in ['a'..'z', 'A'..'Z', '0'..'9']) then isCyr := true;
            end;
            for ch := 1 to length(passwords.Items[y]) do
            begin
              if not (passwords.Items[y][ch] in ['a'..'z', 'A'..'Z', '0'..'9']) then isCyr := true;
            end;
            if isCyr = false then
            begin
              Potok[k]                 := Stream.Create(true);
              Potok[k].login           := logins.Items[y];
              Potok[k].password        := passwords.Items[y];
              Potok[k].FreeOnTerminate := True;
              Potok[k].Resume;
              inc(k);
            end else inc(z);
            Application.ProcessMessages;
          except end;
        end;

Но цикл закончиться когда в одном из списков (logins или passwords) кончаться записи.

PS. Если чёто неправильно, сори. спешу

 

Имхо нужно delete() заюзать.