Как различить, левый или правый шифт нажат?

[awl100Alex]

У тебя ДВЕ(!) мышки в системе???!!! Да еще и на одинаковых портах???!!! И ты еще говоришь, что способ мутный!.. Аффигеть!!! А клавиатура вообще в твоей системе числиться, и так... чисто виртуально???

У меня, к примеру ОДНА клава, у которой в ресурсах порты 60 и 64. А для мыши порт вообще не указан ни для usb(что логично), ни для ps/2(touchpad)
Тебе скрин показать, вместе с фоткой ноута?

Очень хорошо... Молодец! Порт 60 - предназначен для транзакции данных, а порт 64 - является командным. И оба СТАНДАРТ!!! А теперь посмотри, какие драйвера обслуживают твою клаву и мышь??? Это будет один и тот же... лично у меня - i8042prt.sys. Теперь понятно?!..

[awl100Alex]

iGrok
Специально для тебя и остальных в том же духе...
http://www.istc.kiev.ua/~santana/bios/biosj.html
Найдите там подраздел PS/2 Mouse Function Control
и читайте!!!..

Цитирую...
Интерфейс "мыши" PS/2 впервые появился в 1987 г. в компьютерах PS/2 корпорации IBM. Порт "мыши" был встроен в системную плату, а электрически подключался к контроллеру клавиатуры 8042. Таким образом, для PS/2-мыши использовались "клавиатурные" адреса ввода/вывода (60h, 64h), и было нацелено прерывание IRQ12.

А так же раздел x Port 64/60 Emulation...

[arthur2]

awl100Alex

У тебя ДВЕ(!) мышки в системе???!!! Да еще и на одинаковых портах???!!! И ты еще говоришь, что способ мутный!.. Аффигеть!!! А клавиатура вообще в твоей системе числиться, и так... чисто виртуально???
И ты что действительно считаешь, что DirectX при таком раскладе тебе поможет???

Ну да, две - а что особенного-то? Одна радио, другая обычная... Подключена, собственно, только одна, но система, видимо, помнить и о второй. Да это и не очень важно. Вот ещё одна причина, по которой я не буду использовать этот способ - не очень люблю делать то, что не до конца понимаю. А все эти порты для меня - тёмный лес. И чего это ты так разрнервничился-то? Спасибо тебе, что хотел помочь - в самом деле спасибо Ну не подошёл мне твой способ - в чём трагедь-то?

ANDLL
Да, именно directinput тут вполне мог бы помочь - я даже нашёл, как... но разбираться не стал - овчинка не стоит выделки Раз стандартного способа нет, на вин98 программа моя всё же обойдётся без различения шифтов. Там не критично.

[awl100Alex]

И чего это ты так разрнервничился-то? Спасибо тебе, что хотел помочь - в самом деле спасибо Ну не подошёл мне твой способ - в чём трагедь-то?

Ну, всегда пожалуйста! Пойми правильно: разнервничался я не из-за того, что мой способ тебе не подошёл, а потому что другие участники этого топика только и делают что критикуют, а сами НИЧЕГО(!) конкретного предложить не могут. В таких условиях, сам понимаешь...
Ладно, желаю удачи!

[iGrok]

awl100Alex:И незачем так орать..©(не помню)
Вот совершенно незачем. )
Я вполне догадываюсь, что это стандартные порты. Вопрос в другом. Скажи пожалуйста, а твой способ будет работать с usb-клавиатурой? А это не такая уж и редкость. Даже на win98.

Так что если способ не универсален - нафиг такой способ. Опять же установка дополнительного драйвера клавиатуры для работы программы..
НИКОГДА в жизни не стал бы пользоваться программой, устанавливающей какой-то левый драйвер. Только если ОЧЕНЬ нужно. И то запускал бы её не иначе, как в сэндбоксе. Мало ли чего оно там поставить хочет. Я драйвер хаспа-то не соглашаюсь ставить.
Исключения на сегодня - это "драйвер" фаерволла и драйвер виртуального привода.

А что-то про DirectX(что было бы правильным и достаточно простым решением - тем более видел как раз этот функционал(работу с клавиатурой) в виде готового модуля для VB6 не то в SDK, не то ещё в каком-то подобном комплекте. Факт - шло на одном диске с VB.) звучало с самого начала.

[arthur2]

iGrok

А что-то про DirectX(что было бы правильным и достаточно простым решением - тем более видел как раз этот функционал(работу с клавиатурой) в виде готового модуля для VB6 не то в SDK, не то ещё в каком-то подобном комплекте. Факт - шло на одном диске с VB.) звучало с самого начала.

Не было этого с самого начала - я-то за темой следил. Первый раз директикс упомянул как раз я сам. И пример - я же сказал, что нашёл. И выложил его - в своём предыдущем топике. Там действительно всё просто.

awl100AlexВо! Клава у меня как раз USB. А чё это ты свои топики потёр?

[iGrok]

Не было этого с самого начала - я-то за темой следил. Первый раз директикс упомянул как раз я сам.

