Пошаговое руководство. Вызов API Windows (Visual Basic)

Статья
02/20/2013

Интерфейсы Windows API являются динамическими библиотеками (DLL), частью операционной системы Windows. Они используются для решения задач в том случае, когда сложно написать собственную соответствующую процедуру.Например, в Windows есть функция под названием FlashWindowEx, позволяющая изменять строку заголовка приложения от светлого оттенка к темному.

Преимущество применения интерфейсов Windows API в коде состоит в том, что это может сократить время разработки программы, поскольку программиста ждут десятки готовых полезных и удобных функций.Недостатки использования Windows API — с ними может оказаться непросто работать, и они не терпят ошибок.

Интерфейсы Windows API представляют собой специальную категорию взаимодействия.Интерфейсы Windows API не используют управляемый код, не имеют встроенных библиотек и пользуются типами данных, отличными от применяемых Visual Studio.Из-за перечисленных различий, а также потому, что интерфейсы Windows API не являются объектами COM, взаимодействие между интерфейсами Windows API и .NET Framework выполняется с привлечением платформенного вызова или PInvoke.Платформенным вызовом называется служба, позволяющая управляемому коду вызывать реализованные в DLL неуправляемые функции.Дополнительные сведения см. в разделе Использование неуправляемых функций DLL.Можно использовать PInvoke в Visual Basic, используя либо инструкцию Declare, либо применения атрибута DllImport к пустой процедуре.

Вызовы Windows API были важной частью программирования Microsoft Visual Basic в прошлом, но редко необходимы с Visual Basic 2005.При возможности для выполнения задач следует пользоваться управляемым кодом .NET Framework, а не вызовом Windows API.В этом пошаговом руководстве демонстрируются ситуации, когда необходимо использование интерфейсов Windows API.

Примечание
На вашем компьютере названия некоторых элементов интерфейса пользователя Visual Studio или их расположение могут отличаться от указанных в нижеследующих инструкциях. Это зависит от имеющегося выпуска Visual Studio и используемых параметров. Дополнительные сведения см. в разделе Параметры Visual Studio.

На вашем компьютере названия некоторых элементов интерфейса пользователя Visual Studio или их расположение могут отличаться от указанных в нижеследующих инструкциях. Это зависит от имеющегося выпуска Visual Studio и используемых параметров. Дополнительные сведения см. в разделе Параметры Visual Studio.

Вызов API с помощью оператора Declare

Самый распространенный способ вызова интерфейса Windows API — посредством оператора Declare.

Объявление процедуры DLL

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

Примечание
Для получения полных сведений об интерфейсе Windows API обратитесь к документации Win32 SDK в Platformе SDK Windows API.Для получения сведений об используемых интерфейсом Windows API константах см. включенные в Platform SDK файлы заголовков, например Windows.h.

Для получения полных сведений об интерфейсе Windows API обратитесь к документации Win32 SDK в Platformе SDK Windows API.Для получения сведений об используемых интерфейсом Windows API константах см. включенные в Platform SDK файлы заголовков, например Windows.h.

Создайте новый проект "Приложение Windows", щелкнув пункт Создать в меню Файл, а затем выбрав Проект.Откроется диалоговое окно Новый проект.
Выберите Приложение Windows из списка шаблонов проектов Visual Basic.Появится новый проект.

Добавьте следующую функцию Declare либо в класс, либо в модуль, в котором требуется использование DLL:

Declare Auto Function MBox Lib "user32.dll" Alias "MessageBox" (
    ByVal hWnd As Integer,
    ByVal txt As String,
    ByVal caption As String,
    ByVal Typ As Integer) As Integer

Составляющие оператора Declare

Оператор Declare включает следующие элементы:

Модификатор Auto

Модификатор Auto инструктирует среду выполнения о необходимости преобразования строки на основе имени метода в соответствии с правилами общеязыковой среды выполнения (или именами-псевдонимами, если они указаны).

Ключевые слова Lib и Alias

Имя, которое следует за ключевым словом Function — это имя, которое программа использует для доступа к импортируемой функции.Оно может быть идентичным настоящему имени вызываемой функции. Другой способ — воспользоваться любым допустимым именем процедуры, а затем задействовать ключевое слово Alias, чтобы указать настоящее имя вызываемой функции.

