Всем доброго времени суток. Проблема следующая: Когда запускаю исполняемый файл проекта присоединение к клиенту проходит нормально, но когда нажимаю кнопку "Вкл" вылетает ошибка, причем ошибка не клиента(светофор), как обычно, а ошибка в программе. Ошибка: "is not valid integer value.
Re: Проблемы с Auto-Potter'oм Delphi 7(нажатие клавиш).
Цитата:
Сообщение от dwa83
Посылать событие нажатия клавиши окну клиента, PostMessage или SendMessage
Спасибо, что отозвался, однако, если внимательно посмотреть на мой код, то понятно , что я знаю о SendMessage, но мне нужно получить название клавиши, которую нажимать из [Ссылки могут видеть только зарегистрированные пользователи. ]... А как вместо кода клавиши(типа VK_F1) вставить переменную, полученную из ComboВox'a я не знаю. В этом собственно и вопрос.
Цитата:
Сообщение от BritishColonist
Выделил ошибку. У вас, судя по всему, один из этих Edit оказался пустым.
Большое спасибо, действительно помогло, теперь появилась другая проблема... Теперь он просто не нажимает на клавишу, при нужном количестве маны(тестирую на ней) он ничего не нажимает. В чем может быть причина?
Re: Проблемы с Auto-Potter'oм Delphi 7(нажатие клавиш).
Цитата:
Сообщение от JeckAtlas
Большое спасибо, действительно помогло, теперь появилась другая проблема... Теперь он просто не нажимает на клавишу, при нужном количестве маны(тестирую на ней) он ничего не нажимает. В чем может быть причина?
Попробуй сделать не нажатие клавиши при нужном количестве маны, а какой-нибудь msgbox, вывод в консоль или т.д. Чтобы понять, не работает нажатие клавиши или считывание маны.
________________
Больше не занимаюсь читами, ушёл в серверную часть. Новый ник - int 3.
P.S. Но я всё такой же добрый модератор раздела PW.
Re: Проблемы с Auto-Potter'oм Delphi 7(нажатие клавиш).
Цитата:
Сообщение от JeckAtlas
Теперь он просто не нажимает на клавишу, при нужном количестве маны(тестирую на ней) он ничего не нажимает. В чем может быть причина?
ПОПРОБУЙ ЗАМЕНИТЬ КОД:
Код:
...
if MP < MPMinV then
SendMessage(KlientWindow, WM_KEYDOWN, VK_F1, 0);
SendMessage(KlientWindow, WM_KEYUP, VK_F1, 0);
end;
...
НА:
Код:
...
if MP < MPMinV then
begin
SendMessage(KlientWindow, WM_KEYDOWN, VK_F1, 0);
SendMessage(KlientWindow, WM_KEYUP, VK_F1, 0);
end;
end;
...
Delphi очень чувствителен к описанию блоков begin...end !
Цитата:
Сообщение от JeckAtlas
но мне нужно получить название клавиши, которую нажимать из ComboBox... А как вместо кода клавиши(типа VK_F1) вставить переменную, полученную из ComboВox'a я не знаю. В этом собственно и вопрос.
Как-то так:
Вставляешь в ComboBox значения:
-
F1
...
9
ИСПОЛЬЗУЕШЬ ФУНКЦИЮ:
Код:
function knopka(index:integer):integer;
begin
case index of
0:result:=0;
1:result:=$70; // F1
2:result:=$71; // F2
3:result:=$72; // F3
4:result:=$73; // F4
5:result:=$74; // F5
6:result:=$75; // F6
7:result:=$76; // F7
8:result:=$77; // F8
9:result:=$31; // 1
10:result:=$32; // 2
11:result:=$33; // 3
12:result:=$34; // 4
13:result:=$35; // 5
14:result:=$36; // 6
15:result:=$37; // 7
16:result:=$38; // 8
17:result:=$39; // 9
end;
end;
Re: Проблемы с Auto-Potter'oм Delphi 7(нажатие клавиш).
Цитата:
Сообщение от JeckAtlas
Спасибо, что отозвался, однако, если внимательно посмотреть на мой код, то понятно , что я знаю о SendMessage, но мне нужно получить название клавиши, которую нажимать из ComboBox... А как вместо кода клавиши(типа VK_F1) вставить переменную, полученную из ComboВox'a я не знаю. В этом собственно и вопрос.
если уж хочется сделать именно через ComboBox(Далее "CB") , то могу дать совет создать 2 CB. У каждой клавиши есть собственный код в первом CD дать описание - название клавиши, а во втором ее код, и при отправки SendMessage или PostMessage использовать номер кнопки из второго СВ
Надеюсь понятно выразился, извиняюсь если что-то написано несколько неграмотно
Добавлено через 2 минуты fds255, а зачем по адресу записывать вот это значение unfreeze1: DWord=$01B0; если разморозка и так была выполнена записью ниже
________________
Хотите как то отблагодарить за помощь?
Не стесняйтесь нажимайте "Спасибо"
Делаю программы на заказ, по всем вопросам в скайп: Ginrey2
Последний раз редактировалось Ginrey; 04.08.2013 в 01:39.
Причина: Добавлено сообщение