Проверка существования Dll

[viter.alex]

У себя в проекте я использую стороннюю dll для установки глобального хука на мышь. В принципе, программа может работать и без этой библиотеки, но некоторые функции будут недоступны.
Как при старте приложения определить доступность этой библиотеки? Сейчас, если библиотеки нет, то программа просто завершается с ошибкой

[Денис]

А какого типа библиотека-то?
Полагаю, для .NET и COM-библиотек нужно поздним связыванием создавать классы, реализующие хук. Для native просто делать loadlibrary в начале работы программы и предупреждать, что библиотека не найдена.

[viter.alex]

Как-то я плаваю в этом вопросе. Библиотеку добавляю через References
Затем объявляю переменную:

Код: Выделить всё

Public Shared WithEvents mhook As New WindowsHook.MouseHook

После этого я могу обрабатывать глобальные события мыши

[Nord777]

что мешает поместить эти классы непосредственно в своё приложение?

[viter.alex]

Дело в том, что работать глобальный хук будет только при импорте из dll. Если разместить классы внутри приложения, то я не смогу ставить глобальный хук на мышь

You cannot implement global hooks in Microsoft .NET Framework. To install a global hook, a hook must have a native DLL export to insert itself in another process that requires a valid, consistent function to call into. This behavior requires a DLL export. The .NET Framework does not support DLL exports. Managed code has no concept of a consistent value for a function pointer because these function pointers are proxies that are built dynamically.

Цитата отсюда

[Nord777]

To install a global hook, a hook must have a native DLL export to insert itself in another process
...
The .NET Framework does not support DLL exports.

А у тебя dll НЕ нативная. Тем не менее у тебя эти хуки работают.Где то нестыковочка, не находишь?
Сделай как говорю и не парься.

[ANDLL]

А у тебя dll НЕ нативная

Нестыковочка только в твоем непонимании мира программирвоания.
Public Shared WithEvents mhook As New WindowsHook.MouseHook замени на сначала объявление переменной, а потом в try-catch создавай объект. Если не поможет - не объявляй статический объект, просто создавай и через reflection плюсуся к событию

[viter.alex]

Public Shared WithEvents mhook As New WindowsHook.MouseHook замени на сначала объявление переменной, а потом в try-catch создавай объект.

Это как? Через CreateObject? Ведь эта библиотека нигде не регистрируется, она просто лежит в папке с экзешником.

Если не поможет - не объявляй статический объект, просто создавай и через reflection плюсуся к событию

Это не понятно. Объясни подробнее.

[ANDLL]

Ну хотя бы через CreateObject.
У Type есть метод GetEvent который возвращает Event. У него есть метод AddEventHandler который угадай что делает

[Nord777]

А у тебя dll НЕ нативная

Нестыковочка только в твоем непонимании мира программирвоания.

ANDLL, это ты к чему??


viter.alex там дел на три минуты, ты уже пол дня решаешь эту "проблему"
во вложении - без всяких dll

[viter.alex]

Я понимаю, но я решаю её от силы час. Времени нет заняться вплотную

[ANDLL]

А у тебя dll НЕ нативная. Тем не менее у тебя эти хуки работают.Где то нестыковочка, не находишь?

У него нативная dll, нистуковка в том что ты почемуто называет нативные dll не таковыми...

[Nord777]

У него нативная dll, нистуковка в том что ты почемуто называет нативные dll не таковыми...

А ты проект смотрел?
У него нетовская библа.

[ANDLL]

Тогда сорри...

[viter.alex]

viter.alex там дел на три минуты, ты уже пол дня решаешь эту "проблему"
во вложении - без всяких dll

Наконец-то я смог попробовать. Но не работает.
С чего ты взял, что работает? Я пробовал, как только нашёл этот пример, внедрить его без dll, но не получилось. Хук не устанавливается. В том примере, что ты выложил, нажимаю «Install Mouse Hook», появляется сообщение, что операция успешно завершена, но «Mouse Hook Uninstalled»
Я не говорю, что ты не прав, у меня для этого недостаточно знаний, но хочу разобраться. Почему автор этой библиотеки, распространяет её именно в виде библиотеки, а не просто кодами?

Ну хотя бы через CreateObject.
У Type есть метод GetEvent который возвращает Event. У него есть метод AddEventHandler который угадай что делает

С событиями понятно. Как создать объект? Как задать ему нужный тип? Прошу прощения, если туплю

[Nord777]

Наконец-то я смог попробовать. Но не работает.