Примените ключевое слово Lib, за которым следует имя и расположение файла DLL, в котором хранится вызываемая функция.Для файлов, расположенных в системных каталогах Windows, указывать путь не требуется.

Ключевое слово Alias следует использовать, если имя вызываемой функции не является допустимым именем процедуры Visual Basic или конфликтует с именем других элементов в приложении.Ключевое слово Alias указывает правильное имя вызываемой функции.

Объявление аргументов и типов данных

Объявите аргументы и их типы данных.Эта задача может быть достаточно сложной, поскольку типы данных, используемые в Windows, не соответствуют типам данных Visual Studio.Visual Basic выполняет большой объем работы за разработчика, преобразуя аргументы в совместимые типы данных. Этот процесс называется маршалингом.Можно явным образом управлять маршалингом аргументов с помощью атрибута MarshalAsAttribute, определенного в пространстве имен System.Runtime.InteropServices.

Примечание
Предыдущие версии Visual Basic позволяли объявлять параметры As Any, означающие, что могут использоваться данные любого типа.В Visual Basic необходимо использовать определенный тип данных для всех инструкций Declare.

Константы интерфейса Windows API

Некоторые аргументы являются сочетаниями констант.Например, рассматриваемый в этом пошаговом руководстве интерфейс API MessageBox принимает целочисленный аргумент под названием Typ, который определяет вид окна сообщения.Определите имя числовое значение этих констант, изучив инструкции #define в файле WinUser.h.Числовые значения, как правило, приведены в шестнадцатеричной системе счисления, поэтому, возможно, потребуется воспользоваться калькулятором для их сложения и преобразования в десятичную систему счисления. Например, если необходимо сложить константы стиля восклицания MB_ICONEXCLAMATION 0x00000030 и стиля "Да/Нет" MB_YESNO 0x00000004, можно сложить эти числа и получить результат 0x00000034, или 52 в десятичном счислении.Несмотря на то, что можно использовать непосредственно десятичное число, корректнее объявить эти значения в приложении как константы и сочетать их при помощи оператора Or.

Объявление констант для вызовов интерфейса Windows API

Обратитесь к документации для вызываемой функции Windows.Определите имя константы, которую она использует, и имя H-файла (с расширением .h), который содержит числовые значения для этих констант.
Чтобы просмотреть содержимое файла заголовка (H-файла) и найти соответствующие применяемым константам значения, используйте текстовый редактор, например "Блокнот".Например API-интерфейс MessageBox использует константу MB_ICONQUESTION, чтобы показать знак вопроса в окне сообщения.Определением для MB_ICONQUESTION является WinUser.h, и выглядит оно следующим образом:

#define MB_ICONQUESTION 0x00000020L
Добавьте соответствующие инструкции Const в ваш класс или модуль, чтобы сделать эти константы доступными для приложения.Примеры.
```
Const MB_ICONQUESTION As Integer = &H20
Const MB_YESNO As Integer = &H4
Const IDYES As Integer = 6
Const IDNO As Integer = 7
```

Вызов процедуры DLL

Добавьте в форму запуска проекта кнопку под названием Button1, а затем выполните на ней двойной щелчок мышью, чтобы просмотреть код.Появится обработчик событий для данной кнопки.

Вставьте в обработчик событий Click новой кнопки следующий код, чтобы вызвать процедуру, и предоставьте соответствующие аргументы:

Private Sub Button1_Click(ByVal sender As System.Object,
    ByVal e As System.EventArgs) Handles Button1.Click

    ' Stores the return value.
    Dim RetVal As Integer
    RetVal = MBox(0, "Declare DLL Test", "Windows API MessageBox",
        MB_ICONQUESTION Or MB_YESNO)

    ' Check the return value.
    If RetVal = IDYES Then
        MsgBox("You chose Yes")
    Else
        MsgBox("You chose No")
    End If
End Sub

Запустите проект, нажав клавишу F5.Появится окно сообщений с кнопками Да и Нет.Нажмите одну из них.

Маршалинг данных

Visual Basicавтоматически преобразует типы данных параметров и возвращаемых значений вызовов интерфейса Windows API, но можно также применить атрибут MarshalAs, чтобы явным образом определить ожидаемые интерфейсом API неуправляемые типы данных.Дополнительные сведения о маршалинге взаимодействия содержатся в разделе Маршалинг взаимодействия.

Использование при вызове интерфейса API оператора Declare и атрибута MarshalAs

