» Autoplay Media Studio

Автор: ubian
Дата сообщения: 05.03.2012 15:40

Киньте функцию GetSFXPath(); плиз

Добавлено:
Stalkersof
Посмотри "Таблицы/Массивы"
http://ams.ubian.ru/2012/01/%D0%BF%D0%B5%D1%80%D0%B5%D0%BC%D0%B5%D0%BD%D0%BD%D1%8B%D0%B5/

Автор: Stalkersof
Дата сообщения: 05.03.2012 15:46

ubian
http://forum.ru-board.com/topic.cgi?forum=5&bm=1&topic=5609&start=40#16

Автор: VladAW
Дата сообщения: 05.03.2012 21:16

Цитата:

На третей странице убрал Button2 и из ресурсов Кнопку Obutton.btn. Ошибка пропала.

[q][/q]

Огромное спасибо! Не заметил этой кнопки! Просто спасли проект!

Автор: LEDRA
Дата сообщения: 06.03.2012 09:46

добрый день.
подскажите - а есть ли способ отловить POST запросы?

Например я открыл в вебобъекте некоторую страницу. А в таблицу занеслись все запросы, которые посылались на сервер.
Спасибо.

Автор: ubian
Дата сообщения: 06.03.2012 17:50

LEDRA
Использовать String.Match. Ранее Zloy_Gelud опубликовал функцию для разделения символов через |. Вот ее можно под ?first&second разделители переделать

[more=Код]
Код: local kxFile = TextFile.ReadToString(_SourceFolder.."\\files.ins");
--Записываем данные файла в строку
if (kxFile=="") then
--Проверяем, пуст ли файл
Application.ExitScript();
--Если да - завершаем выполнения скрипта
end

Автор: LEDRA
Дата сообщения: 06.03.2012 17:58

ubian
как мне это поможет отловить запросы?

Автор: Zloy_Gelud
Дата сообщения: 06.03.2012 18:02

LEDRA -- никак.

Автор: ubian
Дата сообщения: 06.03.2012 18:06

Zloy_Gelud
LEDRA
Если они записаны в URL (что вполне реально реализовать если есть возможность править веб скрипт) то вполне реально их оттуда выдрать

Автор: Zloy_Gelud
Дата сообщения: 06.03.2012 18:13

ubian
"Если бы у бабушки был *** - она бы дедушкой была." (с)

Автор: ubian
Дата сообщения: 06.03.2012 18:20

Zloy_Gelud
Так почему бы его не создать

. Насколько знаю $_POST = $_GET. Очень легко реализуется

Автор: LEDRA
Дата сообщения: 06.03.2012 20:05

ubian
Ми видимо о разных вещах говорим.
Я понял что мне поможет только консольный сниффер.
Сейчас изучаю их работу.

Автор: ubian
Дата сообщения: 06.03.2012 22:02

LEDRA
Я так понял - есть веб-скрипт, котомупользватель передает данные через форму (POST запрос). В этот скрипт нужно добавить добавление в url того запроса (тип _GET).
_POST запрос:

Код:
mess=Hi, man

Автор: LEDRA
Дата сообщения: 06.03.2012 22:09

ubian
Задача другая.
Есть некоторый адрес.
если его ввести в браузере и перейти по нему - то генерируется некоторые GET. Вот их мне и нужно отловить.
Сейчас играюсь с "ngrep" - вроде ловит то что нужно. Единственное что не нравится - так это то, что он не на прямую с адресом работает, а с о всеми веб объектами.

Автор: ubian
Дата сообщения: 06.03.2012 22:31

LEDRA
А, понятно. Т.е. не можешь управлять самим скриптом.

Автор: Zloy_Gelud
Дата сообщения: 07.03.2012 13:26

Никто не в курсе как можно передать фокус ActiveX объекту?
Пробовал так:

Код: local hWnd = ActiveX.GetWindowHandle("Plugin6", HWND_CONTROL);
DLL.CallFunction("user32.dll", "SetFocus", hWnd, DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL);
--local hWnd = ActiveX.GetWindowHandle("Plugin6", HWND_CONTAINER);
--DLL.CallFunction("user32.dll", "SetFocus", hWnd, DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL);

Автор: tavria2
Дата сообщения: 07.03.2012 14:02

Zloy_Gelud
Проверил, передается.

Код: local hWnd = ActiveX.GetWindowHandle("Plugin6", HWND_CONTAINER);
DLL.CallFunction("user32.dll", "SetFocus", hWnd, DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL);
h = DLL.CallFunction("user32.dll", "GetFocus", "", DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL);
Label.SetText("Label1", h); -- отображает дескриптор контейнера ActiveX

Автор: Zloy_Gelud
Дата сообщения: 07.03.2012 14:17

tavria2

Цитата:

Проверил, передается.

Я как бэ знаю, что передается, но результат не виден..
Вот код, попробуй:

OnContCreate:

Код: local sHTML = [[<html>
    <head>
        <script>
            function setCaretPosition(ctrl)
            {

                if(ctrl.setSelectionRange)
                {
                    ctrl.focus();
                    ctrl.setSelectionRange(pos,pos);
                }
                else if (ctrl.createTextRange) {
                    var range = ctrl.createTextRange();
                    range.collapse(true);
                    range.moveEnd('character', ctrl.value.length);
                    range.moveStart('character', 0);
                    range.select();
                }
            }

            function process()
            {
                setCaretPosition(document.getElementById('get'));
            }
        </script>
        <style type="text/css">
            body {border-width: 0px}
            #get {border: 0px; background: #EEEEFB}
        </style>
    </head>
    <body bottommargin="0" topmargin = "0" bgcolor="#EEEEFB" scroll="no" onload="process()">
        <textarea id='get' rows='25' cols='50' wrap="soft">Paste the autoplay code here</textarea>
    </body>
</html>]]
local bCreated = ActiveX.CreateControl("Plugin6", "Shell.Explorer.2");
if (bCreated) then
IEObject = ActiveX.QueryInterface("Plugin6");
if ( IEObject ) then
ActiveX.JoinEvents("Plugin6", IEObject, ExplorerEvents);
IEObject:Navigate("about:blank",0,0,0,0);
IEObject.document:Write(sHTML)
IEObject.document:close()
end
end

Автор: ubian
Дата сообщения: 07.03.2012 14:34

Почему Data не записывается

Код:
bFile = File.DoesExist(_SourceFolder.."\\files.ins");
if (bFile) then
tFile = TextFile.ReadToTable(_SourceFolder.."\\files.ins");
if (tFile) then
for n = 1, #tFile do
local sNewFileName = String.TrimRight(String.TrimLeft(string.match(tostring(tFile[n]), "(.*)|"), nil), nil);
local sNewFilePath = String.TrimRight(String.TrimLeft(string.match(tostring(tFile[n]), "|(.*)"), nil), nil);
ListBox.AddItem("ListBox1", tostring(sNewFilePath), tostring(sNewFileName));
end
else
Dialog.Message("Error", "Error");
end
end

Автор: tavria2
Дата сообщения: 07.03.2012 14:46

Zloy_Gelud
Ты вообще смотрел иерархию окон после создания объекта "Shell.Explorer.2"?

Иерархия ActiveX:

AfxWnd70s (контейнер ActiveX)
Shell Embedding
Shell DocObject View
Internet Explorer_Server <-- сюда нужно передавать фокус

P.S. У меня в <textarea> не работает Copy, Paste и кнопка Delete. Текст, после программной установки фокуса, можно ввести руками, что подтверждает установку фокуса в <textarea>.

Добавлено:
Вот код на скорую руку:
On Show

Код: function FindWindowEx(hWnd1, hWnd2, lpsz1, lpsz2)
    if (lpsz1 ~= "") then lpsz1 = "\""..lpsz1.."\"" else lpsz1 = 0 end
    if (lpsz2 ~= "") then lpsz2 = "\""..lpsz2.."\"" else lpsz2 = 0 end
    return tonumber(DLL.CallFunction("user32.dll", "FindWindowExA", hWnd1..","..hWnd2..","..lpsz1..","..lpsz2.."", DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL));