А. Точно. Ну не особо удивительно, что этого не сделал никто из гуру. Большинство предпочитает не связываться с устаревшими ОС. Хотя бы потому, что их нет под рукой. )

[awl100Alex]

iGrok
А я ни на кого не орал, просто подчеркивал то, что хотел сказать... Ну, может, увлекся... звиняйте.

Скажи пожалуйста, а твой способ будет работать с usb-клавиатурой?

Клава у меня как раз USB.

Тогда понятно, почему у тебя не работает нифига. Вообще-то, я читал, что USB-клавитура все равно должна эмулировать стандартные порты 60h/64h PS/2, как пишут... в 99% случаев так и должно быть. И USB-клавы используют другой драйвер - Kbdhid.sys, который работает на более низком уровне IRQL, чем драйвер i8042prt.sys. Поэтому контроллер 8042 здесь не используется, но эмулируется... Я же приводил ссылку из предыдущего топика, см. подраздел x Port 64/60 Emulation... (и USB Keyboard Support...) – в BIOS’e нужно включить(!) эту самую эмуляцию! Другое дело, что в разных версия BIOS’a такого параметра может и не быть, а быть как-то по-другому...

[awl100Alex]

Кстати, хочу кое-что уточнить...

Кстати, DirectInput поможет скорее всего. И там не очень сложно вобщемто...

Скажи: а как ты собираешься объявлять объект DirectX для Win98?
Желательно поподробней...

[ANDLL]

Ознакомься с DirectX 5, к примеру
Ты читаешь текст, но понимаешь его исходя из сказочных представлений о внутреннем устройстве компьютера. Поэтому you suck.

[iGrok]

...в BIOS’e нужно включить(!) эту самую эмуляцию! Другое дело, что в разных версия BIOS’a такого параметра может и не быть, а быть как-то по-другому...

Так и представляю себе пункт HELP'а к программе:
"...Для работы функции blablabla с usb-клавиатурами необходимо включить в BIOS Вашего компьютера опцию Port 60/64 Emulation. Если её там не окажется - обратитесь к поставщику Вашей материнской платы за обновлениями BIOS..."
Сорри, не удержался. )
Всё-таки DI - более универсальное решение. В теории, если поэкспериментировать с объектами DX разных версий, можно написать универсальную ф-цию, которая будет работать под всеми ОС от win98 до Vista. (сам не пробовал, и даже не копался в этом направлении - не стреляйте в писаниста плз. =)

[awl100Alex]

Ознакомься с DirectX 5, к примеру

Пример кода в студию, плиз!..

[iGrok]

Ознакомься с DirectX 5, к примеру

Пример кода в студию, плиз!..

Вот упёртый какой =)

Держи. Только что проверил на Win98SE и на XP. Работает и там и там. Работу под вистой не проверял.
DX7 для win98 можно скачать тут: http://www.brothersoft.com/directx-7.0a-for-win9x-51957.html

[awl100Alex]

iGrok
Нет!.. Ты меня не понял!..
По-умолчанию, вместе с Win98SE устанавливается DirectX5. И ты НИКАК(!) из своей XP-хи и среды разработки VB6 НЕ получишь ссылку именно на этот Direct! Даже если грохнешь свою XP и установишь Win98SE со средой разработки – все равно НЕ получишь ссылки! Ее там просто НЕ будет! Поэтому говорить о полной совместимости нельзя!

Вот и представь себе, что написал прогу... и в Win98SE при инсталле... вынужден(!) будешь сообщить пользователю: дескать, Вам, уважаемый, чтобы я мог узнать, какие именно кнопочки Shift’a вы нажимаете, нужно дополнительно(!) скачать и установить DirectX более старшей версии, мегабайт эдак на 10! Вот он то обрадуется!

Держи. Только что проверил на Win98SE и на XP. Работает и там и там.

Вот как раз там(!)... с установкой винды и директа по-умолчанию, и НЕ работает! Я тоже проверил!

Поэтому...

DirectInput поможет скорее всего.

Это БРЕД!

[iGrok]

2awl100Alex:
Топикстартер уже от этой идеи отказался, а мы всё спорим.. И главное, было бы о чём спорить. Ну ладно, мне заняться всё равно особо нечем. )

1) Пример работает под DirectX7. Я проверял на win98SE с установленным DirectX7. Работает, как часы. Вне зависимости от того usb-там клавиатура, bluetooth или ещё что-то.

2) DirectX7 СТАВИТСЯ на Win95, Win98 и Win98SE. Это СТАНДАРТНЫЙ функционал, разработанный производителем ОС, а не левый драйвер неизвестной конторы. Dx7 для win98 есть почти на всех дисках с дровами железа под Win98. Если его реально нет - он весит 6.2мб. Ссылку на скачивание я дал. А вообще, никто не мешает распространять его вместе с прогой.

3) Ок. Мы совсем не хотим ставить дополнительные библиотеки. Соответственно, всё, что у нас есть - DirectX 5. Да, билиботеки dx5vb или даже dx6vb не существует в природе. Посему объект dx5 или dx6 для vb получить нельзя. Тем не менее, есть API DirectInput, при помощи которого можно заюзать ф-ции DirectX5 из-под vb. И сделать это не труднее, чем в вышеописанном примере. Есть сторонние wrapper'ы (.tlb), облегчающие использование этих самых API....

З.Ы. А, кстати. А вот чем сообщение о том, что "неплохо бы директ икс посвежее" хуже сообщения "а включите-ка вы в биосе то, не знаю что"?
И чем установка DX7 хуже установки левого драйвера?

[arthur2]

iGrok

Тем не менее, есть API DirectInput, при помощи которого можно заюзать ф-ции DirectX5 из-под vb. И сделать это не труднее, чем в вышеописанном примере. Есть сторонние wrapper'ы (.tlb), облегчающие использование этих самых API....

А вот это интересно! Это действительно можно сделать? Хорошо бы понять, как

Вот я скачал .tlb
Вот я её подключил к проекту
пишу

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

DirectInputCreateA.

просит параметры:

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

(hinst As Any, dwVersion As Long, ppDI As IDirectInputA, pUnkOuter As Unknown

Как теперь это всё заюзать?

[iGrok]

iGrokА вот это интересно! Это действительно можно сделать? Хорошо бы понять, как

Вот я скачал .tlb
Вот я её подключил к проекту
пишу

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

DirectInputCreateA.

просит параметры:

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

(hinst As Any, dwVersion As Long, ppDI As IDirectInputA, pUnkOuter As Unknown

Как теперь это всё заюзать?

Ты нашёл то же самое, что и я. )
Я пока разбираюсь. Фишка в том, что для отладки нужна 98я. Сейчас я её на виртуалку поставлю.. )
hInst =App.hInstance.
ppDI - объект IDirectInputA, объявленный заранее.
pUnkOuter в одном из виденных примеров был равен NULL.

[arthur2]

iGrok
Хотелось бы надеяться, что у тебя что-то получится

Я пытался объявить ppDI As IDirectInputA, но как его потом создать, не понятно, new для него не работает

Пробовал делать implements IDirectInputA и передавать туда me, но всё немедленно дохло

А как поставить вин98 на виртуалку? что это значит? (пардон за ламерство)

[ANDLL]

Я пытался объявить ppDI As IDirectInputA, но как его потом создать, не понятно, new для него не работает

Вот эта твоя функция его и создает...

[arthur2]

Вот эта твоя функция его и создает...

Очень может быть Но она отказывается принимать ppDI, пока там nothing

[ANDLL]

Да нет, просто твоя TLB-шка кривовата...

Option Explicit
Private Declare Function DirectInputCreateA Lib "dinput.dll" (ByVal hinst As Long, ByVal dwVersion As Long, ByRef ppDI As IDirectInputA, ByVal pUnkOuter As Long) As Long


Private Sub Form_Load()
Dim a As IDirectInputA
Dim r As Long
r = DirectInputCreateA(App.hInstance, &H700, a, 0)
If r < 0 Then Err.Raise r
End Sub

[iGrok]

Да нет, просто твоя TLB-шка кривовата...

Я правильно понимаю, что это из-за pUnkOuter As Unknown?

Если да - не подскажешь, где взять нормальные объявления классов? Ибо DI создаётся, но CreateDevice в этой TLB тоже кривоват..
Там только DirectDraw нормально работает..

[ANDLL]

Ага, это изза того что в Byref pUnkOuter As Unknown в VB нельзя передать нуль.
Нормальные объявления функций как и в этот раз можно додумывать самому.
Но вообще, DirectInput это... Как бы сказать - лучше чем чтение портов клавиатуры - потому что DirectInput умеет клаву от мышки отличать и с USB клавой работает всегда.
Но тем не менее, directinput не заменяет ни разу getkeystate. Ибо DirectInput возвращает асинхронное состояние клавиатуры.

[iGrok]

Ага, это изза того что в Byref pUnkOuter As Unknown в VB нельзя передать нуль.
Нормальные объявления функций как и в этот раз можно додумывать самому.

Гм. Было бы это просто объявление функции..
Там создаётся объект DI. Но для него в TLB объявления нужных методов такие же. Я так понимаю, это TLB нужно править?
Там поправить-то 4 объявления. Всё равно остальное не юзается..

[ANDLL]

Какие такие же? С этими методами должно быть все нормально.

[iGrok]

Какие такие же? С этими методами должно быть все нормально.

Собственно, чтобы создать объект клавиатуры, надо вызвать у созданного IDirectInputA такой метод..

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

Sub CreateDevice(rguid As Any, lplpDirectInputDevice As IDirectInputDeviceA, pUnkOuter As Unknown)
    Member of DirectX.IDirectInputA


И потом ещё будет:

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

Sub GetDeviceState(arg1 As Long, arg2 As Any)
    Member of DirectX.IDirectInputDeviceA


Правда As Any вроде должен нормально обработаться..

TLB кривая.. (

[ANDLL]

Ну тогда измени tlb...

[iGrok]

Ну тогда измени tlb...

Ну пока в том направлении и копаю..