Выясните имя вызываемой функции, ее аргументы, типы данных и возвращаемое значение.
Чтобы упростить доступ к атрибуту MarshalAs, в начале кода класса или модуля вставьте оператор Imports, как показано в следующем примере:
```
Imports System.Runtime.InteropServices
```
Добавьте прототип функции для импортированной функции в класс или модуль, который вы используете, и примените атрибут MarshalAs к параметрам или возвращаемому значению.В следующем примере демонстрируется вызов API, предполагающий маршалинг типа void* как AsAny:
```
Declare Sub SetData Lib "..\LIB\UnmgdLib.dll" (
    ByVal x As Short,
    <MarshalAsAttribute(UnmanagedType.AsAny)>
        ByVal o As Object)
```

Вызов интерфейса API с помощью атрибута DllImport

Атрибут DllImport реализует второй способ вызова функций в DLL без библиотек типов.DllImport в общих чертах похож на инструкцию Declare, но обеспечивает больший контроль над процессом вызова функций.

Атрибут DllImport можно применять с большинством вызовов интерфейса Windows API, при условии, что вызов связан с общим (иначе называемым статическим) методом.Нельзя использовать методы, которым требуется экземпляр класса.В отличие от инструкций Declare, вызовыDllImport не могут использовать атрибут MarshalAs.

Вызов интерфейса Windows API с помощью атрибута DllImport

Создайте новый проект "Приложение Windows", щелкнув пункт Создать в меню Файл, а затем выбрав Проект.Откроется диалоговое окно Новый проект.
Выберите Приложение Windows из списка шаблонов проектов Visual Basic.Появится новый проект.
Добавьте кнопку с именем Button2 в начальную форму.
Дважды щелкните кнопку Button2, чтобы просмотреть код формы.
Чтобы упростить доступ к атрибуту DllImport, в начале кода класса начальной формы вставьте оператор Imports:
```
Imports System.Runtime.InteropServices
```
Перед оператором формы End Class объявите пустую функцию и озаглавьте ее MoveFile.
Примените к объявлению функции модификаторы Public и Shared и установите для MoveFile параметры на основе аргументов, используемых функцией Windows API:
```
Public Shared Function MoveFile(
    ByVal src As String,
    ByVal dst As String) As Boolean
    ' Leave the body of the function empty.
End Function
```
Функция может иметь любое допустимое имя процедуры; атрибут DllImport задает это имя в библиотеке DLL.Кроме того, он управляет маршалингом взаимодействия для параметров и возвращаемых значений, поэтому есть возможность выбрать типы данных Visual Studio, аналогичные типам данных, используемым в API.
Примените к пустой функции атрибут DllImport.Первый параметр — имя и расположение библиотеки DLL, в котором хранится вызываемая функция.Для файлов, расположенных в системных каталогах Windows, указывать путь не требуется.Второй параметр — именованный аргумент, который задает имя функции в Windows API.В этом примере атрибут DllImport принудительно перенаправляет вызовы MoveFile к MoveFileW в Kernel32.dll.Метод MoveFileW копирует файл из пути src в путь dst.
```
<DllImport("KERNEL32.DLL", EntryPoint:="MoveFileW", SetLastError:=True,
    CharSet:=CharSet.Unicode, ExactSpelling:=True,
    CallingConvention:=CallingConvention.StdCall)>
Public Shared Function MoveFile(
    ByVal src As String,
    ByVal dst As String) As Boolean
    ' Leave the body of the function empty.
End Function
```

Для вызова функции добавьте в обработчик событий Button2_Click следующий код:

Private Sub Button2_Click(ByVal sender As System.Object,
    ByVal e As System.EventArgs) Handles Button2.Click

    Dim RetVal As Boolean = MoveFile("c:\tmp\Test.txt", "c:\Test.txt")
    If RetVal = True Then
        MsgBox("The file was moved successfully.")
    Else
        MsgBox("The file could not be moved.")
    End If
End Sub

Создайте файл с именем Test.txt и поместите его на жесткий диск в каталог C:\Tmp.При необходимости создайте каталог Tmp.
Нажмите клавишу F5 для запуска приложения.Появится главная форма.
Нажмите кнопку Button2.Если файл можно перемещать, появится сообщение "The file was moved successfully" ("Файл успешно перемещен").

См. также

Поделиться через