end

local hWnd = ActiveX.GetWindowHandle("Plugin6", HWND_CONTAINER);
if (hWnd ~= 0) then
    hWnd = FindWindowEx(hWnd, 0, "Shell Embedding", "")
    if (hWnd ~= 0) then
        hWnd = FindWindowEx(hWnd, 0, "Shell DocObject View", "")
        if (hWnd ~= 0) then
            hWnd = FindWindowEx(hWnd, 0, "Internet Explorer_Server", "")
            DLL.CallFunction("user32.dll", "SetFocus", hWnd, DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL);
        end
    end
end

Автор: ubian
Дата сообщения: 07.03.2012 15:32

tavria2
Можешь помочь? Мне нужно реализовать скрытый клик пользователя (чтобы он его не видел и не замечал) по любой ссылке на определенной странице. (Уже задавалось, но не было реализовано)

Автор: tavria2
Дата сообщения: 07.03.2012 15:42

ubian

Цитата:

Мне нужно реализовать скрытый клик пользователя (чтобы он его не видел и не замечал) по любой ссылке на определенной странице.

За такое нужно руки отрывать.

Автор: ubian
Дата сообщения: 07.03.2012 15:46

tavria2
Я знаю. Но пользователю будет об этом сообщено, и это можно отключить (в настройках). А то держать сервер бесплатно - не хорошо...

Автор: tavria2
Дата сообщения: 07.03.2012 15:50

ubian

Цитата:

А то держать сервер бесплатно - не хорошо...

Это твои проблемы, знал на что шел.
Сделай на сайте ссылку для пожертвования (WebMoney).

Автор: ubian
Дата сообщения: 07.03.2012 15:56

tavria2
Ну пожалуйста! Это даже не мне, так сказать..
А с кошельком - уже пробовали. Никто не пожертвует.
А так, даже раз в день.
1000 * 0.01C$ = 10$.
Даже можно раз в неделю поставить. Обещаю не злоупотреблять

Автор: Zloy_Gelud
Дата сообщения: 07.03.2012 16:03

tavria2

Цитата:

Ты вообще смотрел иерархию окон после создания объекта "Shell.Explorer.2"?

Нет.

Я думал там всего 2 окна: HWND_CONTAINER и HWND_CONTROL. Поэтому и не стал заморачиваться с анализом иерархии.

Цитата:

У меня в <textarea> не работает Copy, Paste и кнопка Delete

Посмотрю, как у меня работает (чуть позже..)

Цитата:

Вот код на скорую руку:

Спасибо, посмотрю.

Автор: tavria2
Дата сообщения: 07.03.2012 16:04

ubian
Ни чем не могу помочь.

Автор: ubian
Дата сообщения: 07.03.2012 16:21

Можете подсказать, как мне преобразовать таблицу типа

Код:
id=2
infon=UserName
install=true

Автор: LEDRA
Дата сообщения: 07.03.2012 18:44

подскажите.
открываю в вебобъекте ссылочку так
Web.LoadURL("Web1", "http://*****");

можно как то узнать что вебобъект обновился, т.е. полностью загрузил данную страницу?

Автор: tavria2
Дата сообщения: 07.03.2012 18:50

LEDRA
В Web объекте есть событие On Loaded, которое срабатывает после завершения загрузки страницы.

Автор: PAVELNEXT
Дата сообщения: 08.03.2012 10:53

Всем привет, вопрос такой, можно ли проверить пустая переменная или в ней что то есть (например текст)?

Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140

Предыдущая тема: Media Player Classic - Home Cinema (MPC-HC)

Форум Ru-Board.club — поднят 15-09-2016 числа. Цель - сохранить наследие старого Ru-Board, истории становления российского интернета. Сделано для людей.