Попробуй запустить не из под студии.

С чего ты взял, что работает?

С того, что работает

[ANDLL]

Как создать объект?

Через CreateObject если это COM-объект.
Через Assembly.GetType() если не COM

[viter.alex]

Попробуй запустить не из под студии.

Действительно. Ничего не скажешь, очень удобно в отладке .

Теперь всё-таки попробую разобраться с созданием объекта

[Nord777]

Действительно. Ничего не скажешь, очень удобно в отладке

Скорее всего автор библы где-то накосячил. У меня в каком-то из проектов хуки прекрасно работают и такой фигни не было замечено.


Add:

Теперь всё-таки попробую разобраться с созданием объекта

Удачи. Она тебе понадобится
Это так сказать для ввода в курс дела.
http://msdn.microsoft.com/en-us/library/system.reflection.eventinfo.addeventhandler.aspx

[MIT]

Действительно. Ничего не скажешь, очень удобно в отладке

Скорее всего автор библы где-то накосячил. У меня в каком-то из проектов хуки прекрасно работают и такой фигни не было замечено.

Помниться я как-то умудрился сделать, что хуки приложения работали в Design-Time , вот это и правда было очень "удобно"...

[Joo]

Действительно. Ничего не скажешь, очень удобно в отладке

Скорее всего автор библы где-то накосячил. У меня в каком-то из проектов хуки прекрасно работают и такой фигни не было замечено.

Помниться я как-то умудрился сделать, что хуки приложения работали в Design-Time , вот это и правда было очень "удобно"...

OFFTOP:
MIT, а что это у тебя за прикол такой, цвет текста делать еле заметный? Я предлагаю для тебя отключить возможность цветового оформления

[MIT]

Это не прикол, это принятая на некоторых форумах манера написания оффтопа, текста, к теме особо не относящегося. Какбэ невидимый пост, который можно и не читать.

[Joo]

Это не прикол, это принятая на некоторых форумах манера написания оффтопа, текста, к теме особо не относящегося. Какбэ невидимый пост, который можно и не читать.

Не, ну понятно когда, сначала по теме, а потом еле видно не по теме, но когда весь пост такой, да еще и цитатой, то прочитать уже хочется )) Бельмо такое на странице, невольно думаешь не уж-то слепнешь уже

[Денис]

[spoiler]Где там наш топик про внесение новых тегов в форумы?[/spoiler]
Подробнее о явлении спойлера в кино. И там же о применении в разметке.

[Joo]

[spoiler]Где там наш топик про внесение новых тегов в форумы?[/spoiler]
Подробнее о явлении спойлера в кино. И там же о применении в разметке.

Да, очень нужный тег! Поддерживаю, надо "внедрякать"!

[viter.alex]

Не получается назначить обработчик события и вызвать метод. По ссылке Nord777 ходил, смотрел, но как-то там очень запутанно все. Динамически создают обработчик, код в него тоже забивают динамически и динамически же вызывают. Сложновато это для меня пока.
Библиотека загружается, список методов и событий получить могу. Но как обработать нужное событие или выполнить метод.

Код: Выделить всё

Imports System
Imports System.Reflection
Public Class Form1
   Private Shared hooklib As [Assembly]
   Private Shared mhook As Object
   Private Shared handlerType As Type
   Private Shared LibPath As String = "c:\Мои документы\Visual Studio 2008\Projects\Source Code and Demo\WindowsHookDemo\WindowsHookDemo\bin\Debug\WindowsHookLib.dll"
   Private Shared d As [Delegate]
   Dim eInfoMClick As EventInfo
   Dim mInfoInstall As MethodInfo

   Delegate Sub MouseHookClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs)

   'Загрузка библиотеки
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
      Try
         hooklib = [Assembly].LoadFile(LibPath)
      Catch ex As Exception
         MsgBox(String.Format("Не удалось загрузить библиотеку {0}.", LibPath), MsgBoxStyle.Critical Or MsgBoxStyle.OkOnly, Me.Text)
         Exit Sub
      End Try
      mhook = hooklib.CreateInstance("WindowsHook.MouseHook")

      Debug.Print("Events:")
      Debug.Indent()
      For Each ei As EventInfo In mhook.GetType.GetEvents
         Debug.Print(ei.Name)
      Next
      Debug.Unindent()

      Debug.Print("Methods:")
      Debug.Indent()
      For Each mi As MethodInfo In mhook.GetType.GetMethods
         Debug.Print(mi.Name)
      Next
      Debug.Unindent()
   End Sub

   'Кнопка, устанавливающая хук
   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
      Try
         mhook.GetType.GetMethod("InstallHook").Invoke(mhook, Nothing)
         Me.Text = ""
      Catch ex As Exception

      End Try
   End Sub

   'Кнопка, удаляющая хук
   Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
      Try
         mhook.GetType.GetMethod("UninstallHook").Invoke(mhook, New Object())
      Catch ex As Exception

      End Try
   End Sub

   'По идее, это обработчик одниочного клика мышью
   Private Sub MouseSingleClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs)
      Select Case e.Button
         Case Windows.Forms.MouseButtons.Left
            Me.Text += 1
      End Select
   End Sub
