Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Delphi > Работа с сетью в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail


Донат для форума - использовать для поднятия настроения себе и модераторам

А ещё здесь можно купить рекламу за 15 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru

Ответ
 
Опции темы
Старый 30.01.2011, 10:54   #1
Big.Cheese
Новичок
 
Регистрация: 30.12.2010
Сообщений: 2
Репутация: -7
Восклицание Выполнение Javascript в Delphi

Задача следующая:
требуется авторизоваться на одном сайте, затем происходит переход на страницу, где выполняются javascript'ы, причем нужно выполнить скрипты, как находящиеся в теле страницы, так и внешние, расположенные в других файлах.

пример сайта http://gold-slots.net/lobby/login.php
Big.Cheese вне форума   Ответить с цитированием
Старый 30.01.2011, 11:45   #2
grafgrial
Просто хороший
Участник клуба
 
Аватар для grafgrial
 
Регистрация: 26.03.2010
Адрес: Башкирия, Туймазы
Сообщений: 561
Репутация: 12

icq: 447370260
По умолчанию

обычным пост запросом
строка запроса
log=ЛОГИН&psw=ПАРОЛЬ&send=1&submit= %C2%EE%E9%F2%E8
grafgrial вне форума   Ответить с цитированием
Старый 30.01.2011, 12:17   #3
Big.Cheese
Новичок
 
Регистрация: 30.12.2010
Сообщений: 2
Репутация: -7
По умолчанию

Это все понятно, я передаю параметры в post запросе, а в ответ получаю страницу, где для дальнейшей авторизации нужно выполнить скрипты

Код:

 <script type="text/javascript" src="jquery-1.4.2.min.js"></script>
 <script type="text/javascript" src="swfobject-2.2.min.js"></script>
 <script type="text/javascript" src="evercookie.js"></script>

 <script  language="JavaScript" type="text/javascript">

function GoNah(){ 
 location="http://gold-slots.net/lobby/index.php"; 
} 

...

Big.Cheese вне форума   Ответить с цитированием
Старый 31.01.2011, 11:26   #4
Mifody
Форумчанин
 
Регистрация: 12.02.2009
Сообщений: 215
Репутация: 37
По умолчанию

1. (взято с Delphi Word)
Код:

uses
  MSHTML_TLB, SHDocVw, ShellAPI;

// function to execute a script function

function ExecuteScript(doc: IHTMLDocument2; script: string; language: string):
  Boolean;
var
  win: IHTMLWindow2;
  Olelanguage: Olevariant;
begin
  if doc <> nil then
  begin
    try
      win := doc.parentWindow;
      if win <> nil then
      begin
        try
          Olelanguage := language;
          win.ExecScript(script, Olelanguage);
        finally
          win := nil;
        end;
      end;
    finally
      doc := nil;
    end;
  end;
end;

// 2 Examples how to login to gmx homepage

procedure FillInGMXForms(WB: ShDocVW_TLB.IWebbrowser2; IDoc1: IHTMLDocument2;
  Document: Variant; AKennung, APasswort: string);
const
  IEFields: array[1..4] of string = ('INPUT', 'text', 'INPUT', 'password');
var
  IEFieldsCounter: Integer;
  i: Integer;
  m: Integer;
  ovElements: OleVariant;
begin
  if Pos('GMX - Homepage', Document.Title) <> 0 then

    while WB.ReadyState <> READYSTATE_COMPLETE do
      Application.ProcessMessages;

  // count forms on document and iterate through its forms
  IEFieldsCounter := 0;
  for m := 0 to Document.forms.Length - 1 do
  begin
    ovElements := Document.forms.Item(m).elements;

    // iterate through elements
    for i := ovElements.Length - 1 downto 0 do
    begin
      try
        // if input fields found, try to fill them out
        if (ovElements.item(i).tagName = IEFields[1]) and
          (ovElements.item(i).type = IEFields[2]) then
        begin
          ovElements.item(i).Value := AKennung;
          Inc(IEFieldsCounter);
        end;

        if (ovElements.item(i).tagName = IEFields[3]) and
          (ovElements.item(i).type = IEFields[4]) then
        begin
          ovElements.item(i).Value := APasswort;
          Inc(IEFieldsCounter);
        end;
      except
        // failed...
      end;
    end; { for i...}
  end; { for m }
  // if the fields are filled in, submit.
  if IEFieldsCounter = 3 then
    ExecuteScript(iDoc1, 'document.login.submit()',
      'JavaScript');
end;

function LoginGMX_IE(AKennung, APasswort: string): Boolean;
var
  ShellWindow: IShellWindows;
  WB: ShDocVW_TLB.IWebbrowser2;
  spDisp: IDispatch;
  IDoc1: IHTMLDocument2;
  Document: Variant;
  k: Integer;
begin
  ShellWindow := CoShellWindows.Create;
  // get the running instance of Internet Explorer
  for k := 0 to ShellWindow.Count do
  begin
    spDisp := ShellWindow.Item(k);
    if spDisp = nil then
      Continue;
    // QueryInterface determines if an interface can be used with an object
    spDisp.QueryInterface(iWebBrowser2, WB);
    if WB <> nil then
    begin
      WB.Document.QueryInterface(IHTMLDocument2, iDoc1);
      if iDoc1 <> nil then
      begin
        WB := ShellWindow.Item(k) as ShDocVW_TLB.IWebbrowser2;
        Document := WB.Document;
        // if GMX page...
        FillInGMXForms(WB, IDoc1, Document, AKennung, APasswort);
      end; { idoc <> nil }
    end; { wb <> nil }
  end; { for k }
end;

// Example 1: Navigate to the gmx homepage in the IE browser an login

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShellExecute(Handle,
    'open',
    'http://www.gmx.ch',
    nil,
    nil,
    SW_SHOW);
  Sleep(2000);
  LoginGMX_IE('user@gmx.net', 'pswd');
end;

// Example 2: navigate to the gmx homepage in the Webbrowser an login

procedure TForm1.Button2Click(Sender: TObject);
var
  IDoc1: IHTMLDocument2;
  Web: ShDocVW_TLB.IWebBrowser2;
begin
  Webbrowser1.Navigate('http://www.gmx.ch');
  while Webbrowser1.ReadyState <> READYSTATE_COMPLETE do
    Application.ProcessMessages;
  Webbrowser1.Document.QueryInterface(IHTMLDocument2, iDoc1);
  Web := WebBrowser1.ControlInterface;
  FillInGMXForms(Web, iDoc1, Webbrowser1.Document, 'user@gmx.net', 'pswd');
end;

2. можно отснифить результаты работы, в 99% случаем выполнять Яву нет необходимости. В крайнем случае, можно переписать код на Делфи.
Mifody вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Выполнение JavaScript в HTML Login1111 Общие вопросы C/C++ 3 07.06.2010 19:54
Выполнение строки как кода в Delphi Asteroid Общие вопросы Delphi 11 21.09.2009 18:46
AJAX выполнение Javascript на лету Egych JavaScript, Ajax 0 29.05.2009 23:50
delphi 7, как прервать выполнение программы Altera Софт 3 27.07.2008 15:14
Выполнение командной строки в Delphi Alar Общие вопросы Delphi 0 29.10.2006 20:44


20:02.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.

Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru