Эмуляция нажатие клавиш в Windows 8

@saylar_06 · Регистрация: 08.06.2012

Студворк — интернет-сервис помощи студентам

Доброго времени суток! Очень нуждаюсь в вашей помощи...

Есть данный код:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
     hwndb := FindWindow(nil, PChar('Название окна'));
     if hwndb <> 0 then
      begin   Sleep(1000);
        label1.Caption:=label1.Caption+'go';
        keybd_event(69, 0, 0, 0);
        keybd_event(69, 0, KEYEVENTF_KEYUP, 0);
        //  Sleep(200);
        keybd_event(69, 0, 0, 0);
        keybd_event(69, 0, KEYEVENTF_KEYUP, 0);
        //  Sleep(200);
        keybd_event(87, 0, 0, 0);
        keybd_event(87, 0, KEYEVENTF_KEYUP, 0);
        //  Sleep(200);
        keybd_event(82, 0, 0, 0);
        keybd_event(82, 0, KEYEVENTF_KEYUP, 0);
        //  Sleep(200);
      end;

В общем то код рабочий если учитывать что на WIndows 7/XP он работает, но на Windows 8 просто игнорируется, есть какие нибудь соображение? или же какая нибудь альтернатива?

Заранее благодарен...

@Alex_pac · 08.06.2012, 17:44

Windows 8

еще не вышла. Так что спи.

@saylar_06 · 08.06.2012, 18:07 **[ТС]**

Сообщение от Alex_pac

еще не вышла. Так что спи.

http://windows.microsoft.com/r... se-preview

пошел спать дальше...

@HanDi · 08.06.2012, 18:11

Не по теме:

Windows 8 Release Preview — это предварительная версия операционной системы Windows 8.

Windows 8 Release Preview — стабильная и тщательно протестированная операционная система, но это все же не готовый продукт.

Инфа оттуда же.

Спите оба.

@saylar_06 · 08.06.2012, 20:42 **[ТС]**

в общем перерылся... элементарно никак не могу въехать, очень нужна ваша помошь, заного изложу сути проблемы...

Написал новый код:

Delphi
1
2
3
4
5
6
7
          Inp.Itype := INPUT_KEYBOARD;
          Inp.ki.wVk := VK_RETURN;
          Inp.ki.dwFlags := 0;
          SendInput(1, Inp, SizeOf(Inp));
            sleep(500);
          Inp.ki.dwFlags := KEYEVENTF_KEYUP;
          SendInput(1, Inp, SizeOf(Inp));

элементарно вроде бы всё, при его исполнении должен нажаться Enter, и всё работает на Windows 8 да и код из первого поста тоже работал, но увы в других риложениях (блокнот, браузер и т.д) я же пишу приложение для игры конкретнее для Warcraft III, что первый что второй код удачно работают на Windows 7 c Warcraft III но просто игнорируются при выполнении на WIndows 8, подскажите в чем может быть ещё проблема?

@Olivеr · 08.06.2012, 20:53

saylar_06,

Не по теме:

Сообщение от saylar_06

я же пишу приложение для игры конкретнее для Warcraft III

Оо, интересно, можно поинтересоваться в личку что за приложение? Я часто играю в варик в свободное время:)

@saylar_06 · 08.06.2012, 22:33 **[ТС]**

Olivеr, пишу приложение для инвокера, хотелось нажатием одной клавиши(или комбинации) менять магии, приведенный мной код упешно работает так как я хочу на Windows 7, но вот на Windows 8 работать в Warcraft отказывается учитывая что работает если настроить на блокнот и т.д

@HanDi · 08.06.2012, 22:38

Не по теме:

saylar_06, открою тебе маленький секрет - ты делаешь бесполезную программу, по крайней мере для меня точно. Я на инвокере гоняю уже очень долгое время и его все магии переключаю закрытыми глазами.

@robt · 08.06.2012, 22:39

saylar_06 не устаеш копипастить с форума на форум?

@saylar_06 · 09.06.2012, 10:06 **[ТС]**

Сообщение от HanDi

Не по теме:

saylar_06, открою тебе маленький секрет - ты делаешь бесполезную программу, по крайней мере для меня точно. Я на инвокере гоняю уже очень долгое время и его все магии переключаю закрытыми глазами.

эххх, во первых делаю её я для себя, а во вторых ты просто не видел на сколько быстро я кидаю магии при помощи это программы(уходят доли секунды, и единсвенный барьер это кд ульта) но тут не об этом, я пришел сюда в надежде что вы поможите мне с кодом...

Сообщение от robt

saylar_06 не устаеш копипастить с форума на форум?

да там не на одном из форумов я не получил толкового ответа, увы...

P.S Вопрос всё ещё открытый, мб есть какие нибудь соображения?

@Санек25 · 09.06.2012, 10:33

Может winapi попробовать??? что нибудь вроде getkeystate?..

@saylar_06 · 09.06.2012, 11:03 **[ТС]**

Сообщение от Санек25

Может winapi попробовать??? что нибудь вроде getkeystate?..

спасибо, но к сожалению это тоже не вариант...

В общем упорство и труд всё перетрут

Просидев пол ночи, меня всё же осенило, проблему я решил, так что тему можно либо закрыть либо удалить, большое спасибо всем кто принял участие

@Санек25 · 09.06.2012, 11:06

saylar_06, Ну поделись опытом с людьми

@saylar_06 · 10.06.2012, 09:29 **[ТС]**

люди, все очень просто дело было не в самом коде, а в Winodws 8, дело в том что практические любое действие oc блокирует (даже при выключеном UAC и SmartScreen) нужно было дать программе уровень администратора(не просто открыть от имени администратора) а зайти в Свойства-->Совместимость-->Изменить параметры для всех пользователей--> и поставить галочку Выполнять программу от имени администратора!

и вооля всё заработало!

Новые блоги и статьи Все статьи Все блоги /
Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .	Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114	Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .
Расчёт токов в цепи постоянного тока igorrr37 05.01.2026 / * Дана цепь постоянного тока с сопротивлениями и напряжениями. Надо найти токи в ветвях. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и решает её. Последовательность действий:. . .	Новый CodeBlocs. Версия 25.03 palva 04.01.2026 Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .	Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .

@HanDi
	08.06.2012, 18:11
	Не по теме: Windows 8 Release Preview — это предварительная версия операционной системы Windows 8. Windows 8 Release Preview — стабильная и тщательно протестированная операционная система, но это все же не готовый продукт. Инфа оттуда же. Спите оба. 0

@saylar_06 0 / 0 / 0 Регистрация: 08.06.2012 Сообщений: 16
	08.06.2012, 22:33 [ТС]
	Olivеr, пишу приложение для инвокера, хотелось нажатием одной клавиши(или комбинации) менять магии, приведенный мной код упешно работает так как я хочу на Windows 7, но вот на Windows 8 работать в Warcraft отказывается учитывая что работает если настроить на блокнот и т.д 0

@HanDi
	08.06.2012, 22:38
	Не по теме: saylar_06, открою тебе маленький секрет - ты делаешь бесполезную программу, по крайней мере для меня точно. Я на инвокере гоняю уже очень долгое время и его все магии переключаю закрытыми глазами. 1

@robt 21 / 17 / 2 Регистрация: 08.06.2012 Сообщений: 124
	08.06.2012, 22:39
	saylar_06 не устаеш копипастить с форума на форум? 0

@Санек25 422 / 352 / 19 Регистрация: 14.05.2012 Сообщений: 1,437
	09.06.2012, 10:33
	Может winapi попробовать??? что нибудь вроде getkeystate?.. 1

@Санек25 422 / 352 / 19 Регистрация: 14.05.2012 Сообщений: 1,437
	09.06.2012, 11:06
	saylar_06, Ну поделись опытом с людьми 0

@saylar_06 0 / 0 / 0 Регистрация: 08.06.2012 Сообщений: 16
	10.06.2012, 09:29 [ТС]
	люди, все очень просто дело было не в самом коде, а в Winodws 8, дело в том что практические любое действие oc блокирует (даже при выключеном UAC и SmartScreen) нужно было дать программе уровень администратора(не просто открыть от имени администратора) а зайти в Свойства-->Совместимость-->Изменить параметры для всех пользователей--> и поставить галочку Выполнять программу от имени администратора! и вооля всё заработало! 0