FAQ (июнь-июль 2003)
Данный материал предоставлен журналом CODE
Программирование на VB6
Q. Могу ли я в своей программе использовать процедуры написанные на других языках программирования не включая их в DLL или ActiveX контрол?
G.M. Довольно странный вопрос и я к сожалению, не смог получить уточнения. Надеюсь, что Вы, прочитав эти строки, напишете мне, и я смогу ответить на поставленный вами вопрос.
Но, так или иначе, я задался целью исследовать поставленную задачу, в результате чего я обнаружил один нетривиальный способ использования уже скомпилированных функций, написанных на языке Assembler. Этот метод был найден мной в работе clsASMpic 1.0 на сайте http://www.pscode.com. Код на языке ассемблера написан Робертом Рейментом (Robert Rayment).
Суть метода заключается в том, чтобы хранить уже скомпилированный код в виде константы. Каким образом это реализуется? Ниже приведена измененная мною выдержка из кода с моими пояснениями.
|
Листинг - пример использования хранимых функций |
|
Private Const ASMCode As String = "5589E581EC780000005756538B5D0 ..." ‘шестнадцатеричное значение сильно сокращено с целью экономии места Call LoadMCodeFromString (MyFunc, ASMCode) ‘ вызов функции преобразования ‘ Так как VB по умолчанию передает параметры ByRef - мы получаем массив MyFunc Private Function LoadMCodeFromString(asm_code_ARRAY() As Byte, MCODE As String) Dim i As Long, aSize As Long aSize = Len(MCODE) ' размер кода Debug.Assert Not aSize And 1 ' число не может быть четным aSize = aSize \ 2 ReDim Preserve asm_code_ARRAY(0 To aSize - 1) ' подготавливаем массив For i = 0 To aSize - 1 asm_code_ARRAY(i) = Val("&H" & Mid$(MCODE, i * 2 + 1, 2)) 'создаем массив Next End Function ptMf = VarPtr(MyFunc(0)) ' получаем адрес первого элемента, он же и будет адресом нашей процедуры CallWindowProc pMf, ... параметры |
Как вы можете убедиться - решение весьма элегантно. Строковая переменная содержит код, который потом загружается в память в виде массива байтов. Для получения адреса процедуры используется встроенная функция VB - VarPtr - возвращающая указатель на переменную. И обычный вызов с помощью Win API - CallWindowProc.
Подробнее вы можете рассмотреть этот пример на сайте www.pscode.com.
Q. В моей программе я использую CommonControls. Для поддержки визуальных стилей WindowsXP я добавляю к своему e xe файлу - файл exe. manifest. Программа действительно отображается в стиле XP, но почему-то все c heck и option закрашены черным цветом. Как этого избежать?
G.M. Чтобы эти элементы отображались на форме в WindowsXP так, какими вы хотите их видеть достаточно поместить их на какой-нибудь контрол-контейнер, например Frame или Picture.
Q. Как можно дописать в скомпилированный exe файл какую-то информацию, так чтобы он продолжал запускаться как всегда? И вообще, можно ли это сделать.
G.M. Можно. Действительно, любые записанная в конец exe файла данные будут игнорироваться загрузчиком ОС, поэтому вы можете свободно писать и читать добавленные данные, при условии, что, он доступен на чтение и запись. Приведу простой пример - мы имеем exe файл определенного размера (известный заранее) и другую программу с формой, текстовым полем и кнопкой. Содержимое файла, который мы будем использовать как хранилище данных, нас не интересует.
|
Листинг form1.frm |
|
Private Sub Command1_Click() Dim f As Integer f = FreeFile ' получаем свободный id Open "test.exe" For Binary As #f ' открываем файл Put #f, file_size, Text1.Text ' Помещаем содержимое Text1 в конец файла Close #f End Sub |
Теперь откройте файл любым редактором и посмотрите в его конец. Вы увидите именно тот текст, который был введен в поле Text1. Теперь двойным щелчком запустите файл - вы убедитесь в его работоспособности.
Q. Как получить информацию о PE файле из VB? Т.е. прочитать заголовки и получить нужную информацию?
G.M. Для этого необходимо объявить соответствующие типы, описывающие PE заголовки и заполнить их данными из открытого файла. Для примера приведу код получающий данные из DOSHEADER и NTHEADER.
Объявление соответствующих структур:
|
Код для модуля |
|
Public Type IMAGEDOSHEADER e_magic As String * 2 e_cblp As Integer e_cp As Integer e_crlc As Integer e_cparhdr As Integer e_minalloc As Integer e_maxalloc As Integer e_ss As Integer e_sp As Integer e_csum As Integer e_ip As Integer e_cs As Integer e_lfarlc As Integer e_ovno As Integer e_res(1 To 4) As Integer e_oemid As Integer e_oeminfo As Integer e_res2(1 To 10) As Integer e_lfanew As Long End Type Public Type IMAGE_FILE_HEADER Machine As Integer NumberOfSections As Integer TimeDateStamp As Long PointerToSymbolTable As Long NumberOfSymbols As Long SizeOfOptionalHeader As Integer Characteristics As Integer End Type Public Type IMAGE_DATA_DIRECTORY VirtualAddress As Long size As Long End Type Public Type IMAGE_OPTIONAL_HEADER Magic As Integer MajorLinkerVersion As Byte MinorLinkerVersion As Byte SizeOfCode As Long SizeOfInitializedData As Long SizeOfUninitializedData As Long AddressOfEntryPoint As Long BaseOfCode As Long BaseOfData As Long ImageBase As Long SectionAlignment As Long FileAlignment As Long MajorOperatingSystemVersion As Integer MinorOperatingSystemVersion As Integer MajorImageVersion As Integer MinorImageVersion As Integer MajorSubsystemVersion As Integer MinorSubsystemVersion As Integer Win32VersionValue As Long SizeOfImage As Long SizeOfHeaders As Long CheckSum As Long Subsystem As Integer DllCharacteristics As Integer SizeOfStackReserve As Long SizeOfStackCommit As Long SizeOfHeapReserve As Long SizeOfHeapCommit As Long LoaderFlags As Long NumberOfRvaAndSizes As Long DataDirectory(0 To 15) As IMAGE_DATA_DIRECTORY End Type Public Type IMAGE_NT_HEADERS Signature As String * 4 FileHeader As IMAGE_FILE_HEADER OptionalHeader As IMAGE_OPTIONAL_HEADER End Type ' Соответствующие переменные Public DOSHEADER As IMAGEDOSHEADER Public NTHEADER As IMAGE_NT_HEADERS ‘ Нам понадобится эта функция для копирования данных в структуры Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" _ (pDst As Any, pSrc As Any, ByVal ByteLen As Long) |
Прочитаем содержимое файла в массив бинарных данных:
|
Код для процедуры в форме |
|
Dim PEDATA() As Byte Dim fH As Long fH = FreeFile 'Лучше получать свободное значение, чем использовать число, например 1 Open "c:\winnt\explorer.exe" For Binary As #fH ‘Не забудьте исправить путь ReDim PEDATA(LOF(fH) - 1) ' Определяем размер массива под данные Get #fH, , PEDATA ' Считываем файл Close #fH CopyMemory DOSHEADER, DATA(CNT), Len(DOSHEADER) CopyMemory NTHEADER, DATA(DOSHEADER.e_lfanew), Len(NTHEADER) ‘ Все данные загружены, теперь можно получать любую информацию MsgBox "Machine: " & NTHEADER.FileHeader.Machine & vbCrLf & _ "Minor OS Version: " & _ NTHEADER.OptionalHeader.MinorOperatingSystemVersion & vbCrLf & _ "Signature: " & NTHEADER.Signature |
В общем случае, этот метод подходит для любого файла, описываемого соответствующими ему структурами, частным случаем которого является файл формата PE. В качестве упражнения рекомендую взять описание любого формата, например ICO, и попытаться получить данные из файлов в директории Windows.
Web - программирование
Q. В своем приложении я использую глобальную переменную $_SESSION, где храню данные пользовательских сеансов. Не может ли взломщик передать ее содержимое в строке GET запроса?
G.M. Подобные вопросы проще разрешить самостоятельно протестировав свое приложение. Я понимаю, что ввело вас в заблуждение. Чтобы показать, что ваши опасения напрасны, рассмотрим следующие два примера. Создадим простое приложение, которое выводит содержимое переменной в броузер.
|
Листинг test1.php |
|
<? echo @$_SESSION[‘test’]; ?> |
Запустим эту программу и передав подобный GET запрос: /test1.php?_SESSION[test]=Hi. Вы можете убедиться, что он проходит и программа выводит ожидаемое слово "Hi". Возможно, что именно это вас и смутило. Но теперь рассмотрим другой пример:
|
Листинг test2.php |
|
<? session_start(); echo @$_SESSION[‘test’]; ?> |
Теперь, сколько бы мы не нажимали Refresh (‘Обновить’) в броузере, придумывая самые неимоверные GET запросы с вариациями на тему передачи содержимого в $_SESSION, да и любую другую подобную переменную, ничего не получится. Можете спасть спокойно, авторы PHP предусмотрели такую маленькую хитрость.
Q. В моем сценарии на PHP 4.0 обрабатывается форма содержащая флажки выбора. Проблема заключается в том, что значение передается сценарию только тогда, когда флажок выбран. Но хотелось бы получить значение и тогда, когда флажок не выбран. Как решить эту задачу?
G.M. Просто. Так как броузер отправляет значение value флажка лишь если он выбран, то можно перед самим элементом checkbox поместить элемент hidden с тем же значением name. При этом, если флажок будет выбран пользователем, то значение этой переменной примет указанное в value значения checkbox - PHP подставит переменной $check1 последнее значение в запросе (GET или POST).
|
Листинг form.html |
|
<form action=’test.php’> <input type=’hidden’ name=’check1’ value=’0’> <input type=’checkbox’ name=’check1’ value=’1’> <input type=’submit’ name=’submit’ value=’submit’> </form> |
Q. Мне необходимо получить в моем сценарии содержимое странички выдаваемое программой, расположенным на удаленном хосте при передаче ему параметров. Например: http://myhost/index.php?page=1.
G.M. Благодаря тому, что в PHP предусмотрена работа с удаленными файлами так же, как если бы они были расположены на вашем хосте, то можно легко получить ответ программы с удаленного хоста:
|
Листинг get_remote_page.php |
|
<? $content = join('', file('http://vbstreets/index.php?page=news')); echo $content; ?> |
Проектирование
Q. Поможет ли популярности нашего веб-сайта оригинальный и нестандартный дизайн. Отказ от стандартных форм?
G.M. Как это обычно бывает - у медали две стороны. На первый взгляд - оригинальности и нестандартность дизайна определенно привлечет внимание пользователей, но по статистике, если пользователь в течение короткого времени не сможет разобраться с тем, как работают веб-приложения на вашем сайте - он покинет ваш ресурс. Поэтому необходимо найти оптимальное решение - совместить нестандартность и простоту работы. Представьте себя начинающим пользователем Интернет, знакомым лишь с простыми Windows приложениями и не желающего вникать в тонкости вашего подхода. Оцените свой ресурс, представив себя на его месте.
Q. Что лучше - использование стандартных элементов веб-форм или использование собственных ActiveX элементов и Java апплетов?
G.M. На мой взгляд, использование ActiveX и Java, конечно, сильно расширяет функциональность ваших веб-приложений и характеризует ресурс как созданный профессиональными программистами, но с другой стороны требует от клиента загрузки контролов и аппетов и выполнение их. При этом следует учесть, что клиент может обладать сильно устаревшим «железом» и «софтом», что сведет все ваши усилия на нет. Лично я стараюсь использовать простой HTML везде, где это возможно.
Q. Насколько выгодно использовать в своих приложениях компоненты, разработанные по принципу «открытого кода»?
G.M. Все зависит от того, какую цель вы преследуете. По моему личному опыту в подобных компонентах достаточно часто встречаются трудно исправимые ошибки. Поэтому прежде чем принимать подобное ПО в рассмотрение - пройдите все этапы тестирования и оцените насколько трудоемко изменение обнаруженных ошибок и приведение к необходимому вам виду. Обычно очень трудно убедить менеджера (или, как это сейчас модно, архитектора) проекта, что использование open source компонентов поможет сократить расходы на разработку.
Q. Необходима ли сайту система управления содержимым?
G.M. Прежде всего подумайте, стоит ли на вашем сайте размещать подобную систему? Я могу привести несколько вариантов, когда использование такой системы сильно облегчит поддержание ресурса:
1. Сайт представляет собой часто обновляемый информационный портал с большим количеством информации
2. Сайт разрабатывается более чем одним человеком - чтобы содержимое было структурировано, то необходимо разработать правила публикации, либо использовать единую систему управления контентом.
Если же это домашняя страничка или «визитная карточка» - сайты на которых информация обновляется крайне редко, то установка такой системы неоправданна - вы потратите больше времени на установку, настройку и обслуживание системы.