End Class


А попутно вопрос, что означают квадратные скобки? Не первый раз встречаю

[FireFenix]

А попутно вопрос, что означают квадратные скобки? Не первый раз встречаю

Dim New as String - Ошибка синтаксиса
Dim [New] as String

[viter.alex]

Получилось

Код: Выделить всё

Imports System
Imports System.Reflection
Public Class Form1
   Private Shared hooklib As [Assembly]
   Private Shared mhook As Object
   Private Shared handlerType As Type
   Private Shared LibPath As String = "c:\Мои документы\Visual Studio 2008\Projects\Source Code and Demo\WindowsHookDemo\WindowsHookDemo\bin\Debug\WindowsHookLib.dll"

   'Загрузка библиотеки
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
      Try
         hooklib = [Assembly].LoadFile(LibPath) 'Загружаем библиотеку
         mhook = hooklib.CreateInstance("WindowsHook.MouseHook")   'Создаём экземпляр объекта
         'Добавляем обработчик события на одинарный клик
         mhook.GetType.GetEvent("MouseClick").AddEventHandler(mhook, New MouseEventHandler(AddressOf MouseSingleClick))
         'Добавляем обработчик события на двойной клик
         mhook.GetType.GetEvent("MouseDoubleClick").AddEventHandler(mhook, New MouseEventHandler(AddressOf MouseDblClick))
      Catch ex As Exception
         MsgBox(String.Format("Не удалось загрузить библиотеку {0}.", LibPath), MsgBoxStyle.Critical Or MsgBoxStyle.OkOnly, Me.Text)
         Exit Sub
      End Try
   End Sub

   'Кнопка, устанавливающая хук
   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
      Try
         mhook.GetType.GetMethod("InstallHook").Invoke(mhook, New Object() {})
         Me.Text = "Хук установлен"
      Catch ex As Exception
         Me.Text = "Хук не удалось установить"
      End Try
   End Sub

   'Кнопка, удаляющая хук
   Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
      Try
         mhook.GetType.GetMethod("RemoveHook").Invoke(mhook, New Object() {})
         Me.Text = "Хук снят"
      Catch ex As Exception
         Me.Text = "Хук не удалось снять"
      End Try
   End Sub

   'По идее, это обработчик одниочного клика мышью
   Private Sub MouseSingleClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs)
      Select Case e.Button
         Case Windows.Forms.MouseButtons.Left
            Label1.Text = "Одниарный клик левой"
         Case Windows.Forms.MouseButtons.Middle
            Label1.Text = "Одниарный клик средней"
         Case Windows.Forms.MouseButtons.Right
            Label1.Text = "Одниарный клик правой"
      End Select
   End Sub

   Private Sub MouseDblClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs)
      Select Case e.Button
         Case Windows.Forms.MouseButtons.Left
            Label1.Text = "Двойной клик левой"
         Case Windows.Forms.MouseButtons.Middle
            Label1.Text = "Двойной клик средней"
         Case Windows.Forms.MouseButtons.Right
            Label1.Text = "Двойной клик правой"
      End Select
   End Sub
End Class

Вот ключевая строка:
mhook.GetType.GetEvent("MouseClick").AddEventHandler(mhook, New MouseEventHandler(AddressOf MouseSingleClick))
Чем отличается строка New Object() от New Object() {}? Из-за этого не работал вызов процедуры

[MIT]

Чем отличается строка New Object() от New Object() {}?

Да поправит меня знающий, но по-моему, "{}" отвечает за инициализацию создаваемого массива (эквивалентно Dim arr() as object: redim arr(-1) или Dim arr(-1) as object)

[ANDLL]

Чем отличается строка New Object() от New Object() {}?
Первый создает объект, второй создает массив длины 0