API функции языка Visual Basic

Пришло время поговорить о таком понятии как API функции в языке Visual Basic. Чем же важны эти функции в Visual Basic? Давайте разберемся, во-первых, когда Вы начнете программировать на Visual Basic, Вы сразу же поймете, что с использованием этих функций можно написать очень серьезные программы, во-вторых, просто многое нельзя сделать без использования API функций, например, практически все что связанно с использованием операционной системы Windows (например: узнать имя пользователя, место на жестком диске и так далее).

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

Теория по API функциям Visual Basic

API – это аббревиатура Application Programming Interface (интерфейс прикладного программирования). Другими словами, API – это набор функций, которые сама операционная система дает программисту для использования их в своих программах. С помощью API программисты легко реализуют свои задумки на практике.

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

Практически все функции, которые располагаются в Windows  — находятся внутри DLL (Dynamic Link Library). Все dll-файлы расположены в системной папке Windows. Существует свыше 1000 функций API, которые условно делятся на четыре основные категории.

• Работа с приложениями — запуск и закрытие приложений, обработка команд меню, перемещения и изменения размера окон;
• Графика — создание изображений;
• Системная информация — определение текущего диска, объем памяти, имя текущего пользователя и т.д.;
• Работа с реестром — манипуляции с реестром Windows.

Применение API функций на практике

Теперь перейдем непосредственно к использованию этих функций на практике. Функции API, вызываемые в Visual Basic, должны быть сначала объявлены. При объявлении указывается имя DLL и функции, а также информация о количестве и типе аргументов.

Процедуры DLL объявляются командой Declare в секции General Declarations модуля формы или стандартного модуля:

  Declare Function имя Lib "библиотека" [Alias "псевдоним"] [([[ByVal ] _
  переменная [As тип] [,ByVal,] переменная [As тип]]...])] As тип

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

Секция Lib сообщает, где следует искать файл DLL, содержащий функцию. При ссылке на основные библиотеки Windows (user32.dll, kernel32.dll, gdi.dll) расширение включать не обязательно.

Если путь к файлу не указан, то начинается просмотр каталогов в следующей последовательности

1. Каталог, содержащий EXE-файл программы;
2. Текущий каталог;
3. Системный каталог Windows;
4. Каталог Windows;
5. Переменная окружения Path.

Вот небольшой перечень стандартных библиотек DLL Windows:

• advapi.dll — защита NT,реестр и другие продвинутые сервисы;
• comdlg.dll — стандартные диалоговые окна;
• gdi.dll — интерфейс графических устройств;
• kernel32.dll — память, диски, процессы, ресурсы;
• mpr.dll — сети;
• netapi32.dll — библиотека сетевого API;
• shell32.dll — оболочка Windows, drag-and-drop ,выборка значков;
• user32.dll — пользовательский интерфейс-окна, меню, строки, сообщения;
• version.dll — контроль версий;
• winmm.dll — мультимедиа, звук, джойстики, таймеры;
• winspoll.dll — диспетчер печати.

Большинство процедур DLL за документировано с использованием нотации языка программирования C и C++. Для успешного преобразования функции API в команду Declare необходимо разбираться в механизме передачи аргументов. Обычно аргументы передаются по значению. В этом случае перед именем аргумента ставится ключевое слово ByVal. Если аргумент передается по ссылке, то ставится ByRef.

Вот самый малый список функций, которые используются в Visual Basic:

• BitBlt — копирует изображение из одного hDC в другой;
• ExitWindowsEx — перезагрузка или выход из Windows;
• FindWindow — находит Handle окна с указанным Caption;
• GetCursorPos — возвращает текущую позицию курсора мыши (глобально);
• GetDriveType — возвращает тип накопителя;
• GetForegroundWindow — возвращает Handle активного окна;
• SetCursorPos — устанавливает новую позицию курсора мыши;
• SetVolumeLabel — изменяет метку диска;
• SetWindowPos — устанавливает позицию окна с определённым Handle (также с помощью этой функции можно сделать так, чтобы окно было ПОВЕРХ всех;
• ShellExecute — запускает приложение, ассоциированное с расширением, которое имеет указанный файл (также может просто запустить указанное приложение);
• ShowCursor — скрывает или показывает курсор мыши на экране.

Примеры работы с реестром

Также при программировании на Visual Basic, да и на других языках возникает проблема, когда нужно использовать реестр Windows, но с помощью api функций это сделать легко, например:

Для чтения строкового параметра используйте функцию GetRegString

Пример:

  Dim test As String
  test = GetRegString(HKEY_LOCAL_MACHINE, _
  "Software\Microsoft\DirectX", "Version")
  Form1.Caption = test

Для чтения параметра DWORD GetRegDWord

Пример:

  Dim test As Long
  test = GetRegDWord(HKEY_LOCAL_MACHINE, _
  "Software\Microsoft\Internet Explorer\AboutURLs", "Home")
  Form1.Caption = test

Для записи строкового параметра используется SetRegString

Пример:

  SetRegString HKEY_LOCAL_MACHINE, _
  "Software\test", "MyProgram", "Options"

Если ключ или параметр не были созданы, то они будут созданы, если ключ или параметр уже существуют, то новые значения запишутся поверх старых.

Для записи параметра типа DWORD используется SetRegDWord

Пример:

  SetRegDWord HKEY_LOCAL_MACHINE, _
  "Software\test", "MyProgram", "555"

Для удаления ключа из реестра используется функция DeleteRegKey

Пример:

  DeleteRegKey HKEY_LOCAL_MACHINE, "Software", "test", True

Второй параметр — Ключ-родитель
Третий параметр — True — если требуется подтверждение на удаление или False — если подтверждение не требуется.

Для удаления параметра из реестра используется функция DeleteRegValue

Пример:

  DeleteRegValue HKEY_LOCAL_MACHINE,_
  "Software\Microsoft\Internet Explorer\AboutURLs", "mozilla", False

На самом деле возможности API функций в операционной системе Windows практически безграничны. Давайте закончим на этом рассмотрение этой возможности Visual Basic и напоследок напишем небольшую программку с использованием API функций.

Данная программа просто выводит сообщение на экран, вставьте следующий код:

 Private Declare Function BeginPath Lib "gdi32" (ByVal hdc As Long) As Long
 Private Declare Function EndPath Lib "gdi32" (ByVal hdc As Long) As Long
 Private Declare Function PathToRegion Lib "gdi32" (ByVal hdc As Long) As Long
 Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long

 Private Sub Form_Load()
  Const TEXT = "Ты использовал API"
  Dim hRgn As Long
  Font.Name = "Times New Roman"
  Font.Bold = True
  Font.Size = 60
  Width = TextWidth(TEXT)
  Height = TextHeight(TEXT)
  BeginPath hdc
  Print TEXT
  EndPath hdc
  hRgn = PathToRegion(hdc)
  SetWindowRgn hWnd, hRgn, False
  Move (Screen.Width - Width) / 2, (Screen.Height - Height) / 2
 End Sub

Мы здесь использовали 4 функции (BeginPath, EndPath, PathToRegion, SetWindowRgn), которые располагаются в двух dll библиотеках (gdi32, user32).

На этом все, пока!