УСТРАНЕНИЕ КОНКУРЕНТОВ. БЛОКИРОВКА ДОМЕНОВ, БЛОКИРОВКА ИНСТАГРАМ/ТЕЛЕГРАМ И ДРУГОЕ. ПРОВЕРЕННЫЙ СЕЛЛЕР.

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.

		Форум АНТИЧАТ > Программирование_OLD > С/С++, C#, Delphi, .NET, Asm
[Delphi]/[Pascal] Задай вопрос, получи ответ

Страница 445 из 677

445

Опции темы

Поиск в этой теме

Опции просмотра

#4441

22.09.2009, 14:37

alexey-m

Познающий

Регистрация: 15.07.2009

Сообщений: 71

Провел на форуме:
520157

Репутация: 35

Отправить сообщение для alexey-m с помощью ICQ

Цитата:

...монопольно другим приложением?

Цитата:

Сообщение от xlinux

каким?

Да любым приложением), надо прочитать\ скопировать файл не убивая этот процесс

#4442

22.09.2009, 17:21

Fepsis

Постоянный

Регистрация: 17.09.2008

Сообщений: 562

Провел на форуме:
6962560

Репутация: 536

Здравствуйте, господа.. НЕбольшой вопрос.. Пытаюсь авторизоваться на mail.ru так:

Код:

var
tst : TStringList;
ex: string;
begin
 tst :=  TStringList.Create;
 tst.Add('Login=логин');
 tst.Add('Domain=домен');
 tst.Add('Password=пароль');
 ex := Form1.IdHTTP1.post('http://win.mail.ru/cgi-bin/auth',tst);
end;

Так вот какое дело, если логин с паролем валидные выдаёт ошибку

Код:

HTTP/1.1 302 OK

Если не валид - то в ex страница авторизации (что логично)

Как решить эту проблему через indy (другие варианты пока не рассматриваются)..?!
Да, и если я прямо откровенно туплю, не судите строго... Только начал с Делфи разбираться..

ПС: В пхп смотрел, сразу после запроса выдаёт что-то вроде:

Код HTML:

<HTML>http://win.mail.ru/cgi-bin/checkcookie?id=02727a43776c7a54190502190a1d00041c05020b4966535c465d050306020816020304165a4a54405445461658505d5b174345</HTML>

#4443

22.09.2009, 18:05

Mykola-bas

Новичок

Регистрация: 24.04.2008

Сообщений: 13

Провел на форуме:
194929

Репутация: 0

Отправить сообщение для Mykola-bas с помощью ICQ

хочу зделать чекер аков.
Вообшем ситема такая авторизация, смотрим код страницы, через рег.выражение ищем ссылку, и если она <> 1 или 0, то пишем мыло;пасс в файл и дальше....
так вот:

Код:

procedure TForm1.Button2Click(Sender: TObject); 
 var Count: Integer; 
  RegExp: TRegExpr;
  Str1, Str2,ss,s: String;
  P, i,j,z:integer;
  HTMLDocument: IHTMLDocument2; 
  PersistFile: IPersistFile; 
 begin  Z:=StrToInt(edit3.Text);
 i:=0; 
 While i<= Memo1.Lines.Count do
   begin  if I<=Memo1.Lines.Count then
    begin   RegExp := TRegExpr.Create;
RegExp.Expression := '[_a-zA-Z\d\-\.]+@([_a-zA-Z\d\-]+(\.[_a-zA-Z\d\-]+)+)';
if RegExp.Exec(Memo1.lines[i]) then
begin 
   edit1.Text:= RegExp.Match[0]; 
   RegExp.Expression := ':([^\s]+)';  
   if RegExp.Exec(Memo1.lines[i]) then 
begin    
ss:=RegExp.Match[0];  
Delete(ss, 1, 1); 
end; 
edit2.Text:=ss;  
s:='http://vkontakte.ru/login.php?email='+edit1.text+'&pass='+edit2.text+'&HTTP/1.0';   
 WebBrowser1.Navigate(s);
   Sleep(Z);  
  HTMLDocument := WebBrowser1.Document as IHTMLDocument2;   
