получить содержимое URL

[Le0n4iko_o]

не улавливаю о чем код О_о
плагин мне не подходит.

[eval]

спрошу еще и я, а зачем это надо?

[Le0n4iko_o]

а прочитать в начале не судьба ?

[eval]

ткните пальцем а то не видно

[Le0n4iko_o]

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

ткните пальцем а то не видно

аццки вам надо это факт .

Stilet есть некое ПО , которое работает с неким приложением в вк (пользователь сам выбирает 1 - ин из 3- ех браузеров). Хотелось бы реализовать аутентификацию по страницам вк (достаточно по id) , фейков полно и это напрягает.
Проблема в том что бы юзать API Vk нужна авторизация , к сожалению мне этот вариант не подходит.

[rasend]

Тоже нуждаюсь в этом коде, нужны ссылки активной вкладки, не чего не нашёл толкового за исключением этого кода:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function GetText(WindowHandle: hwnd): string;
var
  TxtLength: integer;
  Buf: string;
begin
  TxtLength := SendMessage(WindowHandle, WM_GETTEXTLENGTH, 0, 0) + 1;
  SetLength(Buf, TxtLength);
  SendMessage(WindowHandle, WM_GETTEXT, TxtLength, LongInt(@Buf[1]));
  Result := Buf;
end;

function EnumWndProc(WinHandle: HWND; Param: LongInt): Boolean; stdcall;
var
 CapWnd: HWND;
 CStr: array[0..114] of Char;
begin
  Result := True;
  if (GetParent(WinHandle) = 0) then
  begin
    GetClassName(WinHandle, CStr, 114);
    if (StrPas(CStr) = 'Chrome_WidgetWin_0') then
    begin
      CapWnd := FindWindowEx(WinHandle, 0, 'Chrome_WidgetWin_0', nil);
      if (CapWnd <> 0) then
        TStrings(Pointer(Param)).Add(GetText(CapWnd));
    end;
  end;
end;

function GetChromeActiveURLS(outList:TStrings): Integer;
begin
  Result := 0;
  outList.Clear;
  EnumWindows(@EnumWndProc, LParam(Pointer(outList)));
  Result := outList.Count;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  ChromeWinCount: Integer;
begin
  ChromeWinCount := GetChromeActiveURLS(Memo1.Lines);
  Memo1.Lines.Insert(0,Format('Íàøëîñü %d àêòèâíûõ îêîøåê Google Chrome:',[ChromeWinCount]));
end;

end.

Но он показывает не ссылки а заголовки, возможно у кого то есть какие то идеи?

[Le0n4iko_o]

rasend,почитай в начале и поймешь что гиблое дело.

[Человек_Борща]

не улавливаю о чем код О_о
плагин мне не подходит.

Я например сейчас пишу мост между браузерами и моим ПО, и моему По до балды что там за браузер, главное чтобы был XMLHttpRequest и свои JS'ки к браузеру. С моей стороны работает WEB-сервер. который и обрабатывает эти самые запросы от JS'ок.

На сколько понял, речь о перехвате доступа к ВК. То тут вам флаг в руки. Есть целый фриварный драйвер WinPCap для перехвата, есть mailslot'ы, есть прокси. куча способов продублировать трафик пользователя.

[rasend]

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

rasend,почитай в начале и поймешь что гиблое дело.

Просто в инете наткнулся на пост

добрался до контрола адресной строки через IAccessible

теперь встал вопрос, как его прямее всего находить в дереве элементов, если его имя в разных языковых версиях хрома разное ("Address and search bar" в eng, "Адресная строка и строка поиска" в rus и тд)...

вот теперь думаю...

[Avazart]

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

Тоже нуждаюсь в этом коде, нужны ссылки активной вкладки, не чего не нашёл толкового за исключением этого кода:

URL страницы в браузере можно получить через DDE http://www.cyberforum.ru/cpp-builder/thread63356.html