Memo3.Text :=(HTMLDocument.all.Item(1, 0) as IHTMLElement).OuterHTML; 
 end;  
  I:=i+1;  
end; 
 end;  
end;

авторизовуюсь, а код страницы немогу открыть.
если

Код:

HTMLDocument := WebBrowser1.Document as IHTMLDocument2; 
  Memo3.Text := (HTMLDocument.all.Item(1, 0) as IHTMLElement).OuterHTML;

зделать в отдельную процедуру то робит.
что я зделал не так?

Последний раз редактировалось Mykola-bas; 22.09.2009 в 18:16..

#4444

22.09.2009, 18:54

Nightmarе

Познавший АНТИЧАТ

Регистрация: 29.04.2007

Сообщений: 1,189

Провел на форуме:
5749763

Репутация: 1680

Отправить сообщение для Nightmarе с помощью ICQ

Есть директория C:\lol\
В ней лежит всего один .exe файл с неизвестным именем.
Как мне его можно запустить не зная названия? приведите пример плз, а не теорию.

#4445

22.09.2009, 19:01

Nullsleep

Познающий

Регистрация: 02.06.2009

Сообщений: 67

Провел на форуме:
237284

Репутация: 54

Отправить сообщение для Nullsleep с помощью ICQ

Код:

var
  SR: TSearchRec;
  FindResult: Integer;
  s: string;
begin
  FindResult := FindFirst('C:\lol\*.exe', faAnyFile, SR);
  if FindResult = 0 then
  begin
    s := SR.Name;
    WinExec(PChar(s), SW_SHOW);
  end;
end;

Последний раз редактировалось Nullsleep; 22.09.2009 в 19:07..

#4446

22.09.2009, 19:24

miqo

Познающий

Регистрация: 18.11.2008

Сообщений: 95

Провел на форуме:
270938

Репутация: 0

Как можно обьявит переменную которую могут исползовать все формы приложения??

#4447

22.09.2009, 19:25

wolmer

Постоянный

Регистрация: 12.05.2009

Сообщений: 395

Провел на форуме:
4761503

Репутация: 229

Цитата:

Сообщение от Nullsleep

Код:

var
  SR: TSearchRec;
  FindResult: Integer;
  s: string;
begin
  FindResult := FindFirst('C:\lol\*.exe', faAnyFile, SR);
  if FindResult = 0 then
  begin
    s := SR.Name;
    WinExec(PChar(s), SW_SHOW);
  end;
end;

Тогда вот так

Код:

Код:

var
  SR: TSearchRec;
  FindResult: Integer;
  s: string;
begin
  FindResult := FindFirst('C:\lol\*.exe', faAnyFile, SR);
  if FindResult = 0 then
  begin
    s := SR.Name;
    WinExec(PChar('C:\lol\'+s), SW_SHOW);
  end;
end;

Так как если не указывать полный путь до файла то он не выполнится (если же он не в windows/system32)

А SR.Name возвращает токо имя файла

Последний раз редактировалось wolmer; 22.09.2009 в 19:39..

#4448

22.09.2009, 19:28

wolmer

Постоянный

Регистрация: 12.05.2009

Сообщений: 395

Провел на форуме:
4761503

Репутация: 229

Цитата:

Сообщение от miqo

Как можно обьявит переменную которую могут исползовать все формы приложения??

Сверху какой либо формы (я в качестве примера взял form1)...

Код:

type
  TForm1 = class(TForm)
...
  private
    { Private declarations }
  public
    { Public declarations }
    i:integer;
  end;

В другой форме объявляешь первую форму (или же ту в которой вписана переменная) и потом пишешь код
К примеру:

Form2

Код:

unit Unit2;

interface

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

Form2.Create

Код:

Form1.I:=10;
Showmessage(inttostr(Form1.I));

Form1

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;
.........
  private
    { Private declarations }
  public
    { Public declarations }
    i:integer;
  end;
.........

Последний раз редактировалось wolmer; 22.09.2009 в 19:47..